[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b7f318a: Fix up previous mh-speed.el ignored variable change,
Lars Ingebrigtsen <=