(clipboard-yank): bomb out in interactive use if

buffer is read-only.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79082e53798d80a748bbd00978f740fdd651e865..5ce0d6d18f2fa90dc36a8dc46d01494bf1786b9b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-20  David Kastrup  <dak@gnu.org>
+
+       * menu-bar.el (clipboard-yank): bomb out in interactive use if
+       buffer is read-only.
+
 2006-09-18  Ken Manheimer  <ken.manheimer@gmail.com>
 
        * allout.el (allout-unprotected): Let inhibit-read-only only when

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index cc1351b903263da3f0ab818b94aef2923f7f82e1..9a89aa4240109fb1695233ca8413ee2f60ba0724 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -510,7 +510,7 @@ A large number or nil slows down menu responsiveness."
 
 (defun clipboard-yank ()
   "Insert the clipboard contents, or the last stretch of killed text."
-  (interactive)
+  (interactive "*")
   (let ((x-select-enable-clipboard t))
     (yank)))