From: David Kastrup <dak@gnu.org>
Date: Wed, 20 Sep 2006 04:13:32 +0000 (+0000)
Subject: (clipboard-yank): bomb out in interactive use if
X-Git-Tag: emacs-pretest-22.0.90~447
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d45e02e70b11201279ca3a9cd939c0090fe9b1b;p=emacs.git

(clipboard-yank): bomb out in interactive use if
buffer is read-only.
---

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)))