Mercurial > emacs

changeset 75748:8c99ad9fd6c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(insert-for-yank-1): Prevent read-only properties from interfering with text property operations.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 09 Feb 2007 23:09:16 +0000
parents 982864b316bf
children cb02cf6abcf1
files lisp/subr.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Fri Feb 09 23:08:54 2007 +0000
+++ b/lisp/subr.el	Fri Feb 09 23:09:16 2007 +0000
@@ -2171,6 +2171,7 @@
 		       (get-text-property 0 'yank-handler string)))
 	 (param (or (nth 1 handler) string))
 	 (opoint (point))
+	 (inhibit-read-only inhibit-read-only)
 	 end)
 
     (setq yank-undo-function t)
@@ -2179,6 +2180,10 @@
       (insert param))
     (setq end (point))
 
+    ;; Prevent read-only properties from interfering with the
+    ;; following text property changes.
+    (setq inhibit-read-only t)
+
     ;; What should we do with `font-lock-face' properties?
     (if font-lock-defaults
 	;; No, just wipe them.