Initial revision

[gnu-emacs] / lisp / menu-bar.el

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index e084157ccb021004ff9359ed5690fa8b7f9aacc9..c4a2ea013b8db68d44b48efa57a0bd223e5f237b 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -47,6 +47,8 @@
 
 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region))
 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region))
+(define-key menu-bar-edit-menu [choose-next-paste]
+  '("Choose Next Paste" . mouse-menu-choose-yank))
 (define-key menu-bar-edit-menu [paste] '("Paste" . yank))
 (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save))
 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region))
@@ -124,7 +126,7 @@ A subsequent \\[yank] yanks the choice just selected."
                       kill-ring))
         (arg (x-popup-menu event 
                            (list "Yank Menu"
-                                 (cons "Pick Selection" menu)))))
+                                 (cons "Choose Next Yank" menu)))))
     ;; A mouse click outside the menu returns nil.
     ;; Avoid a confusing error from passing nil to rotate-yank-pointer.
     ;; XXX should this perhaps do something other than simply return? -rm
@@ -135,9 +137,6 @@ A subsequent \\[yank] yanks the choice just selected."
              (message "The next yank will insert the selected text.")
            (current-kill 0))))))
 (put 'mouse-menu-choose-yank 'menu-enable 'kill-ring)
-
-(define-key menu-bar-edit-menu [choose-selection]
-  '("Choose Pasting Selection" . mouse-menu-choose-yank))
 \f
 (define-key global-map [menu-bar buffer] '("Buffers" . mouse-menu-bar-buffers))
 
@@ -198,7 +197,7 @@ and selects that window."
                                 (setq maxlen (length (car (car head))))))
                          (setq tail (cdr tail)))
                        (nconc (reverse head)
-                              (list (cons (concat (make-string (- (/ maxlen 2) 8) ?\ )
+                              (list (cons (concat (make-string (max 0 (- (/ maxlen 2) 8)) ?\ )
                                                   "List All Buffers")
                                           'list-buffers)))))))