# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760578045 0
# Node ID 569c0798fb72025f7229cab4afd24853b82a3b24
# Parent  8fd47a5040cb9823b339d80cabde94f1988292b1
(kill-region): Test inhibit-read-only.

diff -r 8fd47a5040cb -r 569c0798fb72 lisp/simple.el
--- a/lisp/simple.el	Sun Feb 06 19:33:18 1994 +0000
+++ b/lisp/simple.el	Sun Feb 06 23:40:45 1994 +0000
@@ -1042,7 +1042,7 @@
    ;; 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.
-   (buffer-read-only
+   ((and buffer-read-only (not inhibit-read-only))
     (copy-region-as-kill beg end)
     ;; This should always barf, and give us the correct error.
     (barf-if-buffer-read-only))