projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
599d38f
)
(gnus-string<): Fix previous commit.
author
Katsumi Yamaoka
<yamaoka@jpl.org>
Mon, 15 Oct 2007 09:48:26 +0000
(09:48 +0000)
committer
Katsumi Yamaoka
<yamaoka@jpl.org>
Mon, 15 Oct 2007 09:48:26 +0000
(09:48 +0000)
lisp/gnus-util.el
patch
|
blob
|
history
diff --git
a/lisp/gnus-util.el
b/lisp/gnus-util.el
index
80c36e2
..
cf174d9
100644
(file)
--- a/
lisp/gnus-util.el
+++ b/
lisp/gnus-util.el
@@
-258,10
+258,9
@@
is slower."
"Return t if first arg string is less than second in lexicographic order.
Case is significant if and only if `case-fold-search' is nil.
Symbols are also allowed; their print names are used instead."
"Return t if first arg string is less than second in lexicographic order.
Case is significant if and only if `case-fold-search' is nil.
Symbols are also allowed; their print names are used instead."
- (if (symbolp s1) (setq s1 (symbol-name s1)))
- (if (symbolp s2) (setq s2 (symbol-name s2)))
(if case-fold-search
(if case-fold-search
- (string-lessp (downcase s1) (downcase s2))
+ (string-lessp (downcase (if (symbolp s1) (symbol-name s1) s1))
+ (downcase (if (symbolp s2) (symbol-name s2) s2)))
(string-lessp s1 s2)))
;;; Time functions.
(string-lessp s1 s2)))
;;; Time functions.