(menu-bar-edit-menu): Don't use x-selection-exists-p if it is not fboundp.

(clipboard-yank): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f6179c37c48aa74f89dad3a9ad9d2202903eb55..efb2f4d605f9f5f08b6c0b8726ec5f7a60ed05e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-12  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-10  Jason Rumney  <jasonr@gnu.org>
 
        * term/w32-win.el (redisplay-dont-pause): Don't set.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 00d009df9a880983ef22ee32b77c3ce9c626e986..e1d9669b8a2255fe096090fad20f1e0a5ba5efad 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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."