# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 779667590 0
# Node ID e2073805b6883aa7be6b817615823af2f6bc1ef6
# Parent  441af4b664ac49aa015a2924238ff7e127a10d0c
(kill-new): Call menu-bar-update-yank-menu only if that function is defined.

diff -r 441af4b664ac -r e2073805b688 lisp/simple.el
--- 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))