Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

* net/rcirc.el (rcirc-sort-nicknames): Change default.

Browse source 
(rcirc-sort-nicknames-join): Avoid setq.
This commit is contained in:
Stefan Monnier 2010-06-03 11:51:38 -04:00
parent c62bf05a37
commit a91dedc456
2 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-06-03 Stefan Monnier <monnier@iro.umontreal.ca>
* net/rcirc.el (rcirc-sort-nicknames): Change default.
(rcirc-sort-nicknames-join): Avoid setq.
2010-06-03 Deniz Dogan <deniz.a.m.dogan@gmail.com>
* net/rcirc.el (rcirc-sort-nicknames): New custom.

10
lisp/net/rcirc.el
View file

@ -281,7 +281,8 @@ Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT."
:type 'hook
:group 'rcirc)
(defcustom rcirc-sort-nicknames nil
;; Does this really merit a config variable?
(defcustom rcirc-sort-nicknames t
"If non-nil, sorts nickname listings."
:type 'boolean
:group 'rcirc)
@ -1682,10 +1683,9 @@ nicknames sorted.
INPUT is a string containing nicknames separated by SEP.
This function is non-destructive, sorting a copy of the input."
(let ((parts (split-string input sep t))
copy)
(setq copy (sort parts 'rcirc-nickname<))
(mapconcat 'identity copy sep)))
(let* ((parts (split-string input sep t))
(sorted (sort parts 'rcirc-nickname<)))
(mapconcat 'identity sorted sep)))
;;; activity tracking
(defvar rcirc-track-minor-mode-map (make-sparse-keymap)