Commit f2116cf9 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(menu-bar-update-buffers, menu-bar-update-buffers): Don't quote lambda.

parent d6373ed5
...@@ -1017,7 +1017,7 @@ key (or menu-item)")) ...@@ -1017,7 +1017,7 @@ key (or menu-item)"))
"List All Buffers")) "List All Buffers"))
;; Now make the actual list of items, ;; Now make the actual list of items,
;; ending with the list-buffers item. ;; ending with the list-buffers item.
(nconc (mapcar '(lambda (pair) (nconc (mapcar (lambda (pair)
;; This is somewhat risque, to use ;; This is somewhat risque, to use
;; the buffer name itself as the event ;; the buffer name itself as the event
;; type to define, but it works. ;; type to define, but it works.
...@@ -1040,7 +1040,7 @@ key (or menu-item)")) ...@@ -1040,7 +1040,7 @@ key (or menu-item)"))
(frames-menu (frames-menu
(cons 'keymap (cons 'keymap
(cons "Select Frame" (cons "Select Frame"
(mapcar '(lambda (frame) (mapcar (lambda (frame)
(nconc (list frame (nconc (list frame
(cdr (assq 'name (cdr (assq 'name
(frame-parameters frame))) (frame-parameters frame)))
......
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