changeset 73005:69d661c19645

(clipboard-yank): bomb out in interactive use if buffer is read-only.
author David Kastrup <dak@gnu.org>
date Wed, 20 Sep 2006 04:13:32 +0000
parents 0009355a7d1b
children 17ac31b82912
files lisp/ChangeLog lisp/menu-bar.el
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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)))