mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(mouse-menu-choose-yank): Just return when x-popup-menu returns nil.

Browse Source 
Add menu-enable property to this function.
This commit is contained in:
Roland McGrath 1993-07-01 03:31:58 +00:00
parent ac2a7a9197
commit dfabc98f78
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/menu-bar.el
View File

@ -121,13 +121,20 @@ A subsequent \\[yank] yanks the choice just selected."
0 yank-menu-length)))
(prog1 (cons string count)
(setq count (1+ count))))
kill-ring)))
(rotate-yank-pointer (x-popup-menu event
(list "Yank Menu"
(cons "Pick Selection" menu))))
(if (interactive-p)
(message "The next yank will insert the selected text.")
(current-kill 0))))
kill-ring))
(arg (x-popup-menu event
(list "Yank Menu"
(cons "Pick Selection" 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
(if arg
(progn
(rotate-yank-pointer arg)
(if (interactive-p)
(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))