procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(yank, yank-pop): Bind inhibit-read-only

Browse source 
just for remove-text-properties, not for insertion.
This commit is contained in:
Richard M. Stallman 1997-07-21 22:29:32 +00:00
parent eaff57bb12
commit 6cd829a85b
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/simple.el
View file

@ -1498,10 +1498,10 @@ comes the newest one."
(before (< (point) (mark t))))
(delete-region (point) (mark t))
(set-marker (mark-marker) (point) (current-buffer))
(let ((opoint (point))
(inhibit-read-only t))
(let ((opoint (point)))
(insert (current-kill arg))
(remove-text-properties opoint (point) '(read-only nil)))
(let ((inhibit-read-only t))
(remove-text-properties opoint (point) '(read-only nil))))
(if before
;; This is like exchange-point-and-mark, but doesn't activate the mark.
;; It is cleaner to avoid activation, even though the command
@ -1523,13 +1523,13 @@ See also the command \\[yank-pop]."
;; for the following command.
(setq this-command t)
(push-mark (point))
(let ((opoint (point))
(inhibit-read-only t))
(let ((opoint (point)))
(insert (current-kill (cond
((listp arg) 0)
((eq arg '-) -1)
(t (1- arg)))))
(remove-text-properties opoint (point) '(read-only nil)))
(let ((inhibit-read-only t))
(remove-text-properties opoint (point) '(read-only nil))))
(if (consp arg)
;; This is like exchange-point-and-mark, but doesn't activate the mark.
;; It is cleaner to avoid activation, even though the command