Commit 7ae13091 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(yank, yank-pop): Clear out read-only prop.

parent 83c6f446
......@@ -1492,7 +1492,10 @@ comes the newest one."
(before (< (point) (mark t))))
(delete-region (point) (mark t))
(set-marker (mark-marker) (point) (current-buffer))
(insert (current-kill arg))
(let ((opoint (point))
(inhibit-read-only t))
(insert (current-kill arg))
(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
......@@ -1514,10 +1517,13 @@ See also the command \\[yank-pop]."
;; for the following command.
(setq this-command t)
(push-mark (point))
(insert (current-kill (cond
((listp arg) 0)
((eq arg '-) -1)
(t (1- arg)))))
(let ((opoint (point))
(inhibit-read-only t))
(insert (current-kill (cond
((listp arg) 0)
((eq arg '-) -1)
(t (1- arg)))))
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment