update packages

lisp/ledger-mode/ledger-mode-pkg.el

@@ -1,7 +1,7 @@
 ;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "ledger-mode" "20250317.529"
+(define-package "ledger-mode" "20250821.1439"
   "Helper code for use with the \"ledger\" command-line tool."
-  '((emacs "25.1"))
+  '((emacs "26.1"))
   :url "https://github.com/ledger/ledger-mode"
-  :commit "d9b664820176bf294fbca5ee99c91920862cf37d"
-  :revdesc "d9b664820176")
+  :commit "e9bb645e8f05cf7ad0819b0450db7e84c9ed3f41"
+  :revdesc "e9bb645e8f05")

lisp/ledger-mode/ledger-mode.el

@@ -4,9 +4,9 @@
 
 ;; This file is not part of GNU Emacs.
 
-;; Package-Version: 20250317.529
-;; Package-Revision: d9b664820176
-;; Package-Requires: ((emacs "25.1"))
+;; Package-Version: 20250821.1439
+;; Package-Revision: e9bb645e8f05
+;; Package-Requires: ((emacs "26.1"))
 
 ;; This is free software; you can redistribute it and/or modify it under
 ;; the terms of the GNU General Public License as published by the Free
@@ -101,7 +101,7 @@
 (defun ledger-read-payee-with-prompt (prompt)
   "Read a payee from the minibuffer with PROMPT."
   (ledger-completing-read-with-default prompt
-                                       (when-let ((payee (ledger-xact-payee)))
+                                       (when-let* ((payee (ledger-xact-payee)))
                                          (regexp-quote payee))
                                        (ledger-payees-list)))
 
@@ -457,12 +457,16 @@ With prefix ARG, decrement by that many instead."
   (add-hook 'before-revert-hook 'ledger-highlight--before-revert nil t)
   (add-hook 'after-revert-hook 'ledger-highlight-xact-under-point nil t)
 
+  (add-to-invisibility-spec 'ledger-occur-hidden)
+
   (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 beginning-of-defun-function #'ledger-navigate-beginning-of-xact)
-  (setq-local end-of-defun-function #'ledger-navigate-end-of-xact))
+  (setq-local end-of-defun-function #'ledger-navigate-end-of-xact)
+
+  (setq-local outline-regexp "[^[:space:]]"))
 
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.ledger\\'" . ledger-mode))

lisp/ledger-mode/ledger-mode.info

@@ -1,4 +1,4 @@
-This is ledger-mode.info, produced by makeinfo version 7.1.1 from
+This is ledger-mode.info, produced by makeinfo version 7.2 from
 ledger-mode.texi.
 
 Copyright © 2013, Craig Earls.  All rights reserved.
@@ -1199,12 +1199,11 @@ Some users like to have org-like outlines for their ledger files.  A
 suggested customization is to include something like the following in
 your Emacs configuration:
 
-     (eval-after-load 'ledger-mode
-       (progn
-         ;; org-cycle allows completion to work whereas outline-toggle-children does not
-         (define-key ledger-mode-map (kbd "TAB") #'org-cycle)
-         (add-hook 'ledger-mode-hook #'outline-minor-mode)
-         (font-lock-add-keywords 'ledger-mode outline-font-lock-keywords)))
+     (with-eval-after-load 'ledger-mode
+       ;; org-cycle allows completion to work whereas outline-toggle-children does not
+       (define-key ledger-mode-map (kbd "TAB") #'org-cycle)
+       (add-hook 'ledger-mode-hook #'outline-minor-mode)
+       (font-lock-add-keywords 'ledger-mode outline-font-lock-keywords))
 
 
 File: ledger-mode.info,  Node: Concept Index,  Next: Command & Variable Index,  Prev: Hacking Ledger-mode,  Up: Top
@@ -1484,67 +1483,66 @@ Keystroke Index
 * TAB:                                   Adding Transactions.  (line  6)
 * y:                                     Editing Amounts.      (line  6)
 
-
 
 Tag Table:
-Node: Top1740
-Node: Introduction to Ledger-mode2551
-Node: Quick Installation2780
-Node: Menus3712
-Node: Quick Demo4027
-Node: Quick Add4457
-Node: Reconciliation5555
-Node: Reports7239
-Node: Narrowing8269
-Node: The Ledger Buffer8853
-Node: Navigating Transactions9259
-Node: Adding Transactions9819
-Node: Setting a Transactions Effective Date11316
-Node: Quick Balance Display12216
-Node: Copying Transactions12748
-Node: Editing Amounts13350
-Node: Marking Transactions14421
-Node: Formatting Transactions16114
-Node: Deleting Transactions16712
-Node: Sorting Transactions17152
-Node: Narrowing Transactions18700
-Node: The Reconcile Buffer20544
-Node: Basics of Reconciliation21009
-Node: Starting a Reconciliation21956
-Node: Mark Transactions Pending23805
-Node: Edit Transactions During Reconciliation24474
-Node: Finalize Reconciliation25117
-Node: Adding and Deleting Transactions during Reconciliation25774
-Node: Changing Reconciliation Account26358
-Node: Changing Reconciliation Target26908
-Node: The Report Buffer27226
-Node: Running Basic Reports27484
-Node: Adding and Editing Reports28917
-Node: Expansion Formats30302
-Node: Make Report Transactions Active31943
-Node: Reversing Report Order32648
-Node: Scheduling Transactions33341
-Node: Specifying Upcoming Transactions34195
-Node: Transactions that occur on specific dates34767
-Node: Transactions that occur on specific days35808
-Node: Customizing Ledger-mode36937
-Node: Ledger-mode Customization37201
-Node: Customization Variables37886
-Node: Ledger Customization Group38366
-Node: Ledger Reconcile Customization Group39006
-Node: Ledger Report Customization Group41933
-Node: Ledger Faces Customization Group42652
-Node: Ledger Post Customization Group44399
-Node: Ledger Exec Customization Group45226
-Node: Ledger Test Customization Group45723
-Node: Ledger Texi Customization Group46125
-Node: Generating Ledger Regression Tests46617
-Node: Embedding Example results in Ledger Documentation46880
-Node: Hacking Ledger-mode47169
-Node: Use org-like outlines47394
-Node: Concept Index48059
-Node: Command & Variable Index53575
-Node: Keystroke Index61685
+Node: Top1738
+Node: Introduction to Ledger-mode2549
+Node: Quick Installation2778
+Node: Menus3710
+Node: Quick Demo4025
+Node: Quick Add4455
+Node: Reconciliation5553
+Node: Reports7237
+Node: Narrowing8267
+Node: The Ledger Buffer8851
+Node: Navigating Transactions9257
+Node: Adding Transactions9817
+Node: Setting a Transactions Effective Date11314
+Node: Quick Balance Display12214
+Node: Copying Transactions12746
+Node: Editing Amounts13348
+Node: Marking Transactions14419
+Node: Formatting Transactions16112
+Node: Deleting Transactions16710
+Node: Sorting Transactions17150
+Node: Narrowing Transactions18698
+Node: The Reconcile Buffer20542
+Node: Basics of Reconciliation21007
+Node: Starting a Reconciliation21954
+Node: Mark Transactions Pending23803
+Node: Edit Transactions During Reconciliation24472
+Node: Finalize Reconciliation25115
+Node: Adding and Deleting Transactions during Reconciliation25772
+Node: Changing Reconciliation Account26356
+Node: Changing Reconciliation Target26906
+Node: The Report Buffer27224
+Node: Running Basic Reports27482
+Node: Adding and Editing Reports28915
+Node: Expansion Formats30300
+Node: Make Report Transactions Active31941
+Node: Reversing Report Order32646
+Node: Scheduling Transactions33339
+Node: Specifying Upcoming Transactions34193
+Node: Transactions that occur on specific dates34765
+Node: Transactions that occur on specific days35806
+Node: Customizing Ledger-mode36935
+Node: Ledger-mode Customization37199
+Node: Customization Variables37884
+Node: Ledger Customization Group38364
+Node: Ledger Reconcile Customization Group39004
+Node: Ledger Report Customization Group41931
+Node: Ledger Faces Customization Group42650
+Node: Ledger Post Customization Group44397
+Node: Ledger Exec Customization Group45224
+Node: Ledger Test Customization Group45721
+Node: Ledger Texi Customization Group46123
+Node: Generating Ledger Regression Tests46615
+Node: Embedding Example results in Ledger Documentation46878
+Node: Hacking Ledger-mode47167
+Node: Use org-like outlines47392
+Node: Concept Index48039
+Node: Command & Variable Index53555
+Node: Keystroke Index61665
 
 End Tag Table
 

lisp/ledger-mode/ledger-occur.el

@@ -119,7 +119,7 @@ long, otherwise it is the word at point."
   "Make an overlay for an invisible portion of the buffer, from BEG to END."
   (let ((ovl (make-overlay beg end)))
     (overlay-put ovl ledger-occur-overlay-property-name t)
-    (overlay-put ovl 'invisible t)))
+    (overlay-put ovl 'invisible 'ledger-occur-hidden)))
 
 (defun ledger-occur-create-overlays (ovl-bounds)
   "Create the overlays for the visible transactions.
@@ -150,8 +150,8 @@ Argument OVL-BOUNDS contains bounds for the transactions to be left visible."
       ;; Search loop
       (while (not (eobp))
         ;; if something found
-        (when-let ((endpoint (re-search-forward regex nil 'end))
-                   (bounds (ledger-navigate-find-element-extents endpoint)))
+        (when-let* ((endpoint (re-search-forward regex nil 'end))
+                    (bounds (ledger-navigate-find-element-extents endpoint)))
           (push bounds lines)
           ;; move to the end of the xact, no need to search inside it more
           (goto-char (cadr bounds))))

lisp/ledger-mode/ledger-post.el

@@ -210,7 +210,7 @@ Error if the commodities do not match."
       (cl-loop
        while (re-search-forward ledger-post-line-regexp end t)
        for account-end = (match-end ledger-regex-post-line-group-account)
-       for amount-string = (when-let ((amount-string (match-string ledger-regex-post-line-group-amount)))
+       for amount-string = (when-let* ((amount-string (match-string ledger-regex-post-line-group-amount)))
                              (unless (string-empty-p (string-trim amount-string))
                                amount-string))
        if (not amount-string)

lisp/ledger-mode/ledger-reconcile.el

@@ -221,9 +221,9 @@ described above."
   "Display the cleared-or-pending balance.
 And calculate the target-delta of the account being reconciled."
   (interactive)
-  (when-let (pending (ledger-reconcile-get-cleared-or-pending-balance ledger-reconcile-ledger-buf ledger-reconcile-account))
+  (when-let* ((pending (ledger-reconcile-get-cleared-or-pending-balance ledger-reconcile-ledger-buf ledger-reconcile-account)))
     (let ((message
-           (if-let (diff (and ledger-reconcile-target (ledger-subtract-commodity ledger-reconcile-target pending)))
+           (if-let* ((diff (and ledger-reconcile-target (ledger-subtract-commodity ledger-reconcile-target pending))))
                (progn
                  (setq ledger-reconcile-last-balance-equals-target (zerop (car diff)))
                  (format-message "Cleared and Pending balance: %s,   Difference from target: %s"

lisp/ledger-mode/ledger-report.el

@@ -1,4 +1,4 @@
-;;; ledger-report.el --- Helper code for use with the "ledger" command-line tool  -*- lexical-binding: t; -*-
+;; ledger-report.el --- Helper code for use with the "ledger" command-line tool  -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org)
 
@@ -432,8 +432,8 @@ called in the ledger buffer for which the report is being run."
     (with-temp-buffer
       (save-excursion (insert report-cmd))
       (while (re-search-forward "%(\\([^)]*\\))" nil t)
-        (when-let ((specifier (match-string 1))
-                   (f (cdr (assoc specifier ledger-report-format-specifiers))))
+        (when-let* ((specifier (match-string 1))
+                    (f (cdr (assoc specifier ledger-report-format-specifiers))))
           (let* ((arg (save-match-data
                         (with-current-buffer ledger-buf
                           (funcall f))))
@@ -442,7 +442,7 @@ called in the ledger buffer for which the report is being run."
                                (string-join arg " ")
                              (shell-quote-argument arg)))))
             (replace-match quoted 'fixedcase 'literal))))
-       (buffer-string))))
+      (buffer-string))))
 
 (defun ledger-report--cmd-needs-links-p (cmd)
   "Check links should be added to the report produced by CMD."
@@ -553,12 +553,14 @@ specific posting at point instead."
   (interactive)
   (let* ((prop (get-text-property (point) 'ledger-source))
          (file (car prop))
-         (line (cdr prop)))
-    (when (and file line)
+         (xact-position (cdr prop)))
+    (when (and file xact-position)
       (find-file-other-window file)
       (widen)
-      (goto-char (point-min))
-      (forward-line (1- line))
+      (if (markerp xact-position) 
+	  (goto-char xact-position)
+ 	(progn (goto-char (point-min))
+	 (forward-line (1- xact-position))))
       (when ledger-report-links-beginning-of-xact
         (ledger-navigate-beginning-of-xact)))))
 
@@ -632,7 +634,7 @@ IGNORE-AUTO and NOCONFIRM are for compatibility with
   (when (string-empty-p ledger-report-name)
     (setq ledger-report-name (ledger-report-read-new-name)))
 
-  (when-let ((existing-name (ledger-report-name-exists ledger-report-name)))
+  (when-let* ((existing-name (ledger-report-name-exists ledger-report-name)))
     (cond ((y-or-n-p (format "Overwrite existing report named '%s'? "
                              ledger-report-name))
            (if (string-equal

lisp/ledger-mode/ledger-schedule.el

@@ -103,15 +103,15 @@ COUNT 0) means EVERY day-of-week (eg. every Saturday)"
       (cond ((zerop count) ;; Return true if day-of-week matches
              `(eq (nth 6 (decode-time date)) ,day-of-week))
             ((> count 0) ;; Positive count
-             (let ((decoded (cl-gensym)))
+             (let ((decoded (gensym)))
                `(let ((,decoded (decode-time date)))
                   (and (eq (nth 6 ,decoded) ,day-of-week)
                        (<= ,(* (1- count) 7)
                            (nth 3 ,decoded)
                            ,(* count 7))))))
             ((< count 0)
-             (let ((days-in-month (cl-gensym))
-                   (decoded (cl-gensym)))
+             (let ((days-in-month (gensym))
+                   (decoded (gensym)))
                `(let* ((,decoded (decode-time date))
                        (,days-in-month (ledger-schedule-days-in-month
                                         (nth 4 ,decoded)
@@ -138,9 +138,9 @@ For example every second Friday, regardless of month."
 (defun ledger-schedule-constrain-date-range (month1 day1 month2 day2)
   "Return a form of DATE that is true if DATE falls between two dates.
 The dates are given by the pairs MONTH1 DAY1 and MONTH2 DAY2."
-  (let ((decoded (cl-gensym))
-        (target-month (cl-gensym))
-        (target-day (cl-gensym)))
+  (let ((decoded (gensym))
+        (target-month (gensym))
+        (target-day (gensym)))
     `(let* ((,decoded (decode-time date))
             (,target-month (nth 4 decoded))
             (,target-day (nth 3 decoded)))

lisp/ledger-mode/ledger-xact.el

@@ -85,12 +85,12 @@ When nil, `ledger-add-transaction' will not prompt twice."
 
 (defun ledger-xact-payee ()
   "Return the payee of the transaction containing point or nil."
-  (when-let ((xact-context (ledger-xact-context)))
+  (when-let* ((xact-context (ledger-xact-context)))
     (ledger-context-field-value xact-context 'payee)))
 
 (defun ledger-xact-date ()
   "Return the date of the transaction containing point or nil."
-  (when-let ((xact-context (ledger-xact-context)))
+  (when-let* ((xact-context (ledger-xact-context)))
     (ledger-context-field-value xact-context 'date)))
 
 (defun ledger-xact-find-slot (moment)
@@ -117,7 +117,7 @@ MOMENT is an encoded date"
          (current-year (nth 5 (decode-time now))))
     (while (not (eobp))
       (when (looking-at ledger-iterate-regexp)
-        (if-let ((year (match-string 1)))
+        (if-let* ((year (match-string 1)))
             (setq current-year (string-to-number year)) ;a Y directive was found
           (let ((start (match-beginning 0))
                 (year (match-string (+ ledger-regex-iterate-group-actual-date 1)))