mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-23 14:32:12 -07:00
Code Issues Projects Releases Wiki Activity

Bind "Copy" menu item to kill-ring-save, obsoleting menu-bar-kill-ring-save.

Browse source 
* menu-bar.el (menu-bar-kill-ring-save): Make obsolete.
(menu-bar-edit-menu): Bind "Copy" to kill-ring-save.  Don't use
mouse-region-match.
This commit is contained in:
Chong Yidong 2010-12-20 22:44:28 +08:00
parent f13183cf19
commit 3f95d7ffba
2 changed files with 8 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,9 +1,11 @@
2010-12-20 Chong Yidong <cyd@stupidchicken.com>
* menu-bar.el (menu-bar-kill-ring-save): Make obsolete.
(menu-bar-edit-menu): Bind "Copy" to kill-ring-save. Don't use
mouse-region-match.
* color.el: Move from gnus/.
2010-12-20 Chong Yidong <cyd@stupidchicken.com>
* vc/diff.el (diff-better-file-name): Function deleted.
abbreviating file names causes problems with shell-quote-argument.
(diff-no-select): Just use expand-file-name.

12
lisp/menu-bar.el
View file

@ -479,8 +479,7 @@
(define-key menu-bar-edit-menu [clear]
`(menu-item ,(purecopy "Clear") delete-region
:enable (and mark-active
(not buffer-read-only)
(not (mouse-region-match)))
(not buffer-read-only))
:help
,(purecopy "Delete the text in region between mark and current position")))
(defvar yank-menu (cons (purecopy "Select Yank") nil))
@ -510,7 +509,7 @@
;; under X (for GNUstep).
`(menu-item ,(purecopy "Copy") ,(if (featurep 'ns)
'ns-copy-including-secondary
'menu-bar-kill-ring-save)
'kill-ring-save)
:enable mark-active
:help ,(purecopy "Copy text in region between mark and current position")
:keys ,(purecopy (if (featurep 'ns)
@ -534,11 +533,8 @@
(consp buffer-undo-list)))
:help ,(purecopy "Undo last operation")))
(defun menu-bar-kill-ring-save (beg end)
(interactive "r")
(if (mouse-region-match)
(message "Selecting a region with the mouse does `copy' automatically")
(kill-ring-save beg end)))
(define-obsolete-function-alias
'menu-bar-kill-ring-save 'kill-ring-save "24.1")
;; These are alternative definitions for the cut, paste and copy
;; menu items. Use them if your system expects these to use the clipboard.