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

diff --git a/lisp/simple.el b/lisp/simple.el
index 915e1172155cc2b22765609e61b432e50754697d..a237712ce2f44032fe9096f81e8813f822e02d49 100644 (file)
--- 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