Mercurial > hg > xemacs-beta

diff lisp/select.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children aabb7f5b1c81
line wrap: on
line diff
--- a/lisp/select.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/select.el	Mon Aug 13 11:07:10 2007 +0200
@@ -273,7 +273,7 @@
 		   ;; why is killed-rectangle free?  Is it used somewhere?
 		   ;; should it be defvarred?
 		   (setq killed-rectangle (extract-rectangle s e))
-		   (kill-new (mapconcat 'identity killed-rectangle "\n")))
+		   (kill-new (mapconcat #'identity killed-rectangle "\n")))
 	       (copy-region-as-kill s e))
 	     ;; Maybe killing doesn't own clipboard.  Make sure it happens.
 	     ;; This memq is kind of grody, because they might have done it