X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fselect.el;h=824e2db940947bdeaaa6af5d2329d0d602a96367;hp=aebf6761c4a9ae221700d9d6a3898015737c9894;hb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;hpb=fc475e6669a613cd6d98eb5511c749a23b63c7ac

diff --git a/lisp/select.el b/lisp/select.el
index aebf676..824e2db 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -273,7 +273,7 @@ secondary selection instead of the primary selection."
 		   ;; 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