Commit 721c26b8 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(menu-bar-edit-menu): Don't use x-selection-exists-p if

it is not fboundp.
(clipboard-yank): Ditto.
parent 91e51f9a
2001-11-11 Eli Zaretskii <eliz@is.elta.co.il>
* menu-bar.el (menu-bar-edit-menu): Don't use x-selection-exists-p if
it is not fboundp.
(clipboard-yank): Ditto.
2001-11-11 Colin Walters <walters@verbum.org>
 
The following changes are based on patches from
......
......@@ -398,7 +398,11 @@ A large number or nil slows down menu responsiveness."
:help "Paste (yank) text cut or copied earlier"))
(define-key menu-bar-edit-menu [paste]
'(menu-item "Paste" yank
:enable (and (x-selection-exists-p) (not buffer-read-only))
: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))
:help "Paste (yank) text most recently cut/copied"))
(define-key menu-bar-edit-menu [copy]
'(menu-item "Copy" menu-bar-kill-ring-save
......@@ -433,7 +437,8 @@ A large number or nil slows down menu responsiveness."
(put 'clipboard-kill-region 'menu-enable 'mark-active)
(put 'clipboard-kill-ring-save 'menu-enable 'mark-active)
(put 'clipboard-yank 'menu-enable
'(or (x-selection-exists-p) (x-selection-exists-p 'CLIPBOARD)))
'(or (and (fboundp 'x-selection-exists-p) (x-selection-exists-p))
(x-selection-exists-p 'CLIPBOARD)))
(defun clipboard-yank ()
"Insert the clipboard contents, or the last stretch of killed text."
......
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