From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Richard Stallman <rms@gnu.org>
Newsgroups: gmane.emacs.devel
Subject: Re: Copying preserves font-lock-face
Date: Mon, 02 Oct 2006 00:04:16 -0400
Message-ID: <E1GUF2O-0005Jv-Ax@fencepost.gnu.org>
References: <17684.33575.513181.276604@kahikatea.snap.net.nz>
	<E1GRBoj-0004uV-Qm@fencepost.gnu.org> <ef9lfk$jhn$1@sea.gmane.org>
	<E1GSF41-0001SL-8l@fencepost.gnu.org>
Reply-To: rms@gnu.org
NNTP-Posting-Host: main.gmane.org
Content-Type: text/plain; charset=ISO-8859-15
X-Trace: sea.gmane.org 1159761890 22117 80.91.229.2 (2 Oct 2006 04:04:50 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Mon, 2 Oct 2006 04:04:50 +0000 (UTC)
Cc: emacs-devel@gnu.org
Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Oct 02 06:04:48 2006
Return-path: <emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org>
Envelope-to: ged-emacs-devel@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by ciao.gmane.org with esmtp (Exim 4.43)
	id 1GUF2u-0002Hk-93
	for ged-emacs-devel@m.gmane.org; Mon, 02 Oct 2006 06:04:48 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1GUF2t-0000rG-UN
	for ged-emacs-devel@m.gmane.org; Mon, 02 Oct 2006 00:04:47 -0400
Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1GUF2P-0000eG-W5
	for emacs-devel@gnu.org; Mon, 02 Oct 2006 00:04:18 -0400
Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1GUF2P-0000ds-HR
	for emacs-devel@gnu.org; Mon, 02 Oct 2006 00:04:17 -0400
Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1GUF2P-0000dn-4t
	for emacs-devel@gnu.org; Mon, 02 Oct 2006 00:04:17 -0400
Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.52) id 1GUF8I-0000Y4-VF
	for emacs-devel@gnu.org; Mon, 02 Oct 2006 00:10:23 -0400
Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34)
	id 1GUF2O-0005Jv-Ax; Mon, 02 Oct 2006 00:04:16 -0400
Original-to: ihs_4664@yahoo.com
In-reply-to: <E1GSF41-0001SL-8l@fencepost.gnu.org> (message from Richard
	Stallman on Tue, 26 Sep 2006 11:41:41 -0400)
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Emacs development discussions." <emacs-devel.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-devel>
List-Post: <mailto:emacs-devel@gnu.org>
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org
Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.devel:60368
Archived-At: <http://permalink.gmane.org/gmane.emacs.devel/60368>

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