Mercurial > emacs
diff lisp/menu-bar.el @ 8391:bb9718e6e844
(menu-bar-enable-clipboard): Moved here the
clipboard function key bindings.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 31 Jul 1994 03:01:00 +0000 |
parents | 0fff2106fa43 |
children | fcc070bca96d |
line wrap: on
line diff
--- a/lisp/menu-bar.el Sun Jul 31 00:00:24 1994 +0000 +++ b/lisp/menu-bar.el Sun Jul 31 03:01:00 1994 +0000 @@ -147,7 +147,8 @@ (kill-region beg end))) (defun menu-bar-enable-clipboard () - "Make the menu bar CUT, PASTE and COPY items use the clipboard." + "Make CUT, PASTE and COPY (keys and menu bar items) use the clipboard. +Do the same for the keys of the same name." (interactive) ;; We can't use constant list structure here because it becomes pure, ;; and because it gets modified with cache data. @@ -156,16 +157,15 @@ (define-key menu-bar-edit-menu [copy] (cons "Copy" 'clipboard-kill-ring-save)) (define-key menu-bar-edit-menu [cut] - (cons "Cut" 'clipboard-kill-region))) + (cons "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) -;; X11R6 versions -(define-key global-map [cut] 'clipboard-kill-region) -(define-key global-map [copy] 'clipboard-kill-ring-save) -(define-key global-map [paste] 'clipboard-yank) + (define-key global-map [f20] 'clipboard-kill-region) + (define-key global-map [f16] 'clipboard-kill-ring-save) + (define-key global-map [f18] 'clipboard-yank) + ;; X11R6 versions + (define-key global-map [cut] 'clipboard-kill-region) + (define-key global-map [copy] 'clipboard-kill-ring-save) + (define-key global-map [paste] 'clipboard-yank)) (define-key menu-bar-help-menu [emacs-version] '("Show Version" . emacs-version))