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

buffer is read-only.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79082e53798..5ce0d6d18f2 100644
--- 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 cc1351b9032..9a89aa42401 100644
--- 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)))