Mercurial > emacs
changeset 10721:3d056c5a8319
(menu-bar-kill-ring-save): New function--use as `copy'.
(delete-region): Don't enable if (mouse-region-match) is true.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 12 Feb 1995 04:54:34 +0000 |
| parents | 4526bdcc806e |
| children | 8ba6f9709cff |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Sun Feb 12 04:51:42 1995 +0000 +++ b/lisp/menu-bar.el Sun Feb 12 04:54:34 1995 +0000 @@ -121,16 +121,23 @@ (defvar yank-menu (cons "Select Yank" nil)) (fset 'yank-menu (cons 'keymap yank-menu)) (define-key menu-bar-edit-menu [select-paste] '("Select and Paste" . yank-menu)) -(define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) +(define-key menu-bar-edit-menu [copy] '("Copy" . menu-bar-kill-ring-save)) (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) (define-key menu-bar-edit-menu [undo] '("Undo" . undo)) +(defun menu-bar-kill-ring-save (beg end) + (interactive "r") + (if (mouse-region-match) + (message "Select a region with the mouse does `copy' automatically") + (kill-ring-save beg end))) + (put 'fill-region 'menu-enable 'mark-active) (put 'kill-region 'menu-enable 'mark-active) -(put 'kill-ring-save 'menu-enable 'mark-active) +(put 'menu-bar-kill-ring-save 'menu-enable 'mark-active) (put 'yank 'menu-enable '(x-selection-exists-p)) (put 'yank-menu 'menu-enable '(cdr yank-menu)) -(put 'delete-region 'menu-enable 'mark-active) +(put 'delete-region 'menu-enable '(and mark-active + (not (mouse-region-match)))) (put 'undo 'menu-enable '(if (eq last-command 'undo) pending-undo-list (consp buffer-undo-list))) @@ -139,7 +146,7 @@ (autoload 'ispell-menu-map "ispell" nil t 'keymap) ;; These are alternative definitions for the cut, paste and copy -;; menu items. Use them if your system expects these to use the clipboard +;; menu items. Use them if your system expects these to use the clipboard. (put 'clipboard-kill-region 'menu-enable 'mark-active) (put 'clipboard-kill-ring-save 'menu-enable 'mark-active)