From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 6 Feb 1994 23:40:45 +0000 (+0000)
Subject: (kill-region): Test inhibit-read-only.
X-Git-Tag: emacs-19.34~10046
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8052715a1f50bd30c980a6a6f003546259b58613;p=emacs.git

(kill-region): Test inhibit-read-only.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index dd994b1cbcb..16cb57b7457 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1042,7 +1042,7 @@ 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.
-   (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))