Mercurial > emacs

changeset 18902:7ce2d04d5561

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(yank, yank-pop): Bind inhibit-read-only just for remove-text-properties, not for insertion.
author Richard M. Stallman <rms@gnu.org>
date Mon, 21 Jul 1997 22:29:32 +0000
parents b9b03935853a
children 0d699fd569cb
files lisp/simple.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Mon Jul 21 20:30:49 1997 +0000
+++ b/lisp/simple.el	Mon Jul 21 22:29:32 1997 +0000
@@ -1498,10 +1498,10 @@
 	(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 @@
   ;; 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