X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fx-mouse.el;h=f5c06aacede38841408ac7bf6eb991b3e8d72bcf;hb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;hp=ba35ea22f31ff6c7838df7f35502e6d9f8f7bc28;hpb=fc475e6669a613cd6d98eb5511c749a23b63c7ac;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/x-mouse.el b/lisp/x-mouse.el
index ba35ea2..f5c06aa 100644
--- a/lisp/x-mouse.el
+++ b/lisp/x-mouse.el
@@ -119,7 +119,7 @@ A mark is pushed, so that the inserted text lies between point and mark."
       (set-buffer (extent-object (car primary-selection-extent)))
       (x-store-cutbuffer
        (mapconcat
-	'identity
+	#'identity
 	(extract-rectangle
 	 (extent-start-position (car primary-selection-extent))
 	 (extent-end-position (car (reverse primary-selection-extent))))