[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Copying preserves font-lock-face
From: |
Richard Stallman |
Subject: |
Re: Copying preserves font-lock-face |
Date: |
Mon, 02 Oct 2006 00:04:16 -0400 |
Does this patch give you good results?
*** subr.el 28 Sep 2006 15:05:32 -0400 1.528
--- subr.el 01 Oct 2006 23:38:37 -0400
***************
*** 2195,2200 ****
--- 2195,2208 ----
(unless (nth 2 handler) ;; NOEXCLUDE
(remove-yank-excluded-properties opoint (point)))
+
+ ;; If inserted text has properties, mark them as rear-nonsticky.
+ (if (or (text-properties-at opoint)
+ (and (< (1+ opoint) end)
+ (>= (next-property-change (1+ opoint) nil end)
+ end)))
+ (put-text-property opoint end 'rear-nonsticky t))
+
(if (eq yank-undo-function t) ;; not set by FUNCTION
(setq yank-undo-function (nth 3 handler))) ;; UNDO
(if (nth 4 handler) ;; COMMAND
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: Copying preserves font-lock-face,
Richard Stallman <=