update packages

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))