mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(kill-rectangle): In read-only buffer, do record

Browse source 
the rectangle for later yanking.
This commit is contained in:
Richard M. Stallman 1994-10-02 23:57:56 +00:00
parent a89a914a8d
commit db03492ec0
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/rect.el
View file

@ -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