Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4020:77df2f1e36fd 4021:cef5f57bb9e2
725 (- (cadr value)) 725 (- (cadr value))
726 (cons (car value) (cadr value))))) 726 (cons (car value) (cadr value)))))
727 727
728 ((listp value) ; list 728 ((listp value) ; list
729 (if (cdr value) 729 (if (cdr value)
730 (mapcar '(lambda (x) 730 (mapcar #'(lambda (x)
731 (select-convert-from-integer selection type x)) 731 (select-convert-from-integer selection type x))
732 value) 732 value)
733 (select-convert-from-integer selection type (car value)))) 733 (select-convert-from-integer selection type (car value))))
734 734
735 ((vectorp value) ; vector 735 ((vectorp value) ; vector
736 (if (eq (length value) 1) 736 (if (eq (length value) 1)
737 (select-convert-from-integer selection type (aref value 0)) 737 (select-convert-from-integer selection type (aref value 0))
738 (mapvector '(lambda (x) 738 (mapvector #'(lambda (x)
739 (select-convert-from-integer selection type x)) 739 (select-convert-from-integer selection type x))
740 value))) 740 value)))
741 741
742 (t nil) 742 (t nil)
743 )) 743 ))
744 744
745 (defun select-convert-from-ip-address (selection type value) 745 (defun select-convert-from-ip-address (selection type value)