update of packages

lisp/ledger-mode/ledger-mode.el

@@ -22,7 +22,11 @@
 ;; MA 02110-1301 USA.
 
 ;;; Commentary:
-;; Most of the general ledger-mode code is here.
+;; This Emacs library provides a major mode for editing files in the format used
+;; by the `ledger' command-line accounting system.
+
+;; It also provides automated support for some `ledger' workflows, such as
+;; reconciling transactions, or running certain reports.
 
 ;;; Code:
 
@@ -156,7 +160,7 @@ And calculate the target-delta of the account being reconciled."
   (let ((context (car (ledger-context-at-point))))
     (save-excursion
       (save-restriction
-        (narrow-to-region (point-at-bol) (point-at-eol))
+        (narrow-to-region (line-beginning-position) (line-end-position))
         (beginning-of-line)
         (cond ((eq 'xact context)
                (re-search-forward ledger-iso-date-regexp)
@@ -189,7 +193,7 @@ With a prefix argument, remove the effective date."
     (let* ((context (car (ledger-context-at-point)))
            (date-string (or date (ledger-read-date "Effective date: "))))
       (save-restriction
-        (narrow-to-region (point-at-bol) (point-at-eol))
+        (narrow-to-region (line-beginning-position) (line-end-position))
         (cond
          ((eq 'xact context)
           (beginning-of-line)
@@ -325,7 +329,9 @@ With a prefix argument, remove the effective date."
   (ledger-init-load-init-file)
   (setq-local comment-start ";")
   (setq-local indent-line-function #'ledger-indent-line)
-  (setq-local indent-region-function 'ledger-post-align-postings))
+  (setq-local indent-region-function 'ledger-post-align-postings)
+  (setq-local beginning-of-defun-function #'ledger-navigate-beginning-of-xact)
+  (setq-local end-of-defun-function #'ledger-navigate-end-of-xact))
 
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.ledger\\'" . ledger-mode))