From 1d45e02e70b11201279ca3a9cd939c0090fe9b1b Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 20 Sep 2006 04:13:32 +0000 Subject: [PATCH] (clipboard-yank): bomb out in interactive use if buffer is read-only. --- lisp/ChangeLog | 5 +++++ lisp/menu-bar.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * menu-bar.el (clipboard-yank): bomb out in interactive use if + buffer is read-only. + 2006-09-18 Ken Manheimer * 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))) -- 2.39.2