diff options
| author | Lars Ingebrigtsen | 2019-06-15 17:46:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-15 17:46:23 +0200 |
| commit | 64a14444b5f190819e51e0d260c28a2338574805 (patch) | |
| tree | 108d820d88a58cf58a6404479e6ad51b744651a1 | |
| parent | b7b4dd99907be6b585e42da8618579644e68873d (diff) | |
| download | emacs-64a14444b5f190819e51e0d260c28a2338574805.tar.gz emacs-64a14444b5f190819e51e0d260c28a2338574805.zip | |
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.
| -rw-r--r-- | lisp/mail/feedmail.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 943bdd88510..babc3fc212a 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el | |||
| @@ -2168,9 +2168,7 @@ you can set `feedmail-queue-reminder-alist' to nil." | |||
| 2168 | (let ((inhibit-quit t) (cursor-in-echo-area t) (echo-keystrokes 0)) | 2168 | (let ((inhibit-quit t) (cursor-in-echo-area t) (echo-keystrokes 0)) |
| 2169 | (read-char-exclusive)))) | 2169 | (read-char-exclusive)))) |
| 2170 | (if (= user-sez help-char) | 2170 | (if (= user-sez help-char) |
| 2171 | ;; FIXME: This seems to want to refer to the `helper' argument, | 2171 | (setq answer (cons '^ helper)) |
| 2172 | ;; but it's quoted so the `helper' arg ends up unused! | ||
| 2173 | (setq answer '(^ . helper)) | ||
| 2174 | (if (or (eq user-sez ?\C-m) (eq user-sez ?\C-j) (eq user-sez ?y)) | 2172 | (if (or (eq user-sez ?\C-m) (eq user-sez ?\C-j) (eq user-sez ?y)) |
| 2175 | (setq user-sez d-char)) | 2173 | (setq user-sez d-char)) |
| 2176 | ;; these char-to-int things are because of some | 2174 | ;; these char-to-int things are because of some |