Mercurial > emacs
comparison lisp/simple.el @ 15892:6a4227841dec
(kill-region): inhibit-read-only overrides text props too.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 21 Aug 1996 16:20:39 +0000 |
parents | d814bc72503f |
children | 6a1a664be9f6 |
comparison
equal
deleted
inserted
replaced
15891:dbc8c9c9d819 | 15892:6a4227841dec |
---|---|
1219 (cond | 1219 (cond |
1220 | 1220 |
1221 ;; If the buffer is read-only, we should beep, in case the person | 1221 ;; If the buffer is read-only, we should beep, in case the person |
1222 ;; just isn't aware of this. However, there's no harm in putting | 1222 ;; just isn't aware of this. However, there's no harm in putting |
1223 ;; the region's text in the kill ring, anyway. | 1223 ;; the region's text in the kill ring, anyway. |
1224 ((or (and buffer-read-only (not inhibit-read-only)) | 1224 ((and (not inhibit-read-only) |
1225 (text-property-not-all beg end 'read-only nil)) | 1225 (or buffer-read-only |
1226 (text-property-not-all beg end 'read-only nil))) | |
1226 (copy-region-as-kill beg end) | 1227 (copy-region-as-kill beg end) |
1227 ;; This should always barf, and give us the correct error. | 1228 ;; This should always barf, and give us the correct error. |
1228 (if kill-read-only-ok | 1229 (if kill-read-only-ok |
1229 (message "Read only text copied to kill ring") | 1230 (message "Read only text copied to kill ring") |
1230 (setq this-command 'kill-region) | 1231 (setq this-command 'kill-region) |