Mercurial > hg > xemacs-beta

diff lisp/prim/simple.el @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents bcdc7deadc19
children 8fc7fe29b841
line wrap: on
line diff
--- a/lisp/prim/simple.el	Mon Aug 13 08:48:18 2007 +0200
+++ b/lisp/prim/simple.el	Mon Aug 13 08:48:42 2007 +0200
@@ -1084,7 +1084,7 @@
    ;;	  (message "Read only text copied to kill ring")
     (setq this-command 'kill-region)
     (barf-if-buffer-read-only)
-    (signal 'text-read-only (list (current-buffer))))
+    (signal 'buffer-read-only (list (current-buffer))))
 
    ;; In certain cases, we can arrange for the undo list and the kill
    ;; ring to share the same string object.  This code does that.