emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master b7f318a: Fix up previous mh-speed.el ignored variable change


From: Lars Ingebrigtsen
Subject: master b7f318a: Fix up previous mh-speed.el ignored variable change
Date: Fri, 22 Jan 2021 13:22:15 -0500 (EST)

branch: master
commit b7f318aa9611f132ba93745f663573bd223a2641
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix up previous mh-speed.el ignored variable change
    
    * lisp/mh-e/mh-speed.el (mh-speed-toggle, mh-speed-view): Mark the
    ignored parameter with _ instead of using the Common Lispish
    (declare (ignore args)) (which Emacs Lisp doesn't really support),
    except by accident.
---
 lisp/mh-e/mh-speed.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lisp/mh-e/mh-speed.el b/lisp/mh-e/mh-speed.el
index 00b9680..7cbd42c 100644
--- a/lisp/mh-e/mh-speed.el
+++ b/lisp/mh-e/mh-speed.el
@@ -125,10 +125,9 @@ With non-nil FORCE, the update is always carried out."
         ;; Otherwise on to your regular programming
         (t t)))
 
-(defun mh-speed-toggle (&rest ignored)
+(defun mh-speed-toggle (&rest _ignored)
   "Toggle the display of child folders in the speedbar.
 The optional arguments from speedbar are IGNORED."
-  (declare (ignore args))
   (interactive)
   (beginning-of-line)
   (let ((parent (get-text-property (point) 'mh-folder))
@@ -164,10 +163,9 @@ The optional arguments from speedbar are IGNORED."
               (mh-line-beginning-position) (1+ (line-beginning-position))
               '(mh-expanded t)))))))
 
-(defun mh-speed-view (&rest ignored)
+(defun mh-speed-view (&rest _ignored)
   "Visits the selected folder just as if you had used 
\\<mh-folder-mode-map>\\[mh-visit-folder].
 The optional arguments from speedbar are IGNORED."
-  (declare (ignore args))
   (interactive)
   (let* ((folder (get-text-property (mh-line-beginning-position) 'mh-folder))
          (range (and (stringp folder)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]