Re: Copying preserves font-lock-face

[Richard Stallman]

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