From 029fd82cce8317b74e5934240b134f556a008f81 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 9 Feb 2007 23:09:16 +0000 Subject: (insert-for-yank-1): Prevent read-only properties from interfering with text property operations. --- lisp/subr.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lisp/subr.el') diff --git a/lisp/subr.el b/lisp/subr.el index 45815a6f0f..846acf5238 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2171,6 +2171,7 @@ If UNDO is present and non-nil, it is a function that will be called (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 @@ If UNDO is present and non-nil, it is a function that will be called (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. -- cgit v1.2.3