diff options
| author | Richard M. Stallman | 1996-08-21 16:20:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-08-21 16:20:39 +0000 |
| commit | 18aa68c389251d4a2b9cafa5b49a4cfe41fae480 (patch) | |
| tree | f5f032735e152cae8d9439356a20ef7eb3a9e524 | |
| parent | a90ab37216495ce1f6143e7935ac0befaba3d334 (diff) | |
| download | emacs-18aa68c389251d4a2b9cafa5b49a4cfe41fae480.tar.gz emacs-18aa68c389251d4a2b9cafa5b49a4cfe41fae480.zip | |
(kill-region): inhibit-read-only overrides text props too.
| -rw-r--r-- | lisp/simple.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 915e1172155..a237712ce2f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1221,8 +1221,9 @@ to make one entry in the kill ring." | |||
| 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 |