martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(kill-region): Set this-command unconditionally in a read-only buffer.

Browse Source
This commit is contained in:
Richard M. Stallman
1998-05-19 05:22:50 +00:00
parent cdda8f47be
commit cb3e1b4c4c
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/simple.el
View File

@@ -1647,10 +1647,11 @@ to make one entry in the kill ring."
;; However, there's no harm in putting
;; the region's text in the kill ring, anyway.
(copy-region-as-kill beg end)
;; This should always barf, and give us the correct error.
;; Set this-command now, so it will be set even if we get an error.
(setq this-command 'kill-region)
;; This should barf, if appropriate, and give us the correct error.
(if kill-read-only-ok
(message "Read only text copied to kill ring")
(setq this-command 'kill-region)
;; Signal an error if the buffer is read-only.
(barf-if-buffer-read-only)
;; If the buffer isn't read-only, the text is.