mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Probably fix the `helper' argument in feedmail.el

Browse source 
* lisp/mail/feedmail.el (feedmail-queue-send-edit-prompt-inner):
Return the helper function (instead of the symbol `helper') so
that the caller can actually call it.
This commit is contained in:
Lars Ingebrigtsen 2019-06-15 17:46:23 +02:00
parent b7b4dd9990
commit 64a14444b5
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/feedmail.el
View file

@ -2168,9 +2168,7 @@ you can set `feedmail-queue-reminder-alist' to nil."
(let ((inhibit-quit t) (cursor-in-echo-area t) (echo-keystrokes 0))
(read-char-exclusive))))
(if (= user-sez help-char)
;; FIXME: This seems to want to refer to the `helper' argument,
;; but it's quoted so the `helper' arg ends up unused!
(setq answer '(^ . helper))
(setq answer (cons '^ helper))
(if (or (eq user-sez ?\C-m) (eq user-sez ?\C-j) (eq user-sez ?y))
(setq user-sez d-char))
;; these char-to-int things are because of some