From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Apr 1994 05:26:47 +0000 (+0000)
Subject: (global-map): Bind function keys f16, f18 and f20,
X-Git-Tag: emacs-19.34~9108
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2165f6764777f497295afc9352325c5023d0ab66;p=emacs.git

(global-map): Bind function keys f16, f18 and f20,
which Sun knows as copy, paste and cut.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 8b51ba65119..c4c11053860 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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))