Mercurial > hg > xemacs-beta

diff lisp/select.el @ 4021:cef5f57bb9e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-21 13:39:08 by aidan] '(lambda ...) -> #'(lambda ...), for the sake of style and the byte compiler.
author aidan
date Thu, 21 Jun 2007 13:39:36 +0000
parents 4c038e89d563
children 38ef5a6da799
line wrap: on
line diff
--- a/lisp/select.el	Wed Jun 20 21:51:09 2007 +0000
+++ b/lisp/select.el	Thu Jun 21 13:39:36 2007 +0000
@@ -727,17 +727,17 @@
 
 	((listp value)			; list
 	 (if (cdr value)
-	     (mapcar '(lambda (x)
-			(select-convert-from-integer selection type x))
+	     (mapcar #'(lambda (x)
+                         (select-convert-from-integer selection type x))
 		     value)
 	   (select-convert-from-integer selection type (car value))))
 
 	((vectorp value)		; vector
 	 (if (eq (length value) 1)
 	     (select-convert-from-integer selection type (aref value 0))
-	   (mapvector '(lambda (x)
-			(select-convert-from-integer selection type x))
-		     value)))
+	   (mapvector #'(lambda (x)
+                          (select-convert-from-integer selection type x))
+                      value)))
 
 	(t nil)
 	))