Skip to content

Commit

Permalink
Fix up previous mh-speed.el ignored variable change
Browse files Browse the repository at this point in the history
* 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.
  • Loading branch information
larsmagne committed Jan 22, 2021
1 parent 2be55ad commit b7f318a
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions lisp/mh-e/mh-speed.el
Expand Up @@ -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))
Expand Down Expand Up @@ -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)
Expand Down

0 comments on commit b7f318a

Please sign in to comment.