Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
1082 ;; ;; This should always barf, and give us the correct error. 1082 ;; ;; This should always barf, and give us the correct error.
1083 ;; (if kill-read-only-ok 1083 ;; (if kill-read-only-ok
1084 ;; (message "Read only text copied to kill ring") 1084 ;; (message "Read only text copied to kill ring")
1085 (setq this-command 'kill-region) 1085 (setq this-command 'kill-region)
1086 (barf-if-buffer-read-only) 1086 (barf-if-buffer-read-only)
1087 (signal 'text-read-only (list (current-buffer)))) 1087 (signal 'buffer-read-only (list (current-buffer))))
1088 1088
1089 ;; In certain cases, we can arrange for the undo list and the kill 1089 ;; In certain cases, we can arrange for the undo list and the kill
1090 ;; ring to share the same string object. This code does that. 1090 ;; ring to share the same string object. This code does that.
1091 ((not (or (eq buffer-undo-list t) 1091 ((not (or (eq buffer-undo-list t)
1092 (eq last-command 'kill-region) 1092 (eq last-command 'kill-region)