(kill-region): inhibit-read-only overrides text props too.

18aa68c3 · Richard M. Stallman · a90ab372 · 18aa68c3
Commit 18aa68c3 authored Aug 21, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/simple.el lisp/simple.el +3 -2

No files found.
--- 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