aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/net
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/net')
-rw-r--r--lisp/net/rcirc.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index ba2d3f130c6..0317cac3219 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -281,7 +281,8 @@ Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT."
281 :type 'hook 281 :type 'hook
282 :group 'rcirc) 282 :group 'rcirc)
283 283
284(defcustom rcirc-sort-nicknames nil 284;; Does this really merit a config variable?
285(defcustom rcirc-sort-nicknames t
285 "If non-nil, sorts nickname listings." 286 "If non-nil, sorts nickname listings."
286 :type 'boolean 287 :type 'boolean
287 :group 'rcirc) 288 :group 'rcirc)
@@ -1682,10 +1683,9 @@ nicknames sorted.
1682INPUT is a string containing nicknames separated by SEP. 1683INPUT is a string containing nicknames separated by SEP.
1683 1684
1684This function is non-destructive, sorting a copy of the input." 1685This function is non-destructive, sorting a copy of the input."
1685 (let ((parts (split-string input sep t)) 1686 (let* ((parts (split-string input sep t))
1686 copy) 1687 (sorted (sort parts 'rcirc-nickname<)))
1687 (setq copy (sort parts 'rcirc-nickname<)) 1688 (mapconcat 'identity sorted sep)))
1688 (mapconcat 'identity copy sep)))
1689 1689
1690;;; activity tracking 1690;;; activity tracking
1691(defvar rcirc-track-minor-mode-map (make-sparse-keymap) 1691(defvar rcirc-track-minor-mode-map (make-sparse-keymap)