;; Avishai Yacobi suggested some menu rearrangements.
+;;; User options:
+
+(defvar buffers-menu-max-size 10
+ "*Maximum number of entries which may appear on the Buffers menu.
+If this is 10, then only the ten most-recently-selected buffers are shown.
+If this is nil, then all buffers are shown.
+A large number or nil slows down menu responsiveness.")
+
;;; Code:
;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key
(define-key menu-bar-tools-menu [calendar] '("Display Calendar" . calendar))
(define-key menu-bar-tools-menu [rmail] '("Read Mail" . rmail))
-(if (fboundp 'open-network-stream)
- (define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus)))
+(define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus))
(define-key menu-bar-tools-menu [separator-vc]
'("--"))
(if (fboundp 'delete-frame)
(progn
- (define-key menu-bar-files-menu [delete-frame]
+ ;; Don't use delete-frame as event name
+ ;; because that is a special event.
+ (define-key menu-bar-files-menu [delete-this-frame]
'("Delete Frame" . delete-frame))
(define-key menu-bar-files-menu [make-frame-on-display]
'("Open New Display..." . make-frame-on-display))
(define-key menu-bar-files-menu [dired] '("Open Directory..." . dired))
(define-key menu-bar-files-menu [open-file] '("Open File..." . find-file))
-;; This is just one element of the ediff menu--the first.
-(define-key menu-bar-ediff-menu [window]
- '("This Window And Next Window" . compare-windows))
\f
(defun nonincremental-search-forward (string)
"Read a string and search for it nonincrementally."
(define-key global-map [menu-bar buffer]
(cons "Buffers" (make-sparse-keymap "Buffers")))
-(defvar buffers-menu-max-size 10
- "*Maximum number of entries which may appear on the Buffers menu.
-If this is 10, then only the ten most-recently-selected buffers are shown.
-If this is nil, then all buffers are shown.
-A large number or nil slows down menu responsiveness.")
-
(defvar list-buffers-directory nil)
(defvar menu-bar-update-buffers-maxbuf)
(define-key map [menu-bar minibuf space]
'("Complete Word" . minibuffer-complete-word))
(define-key map [menu-bar minibuf tab]
- '("Complete" . 'minibuffer-complete))
+ '("Complete" . minibuffer-complete))
))
(list minibuffer-local-must-match-map
minibuffer-local-completion-map))