From 6cd829a85b7c5958276f5e3ad1394bc01558b192 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 21 Jul 1997 22:29:32 +0000 Subject: (yank, yank-pop): Bind inhibit-read-only just for remove-text-properties, not for insertion. --- lisp/simple.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index a2720e2f56..d4166977cb 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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 -- cgit v1.2.3