From c13ee8358ae384f469e8bca61dd7e45295869cf7 Mon Sep 17 00:00:00 2001 From: Afonso Rafael Date: Sat, 24 May 2025 19:29:44 +0200 Subject: [PATCH] fix[sclang-minor-mode.el Warning]: deprecated positional arguments MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit With this small patch the warning: Use keywords rather than deprecated positional arguments to ‘define-minor-mode’ should disappear. --- el/sclang-minor-mode.el | 38 +++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) diff --git a/el/sclang-minor-mode.el b/el/sclang-minor-mode.el index c5e2a47..18a39ec 100644 --- a/el/sclang-minor-mode.el +++ b/el/sclang-minor-mode.el @@ -28,17 +28,17 @@ Null prefix argument turns off the mode. When sclang-minor-mode is enabled, you can execute sclang code with the normal command C-c C-c and C-c C-d." ;; The initial value. - nil + :init-value nil ;; The indicator for the mode line. - " sclang" + :lighter " sclang" ;; The minor mode bindings. - '(("\C-c\C-c" . sclang-eval-region-or-line) - ("\C-c\C-d" . sclang-eval-region) - ("\C-\M-x" . sclang-eval-defun) - ("\C-c\C-h" . sclang-find-help) - ("\C-\M-h" . sclang-goto-help-browser) - ("\C-c\C-s" . sclang-main-stop) - ("\C-c\C-k" . sclang-edit-dev-source) + :keymap '(("\C-c\C-c" . sclang-eval-region-or-line) + ("\C-c\C-d" . sclang-eval-region) + ("\C-\M-x" . sclang-eval-defun) + ("\C-c\C-h" . sclang-find-help) + ("\C-\M-h" . sclang-goto-help-browser) + ("\C-c\C-s" . sclang-main-stop) + ("\C-c\C-k" . sclang-edit-dev-source) )) (provide 'sclang-minor-mode) @@ -52,18 +52,18 @@ Null prefix argument turns off the mode. When sclang-help-minor-mode is enabled, you can execute sclang code with the normal command C-c C-c and C-c C-d." ;; The initial value. - nil + :init-value nil ;; The indicator for the mode line. - " sclang-help" + :lighter " sclang-help" ;; The minor mode bindings. - '(("\C-c\C-c" . sclang-eval-region-or-line) - ("\C-c\C-d" . sclang-eval-region) - ("\C-\M-x" . sclang-eval-defun) - ("\C-c\C-h" . sclang-find-help) - ("\C-c\C-s" . sclang-main-stop) - ("\C-c\C-v" . sclang-edit-html-help-file) - ("E" . sclang-edit-help-code) - ("\C-c\C-k" . sclang-edit-dev-source) + :keymap '(("\C-c\C-c" . sclang-eval-region-or-line) + ("\C-c\C-d" . sclang-eval-region) + ("\C-\M-x" . sclang-eval-defun) + ("\C-c\C-h" . sclang-find-help) + ("\C-c\C-s" . sclang-main-stop) + ("\C-c\C-v" . sclang-edit-html-help-file) + ("E" . sclang-edit-help-code) + ("\C-c\C-k" . sclang-edit-dev-source) )) (provide 'sclang-help-minor-mode)