+ (define-key map [menu-bar Buffer-menu-mode] (cons (purecopy "Buffer-Menu") menu-map))
+ (define-key menu-map [quit]
+ `(menu-item ,(purecopy "Quit") quit-window
+ :help ,(purecopy "Remove the buffer menu from the display")))
+ (define-key menu-map [rev]
+ `(menu-item ,(purecopy "Refresh") revert-buffer
+ :help ,(purecopy "Refresh the *Buffer List* buffer contents")))
+ (define-key menu-map [s0] menu-bar-separator)
+ (define-key menu-map [tf]
+ `(menu-item ,(purecopy "Show only file buffers") Buffer-menu-toggle-files-only
+ :button (:toggle . Buffer-menu-files-only)
+ :help ,(purecopy "Toggle whether the current buffer-menu displays only file buffers")))
+ (define-key menu-map [s1] menu-bar-separator)
+ ;; FIXME: The "Select" entries could use better names...
+ (define-key menu-map [sel]
+ `(menu-item ,(purecopy "Select marked") Buffer-menu-select
+ :help ,(purecopy "Select this line's buffer; also display buffers marked with `>'")))
+ (define-key menu-map [bm2]
+ `(menu-item ,(purecopy "Select two") Buffer-menu-2-window
+ :help ,(purecopy "Select this line's buffer, with previous buffer in second window")))
+ (define-key menu-map [bm1]
+ `(menu-item ,(purecopy "Select current") Buffer-menu-1-window
+ :help ,(purecopy "Select this line's buffer, alone, in full frame")))
+ (define-key menu-map [ow]
+ `(menu-item ,(purecopy "Select in other window") Buffer-menu-other-window
+ :help ,(purecopy "Select this line's buffer in other window, leaving buffer menu visible")))
+ (define-key menu-map [tw]
+ `(menu-item ,(purecopy "Select in current window") Buffer-menu-this-window
+ :help ,(purecopy "Select this line's buffer in this window")))
+ (define-key menu-map [s2] menu-bar-separator)
+ (define-key menu-map [is]
+ `(menu-item ,(purecopy "Regexp Isearch marked buffers") Buffer-menu-isearch-buffers-regexp
+ :help ,(purecopy "Search for a regexp through all marked buffers using Isearch")))
+ (define-key menu-map [ir]
+ `(menu-item ,(purecopy "Isearch marked buffers") Buffer-menu-isearch-buffers
+ :help ,(purecopy "Search for a string through all marked buffers using Isearch")))
+ (define-key menu-map [s3] menu-bar-separator)
+ (define-key menu-map [by]
+ `(menu-item ,(purecopy "Bury") Buffer-menu-bury
+ :help ,(purecopy "Bury the buffer listed on this line")))
+ (define-key menu-map [vt]
+ `(menu-item ,(purecopy "Set unmodified") Buffer-menu-not-modified
+ :help ,(purecopy "Mark buffer on this line as unmodified (no changes to save)")))
+ (define-key menu-map [ex]
+ `(menu-item ,(purecopy "Execute") Buffer-menu-execute
+ :help ,(purecopy "Save and/or delete buffers marked with s or k commands")))
+ (define-key menu-map [s4] menu-bar-separator)
+ (define-key menu-map [delb]
+ `(menu-item ,(purecopy "Mark for delete and move backwards") Buffer-menu-delete-backwards
+ :help ,(purecopy "Mark buffer on this line to be deleted by x command and move up one line")))
+ (define-key menu-map [del]
+ `(menu-item ,(purecopy "Mark for delete") Buffer-menu-delete
+ :help ,(purecopy "Mark buffer on this line to be deleted by x command")))
+
+ (define-key menu-map [sv]
+ `(menu-item ,(purecopy "Mark for save") Buffer-menu-save
+ :help ,(purecopy "Mark buffer on this line to be saved by x command")))
+ (define-key menu-map [umk]
+ `(menu-item ,(purecopy "Unmark") Buffer-menu-unmark
+ :help ,(purecopy "Cancel all requested operations on buffer on this line and move down")))
+ (define-key menu-map [mk]
+ `(menu-item ,(purecopy "Mark") Buffer-menu-mark
+ :help ,(purecopy "Mark buffer on this line for being displayed by v command")))