diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-26 11:28:03 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-26 11:28:03 -0400 |
commit | 28d0654943ca4e66cdcb498c53dc8aaa41fe2fad (patch) | |
tree | 27af5f440e0a02969d479c851fdaa2e3cd14e67e /lisp/mh-e/mh-inc.el | |
parent | c24766c4d59bc7d9f583f299b1558e2356fba933 (diff) | |
download | emacs-28d0654943ca4e66cdcb498c53dc8aaa41fe2fad.tar.gz |
* lisp/mh-e/: Take advice-remove of the newly enabled lexical-binding
* lisp/mh-e/mh-mime.el (mh-mm-inline-message):
* lisp/mh-e/mh-inc.el (mh-inc-spool-generator): Replace `(lambda...)
with a proper closure.
Diffstat (limited to 'lisp/mh-e/mh-inc.el')
-rw-r--r-- | lisp/mh-e/mh-inc.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/mh-e/mh-inc.el b/lisp/mh-e/mh-inc.el index 90d54895261..6a29195afbb 100644 --- a/lisp/mh-e/mh-inc.el +++ b/lisp/mh-e/mh-inc.el @@ -62,15 +62,11 @@ (defun mh-inc-spool-generator (folder spool) "Create a command to inc into FOLDER from SPOOL file." - (let ((folder1 (make-symbol "folder")) - (spool1 (make-symbol "spool"))) - (set folder1 folder) - (set spool1 spool) - (setf (symbol-function (intern (concat "mh-inc-spool-" folder))) - `(lambda () - ,(format "Inc spool file %s into folder %s." spool folder) - (interactive) - (mh-inc-folder ,spool1 (concat "+" ,folder1)))))) + (defalias (symbol-function (intern (concat "mh-inc-spool-" folder))) + (lambda () + (:documentation (format "Inc spool file %s into folder %s." spool folder)) + (interactive) + (mh-inc-folder spool (concat "+" folder))))) (defun mh-inc-spool-def-key (key folder) "Define a KEY in `mh-inc-spool-map' to inc FOLDER and collect help string." |