Mercurial > emacs
changeset 6745:469d679ca338
(global-map): Bind function keys f16, f18 and f20,
which Sun knows as copy, paste and cut.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Apr 1994 05:26:47 +0000 |
| parents | 67485a72803d |
| children | cda1ce7952ca |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Fri Apr 08 05:04:07 1994 +0000 +++ b/lisp/menu-bar.el Fri Apr 08 05:26:47 1994 +0000 @@ -92,10 +92,6 @@ ;; These are alternative definitions for the cut, paste and copy ;; menu items. Use them if your system expects these to use the clipboard -(define-key global-map [cut] 'clipboard-kill-region) -(define-key global-map [copy] 'clipboard-kill-ring-save) -(define-key global-map [paste] 'clipboard-yank) - (put 'clipboard-kill-region 'menu-enable 'mark-active) (put 'clipboard-kill-ring-save 'menu-enable 'mark-active) (put 'clipboard-yank 'menu-enable @@ -125,6 +121,11 @@ (define-key menu-bar-edit-menu [paste] '("Paste" . clipboard-yank)) (define-key menu-bar-edit-menu [copy] '("Copy" . clipboard-kill-ring-save)) (define-key menu-bar-edit-menu [cut] '("Cut" . clipboard-kill-region))) + +;; Sun expects these commands on these keys, so why not? +(define-key global-map [f20] 'clipboard-kill-region) +(define-key global-map [f16] 'clipboard-kill-ring-save) +(define-key global-map [f18] 'clipboard-yank) (define-key menu-bar-help-menu [emacs-tutorial] '("Emacs Tutorial" . help-with-tutorial))