From db6be555e9cfde016c69e336c542cd75392b8d53 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sat, 12 Jul 2025 11:32:11 -0500 Subject: Fixing error with defining minor mode MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Used keywords rather than deprecated positional arguments to ‘define-minor-mode’ --- custom/pdf-continuous-scroll-mode.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/custom/pdf-continuous-scroll-mode.el b/custom/pdf-continuous-scroll-mode.el index 838f38b12..1c6040a8a 100644 --- a/custom/pdf-continuous-scroll-mode.el +++ b/custom/pdf-continuous-scroll-mode.el @@ -417,18 +417,18 @@ windows." ;;;###autoload (define-minor-mode pdf-continuous-scroll-mode "Emulate continuous scroll with two synchronized buffers" - nil - " Continuous" - pdf-continuous-scroll-mode-map + + :init-value nil + :lighter " Continuous" + :keymap pdf-continuous-scroll-mode-map (unless pdf-continuous-scroll-mode - (pdf-cscroll-close-window-when-dual)) + (pdf-cscroll-close-window-when-dual)) (set-window-parameter nil 'pdf-scroll-window-status 'single) (defun pdf-outline-imenu-activate-link (&rest args) - ;; bug #14029 - (pdf-cscroll-close-window-when-dual) - (when (eq (nth 2 args) 'pdf-outline-imenu-activate-link) - (setq args (cdr args))) - (pdf-links-action-perform (nth 2 args)))) - + ;; bug #14029 + (pdf-cscroll-close-window-when-dual) + (when (eq (nth 2 args) 'pdf-outline-imenu-activate-link) + (setq args (cdr args))) + (pdf-links-action-perform (nth 2 args)))) (provide 'pdf-continuous-scroll-mode) -- cgit v1.2.3