mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1995-03-12 07:47:33 +00:00
parent a16aef1565
commit bc8661cab0
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lisp/mail/rmail.el
View File

@ -762,28 +762,29 @@ original copy."
(let ((menu (make-sparse-keymap menu-name)))
(mapcar
(function (lambda (item)
(if (consp item)
(let (command)
(if (consp item)
(progn
(setq command
(rmail-list-to-menu (car item) (cdr item)
action
(if full-name
(concat full-name "/"
(car item))
(car item))))
(setq name (car item)))
(progn
(setq command
(rmail-list-to-menu (car item) (cdr item)
action
(if full-name
(concat full-name "/"
(car item))
(car item))))
(setq name (car item)))
(progn
(setq name item)
(setq command
(list 'lambda () '(interactive)
(list action
(expand-file-name
(if full-name
(concat full-name "/" item)
item)
rmail-secondary-file-directory))))))
(define-key menu (vector (intern name))
(cons name command))))
(setq name item)
(setq command
(list 'lambda () '(interactive)
(list action
(expand-file-name
(if full-name
(concat full-name "/" item)
item)
rmail-secondary-file-directory))))))
(define-key menu (vector (intern name))
(cons name command)))))
(reverse l))
menu))