Mercurial > hg > xemacs-beta

comparison lisp/prim/simple.el @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents c7528f8e288d
children 0d2f883870bc
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
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)