mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(clipboard-yank): avoid checking (x-selection-exists-p) if unbound in

Browse Source 
order to enable the item.  For paste menu item, same, and check
kill-ring.
This commit is contained in:
David Reitter 2009-03-04 18:57:53 +00:00
parent 4891ba1dcf
commit a728dc59a1
2 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2009-03-04 David Reitter <david.reitter@gmail.com>
* menu-bar.el (clipboard-yank): avoid
checking (x-selection-exists-p) if unbound in order to enable the
item. For paste menu item, same, and check kill-ring.
2009-03-04 Sam Steingold <sds@gnu.org>
* progmodes/compile.el (compilation-error-regexp-alist-alist):

18
lisp/menu-bar.el
View File

@ -456,11 +456,13 @@
:help "Choose a string from the kill ring and paste it"))
(define-key menu-bar-edit-menu [paste]
'(menu-item "Paste" yank
:enable (and
;; Emacs compiled --without-x doesn't have
;; x-selection-exists-p.
(fboundp 'x-selection-exists-p)
(x-selection-exists-p) (not buffer-read-only))
:enable (and (or
;; Emacs compiled --without-x doesn't have
;; x-selection-exists-p.
(and (fboundp 'x-selection-exists-p)
(x-selection-exists-p))
kill-ring)
(not buffer-read-only))
:help "Paste (yank) text most recently cut/copied"))
(define-key menu-bar-edit-menu [copy]
'(menu-item "Copy" menu-bar-kill-ring-save
@ -495,10 +497,10 @@
'(and mark-active (not buffer-read-only)))
(put 'clipboard-kill-ring-save 'menu-enable 'mark-active)
(put 'clipboard-yank 'menu-enable
'(and (or (and (fboundp 'x-selection-exists-p)
(x-selection-exists-p))
'(and (or (not (fboundp 'x-selection-exists-p))
(x-selection-exists-p)
(x-selection-exists-p 'CLIPBOARD))
(not buffer-read-only)))
(not buffer-read-only)))
(defun clipboard-yank ()
"Insert the clipboard contents, or the last stretch of killed text."