update packages

lisp/ledger-mode/ledger-check.el

@@ -32,20 +32,20 @@
 
 
 (defvar ledger-check-buffer-name "*Ledger Check*")
-(defvar ledger-original-window-cfg nil)
+(defvar-local ledger-check--original-window-configuration nil)
 
 
 
 
 (defvar ledger-check-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map [return] 'ledger-report-visit-source)
-    (define-key map [?q] 'ledger-check-quit)
+    (define-key map (kbd "RET") #'ledger-report-visit-source)
+    (define-key map (kbd "q") #'ledger-check-quit)
     map)
   "Keymap for `ledger-check-mode'.")
 
 (easy-menu-define ledger-check-mode-menu ledger-check-mode-map
-  "Ledger check menu"
+  "Ledger check menu."
   '("Check"
     ;; ["Re-run Check" ledger-check-redo]
     "---"
@@ -106,22 +106,25 @@
   "Quit the ledger check buffer."
   (interactive)
   (ledger-check-goto)
-  (set-window-configuration ledger-original-window-cfg)
+  (set-window-configuration ledger-check--original-window-configuration)
   (kill-buffer (get-buffer ledger-check-buffer-name)))
 
-(defun ledger-check-buffer ()
+(defun ledger-check-buffer (&optional interactive)
   "Check the current buffer for errors.
 
 Runs ledger with --explicit and --strict report errors and assist
 with fixing them.
 
 The output buffer will be in `ledger-check-mode', which defines
-commands for navigating the buffer to the errors found, etc."
-  (interactive
-   (progn
-     (when (and (buffer-modified-p)
-                (y-or-n-p "Buffer modified, save it? "))
-       (save-buffer))))
+commands for navigating the buffer to the errors found, etc.
+
+When INTERACTIVE is non-nil (i.e., when called interactively),
+prompt to save if the current buffer is modified."
+  (interactive "p")
+  (when (and interactive
+             (buffer-modified-p)
+             (y-or-n-p "Buffer modified, save it? "))
+    (save-buffer))
   (let ((_buf (find-file-noselect (ledger-master-file)))
         (cbuf (get-buffer ledger-check-buffer-name))
         (wcfg (current-window-configuration)))
@@ -130,7 +133,7 @@ commands for navigating the buffer to the errors found, etc."
     (with-current-buffer
         (pop-to-buffer (get-buffer-create ledger-check-buffer-name))
       (ledger-check-mode)
-      (set (make-local-variable 'ledger-original-window-cfg) wcfg)
+      (setq ledger-check--original-window-configuration wcfg)
       (ledger-do-check)
       (shrink-window-if-larger-than-buffer)
       (set-buffer-modified-p nil)