# HG changeset patch
# User David Kastrup <dak@gnu.org>
# Date 1158725612 0
# Node ID 69d661c196459496fee1ef63c796c38f0ed5bbb6
# Parent  0009355a7d1b8fde081ce7e1933f88493d0a326a
(clipboard-yank): bomb out in interactive use if
buffer is read-only.

diff -r 0009355a7d1b -r 69d661c19645 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Sep 19 21:56:07 2006 +0000
+++ b/lisp/ChangeLog	Wed Sep 20 04:13:32 2006 +0000
@@ -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 -r 0009355a7d1b -r 69d661c19645 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Tue Sep 19 21:56:07 2006 +0000
+++ b/lisp/menu-bar.el	Wed Sep 20 04:13:32 2006 +0000
@@ -510,7 +510,7 @@
 
 (defun clipboard-yank ()
   "Insert the clipboard contents, or the last stretch of killed text."
-  (interactive)
+  (interactive "*")
   (let ((x-select-enable-clipboard t))
     (yank)))