[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 64a1444 2/2: Probably fix the `helper' argument in
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 64a1444 2/2: Probably fix the `helper' argument in feedmail.el |
Date: |
Sat, 15 Jun 2019 11:46:37 -0400 (EDT) |
branch: master
commit 64a14444b5f190819e51e0d260c28a2338574805
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Probably fix the `helper' argument in feedmail.el
* 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.
---
lisp/mail/feedmail.el | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 943bdd8..babc3fc 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -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