Commit 5cbdeb30 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

clipboard function key bindings.
parent 5e7e1da2
......@@ -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)))
;; 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)
(cons "Cut" 'clipboard-kill-region))
(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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment