From 18aa68c389251d4a2b9cafa5b49a4cfe41fae480 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Aug 1996 16:20:39 +0000 Subject: [PATCH] (kill-region): inhibit-read-only overrides text props too. --- lisp/simple.el | 5 +++-- 1 file 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." ;; If the buffer is read-only, we should beep, in case the person ;; just isn't aware of this. However, there's no harm in putting ;; the region's text in the kill ring, anyway. - ((or (and buffer-read-only (not inhibit-read-only)) - (text-property-not-all beg end 'read-only nil)) + ((and (not inhibit-read-only) + (or buffer-read-only + (text-property-not-all beg end 'read-only nil))) (copy-region-as-kill beg end) ;; This should always barf, and give us the correct error. (if kill-read-only-ok -- 2.39.2