Mercurial > emacs

diff lisp/emulation/cua-base.el @ 93053:f62cf4851fe9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua-paste): Signal an error in read-only buf.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 19 Mar 2008 01:05:50 +0000
parents 1cefa72f56f5
children e2159923235d
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Tue Mar 18 23:51:28 2008 +0000
+++ b/lisp/emulation/cua-base.el	Wed Mar 19 01:05:50 2008 +0000
@@ -909,7 +909,7 @@
 	  (cua--insert-at-global-mark (filter-buffer-substring (point) (+ (point) count)))
 	  (forward-char count))))
      (buffer-read-only
-      (message "Cannot paste into a read-only buffer"))
+      (error "Cannot paste into a read-only buffer"))
      (t
       ;; Must save register here, since delete may override reg 0.
       (if mark-active