From 404686bdf680f236dc0d8d5170d95275e86e0158 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 2 Oct 1994 23:57:56 +0000 Subject: (kill-rectangle): In read-only buffer, do record the rectangle for later yanking. --- lisp/rect.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/rect.el') 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 -- cgit v1.2.1