Commit bc8661ca authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-list-to-menu): Bind `command' with let.

parent a16aef15
......@@ -762,6 +762,7 @@ original copy."
(let ((menu (make-sparse-keymap menu-name)))
(mapcar
(function (lambda (item)
(let (command)
(if (consp item)
(progn
(setq command
......@@ -783,7 +784,7 @@ original copy."
item)
rmail-secondary-file-directory))))))
(define-key menu (vector (intern name))
(cons name command))))
(cons name command)))))
(reverse l))
menu))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment