mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 05:21:37 -07:00
Code Issues Projects Releases Wiki Activity

(menu-bar-enable-clipboard): Moved here the

Browse source 
clipboard function key bindings.
This commit is contained in:
Richard M. Stallman 1994-07-31 03:01:00 +00:00
parent 5e7e1da2fe
commit 5cbdeb30e4
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/menu-bar.el
View file

@ -147,7 +147,8 @@
(kill-region beg end))) (kill-region beg end)))
(defun menu-bar-enable-clipboard () (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) (interactive)
;; We can't use constant list structure here because it becomes pure, ;; We can't use constant list structure here because it becomes pure,
;; and because it gets modified with cache data. ;; and because it gets modified with cache data.
@ -156,16 +157,15 @@
(define-key menu-bar-edit-menu [copy] (define-key menu-bar-edit-menu [copy]
(cons "Copy" 'clipboard-kill-ring-save)) (cons "Copy" 'clipboard-kill-ring-save))
(define-key menu-bar-edit-menu [cut] (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 [f20] 'clipboard-kill-region) (define-key global-map [f16] 'clipboard-kill-ring-save)
(define-key global-map [f16] 'clipboard-kill-ring-save) (define-key global-map [f18] 'clipboard-yank)
(define-key global-map [f18] 'clipboard-yank) ;; X11R6 versions
;; X11R6 versions (define-key global-map [cut] 'clipboard-kill-region)
(define-key global-map [cut] 'clipboard-kill-region) (define-key global-map [copy] 'clipboard-kill-ring-save)
(define-key global-map [copy] 'clipboard-kill-ring-save) (define-key global-map [paste] 'clipboard-yank))
(define-key global-map [paste] 'clipboard-yank)
(define-key menu-bar-help-menu [emacs-version] (define-key menu-bar-help-menu [emacs-version]
'("Show Version" . emacs-version)) '("Show Version" . emacs-version))