Mercurial > emacs

diff lisp/simple.el @ 8768:e2073805b688

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(kill-new): Call menu-bar-update-yank-menu only if that function is defined.
author Karl Heuer <kwzh@gnu.org>
date Thu, 15 Sep 1994 22:19:50 +0000
parents 2b54e6deed2f
children 25406f41c336
line wrap: on
line diff
--- a/lisp/simple.el	Thu Sep 15 22:16:49 1994 +0000
+++ b/lisp/simple.el	Thu Sep 15 22:19:50 1994 +0000
@@ -998,7 +998,8 @@
 If `interprogram-cut-function' is non-nil, apply it to STRING.
 Optional second argument REPLACE non-nil means that STRING will replace
 the front of the kill ring, rather than being added to the list."
-  (menu-bar-update-yank-menu string (and replace (car kill-ring)))
+  (and (fboundp 'menu-bar-update-yank-menu)
+       (menu-bar-update-yank-menu string (and replace (car kill-ring))))
   (if replace
       (setcar kill-ring string)
     (setq kill-ring (cons string kill-ring))