Mercurial > emacs
changeset 108877:122187b88e6f
* net/rcirc.el (rcirc-nickname<, rcirc-sort-nicknames-join): Doc fix.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 03 Jun 2010 11:58:20 -0400 |
| parents | d81856a405a6 |
| children | c3cbf94d10f1 |
| files | lisp/ChangeLog lisp/net/rcirc.el |
| diffstat | 2 files changed, 11 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jun 03 11:51:38 2010 -0400 +++ b/lisp/ChangeLog Thu Jun 03 11:58:20 2010 -0400 @@ -1,3 +1,8 @@ +2010-06-03 Chong Yidong <cyd@stupidchicken.com> + + * net/rcirc.el (rcirc-nickname<, rcirc-sort-nicknames-join): Doc + fix. + 2010-06-03 Stefan Monnier <monnier@iro.umontreal.ca> * net/rcirc.el (rcirc-sort-nicknames): Change default.
--- a/lisp/net/rcirc.el Thu Jun 03 11:51:38 2010 -0400 +++ b/lisp/net/rcirc.el Thu Jun 03 11:58:20 2010 -0400 @@ -1657,13 +1657,10 @@ (delete nick rcirc-ignore-list)))) (defun rcirc-nickname< (s1 s2) - "Compares two IRC nicknames. Operator nicknames (@) are -considered less than voiced nicknames (+). Any other nicknames -are greater than voiced nicknames. - -Returns t if S1 is less than S2, otherwise nil. - -The comparison is case-insensitive." + "Return t if IRC nickname S1 is less than S2, and nil otherwise. +Operator nicknames (@) are considered less than voiced +nicknames (+). Any other nicknames are greater than voiced +nicknames. The comparison is case-insensitive." (setq s1 (downcase s1) s2 (downcase s2)) (let* ((s1-op (eq ?@ (string-to-char s1))) @@ -1677,12 +1674,9 @@ (string< s1 s2))))) (defun rcirc-sort-nicknames-join (input sep) - "Takes a string of nicknames and returns the string with the -nicknames sorted. - + "Return a string of sorted nicknames. INPUT is a string containing nicknames separated by SEP. - -This function is non-destructive, sorting a copy of the input." +This function does not alter the INPUT string." (let* ((parts (split-string input sep t)) (sorted (sort parts 'rcirc-nickname<))) (mapconcat 'identity sorted sep)))