From db03492ec0625d682808d69f75cf7eec19b2a494 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 2 Oct 1994 23:57:56 +0000
Subject: [PATCH] (kill-rectangle): In read-only buffer, do record the
 rectangle for later yanking.

---
 lisp/rect.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/rect.el b/lisp/rect.el
index b19f883976c..71e1f8ed1e7 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -138,6 +138,10 @@ Value is list of strings, one for each line of the rectangle."
 Calling from program, supply two args START and END, buffer positions.
 But in programs you might prefer to use `delete-extract-rectangle'."
   (interactive "r")
+  (if buffer-read-only
+      (progn
+	(setq killed-rectangle (extract-rectangle start end))
+	(barf-if-buffer-read-only)))
   (setq killed-rectangle (delete-extract-rectangle start end)))
 
 ;;;###autoload