aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2010-06-03 13:22:27 -0400
committerChong Yidong2010-06-03 13:22:27 -0400
commitaa1bc616a52e9e40522501240493c6db1db295e2 (patch)
treea4cffa715b54a8d3a3af1abfccd930a2d2224350
parente2d2a205a5351c3caeaa0019d2483f44b6a95065 (diff)
downloademacs-aa1bc616a52e9e40522501240493c6db1db295e2.tar.gz
emacs-aa1bc616a52e9e40522501240493c6db1db295e2.zip
* net/rcirc.el (rcirc-sort-nicknames): Remove.
(rcirc-handler-366): Always sort nicknames.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/net/rcirc.el10
2 files changed, 6 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d880905567c..9c5d7349381 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12010-06-03 Chong Yidong <cyd@stupidchicken.com>
2
3 * net/rcirc.el (rcirc-sort-nicknames): Remove.
4 (rcirc-handler-366): Always sort nicknames.
5
12010-06-03 Juanma Barranquero <lekktu@gmail.com> 62010-06-03 Juanma Barranquero <lekktu@gmail.com>
2 7
3 * emacs-lisp/smie.el (comment-continue): Declare for byte-compiler. 8 * emacs-lisp/smie.el (comment-continue): Declare for byte-compiler.
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index c45fdaaf8ad..7761bbc650e 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -281,12 +281,6 @@ 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;; Does this really merit a config variable?
285(defcustom rcirc-sort-nicknames t
286 "If non-nil, sorts nickname listings."
287 :type 'boolean
288 :group 'rcirc)
289
290(defcustom rcirc-always-use-server-buffer-flag nil 284(defcustom rcirc-always-use-server-buffer-flag nil
291 "Non-nil means messages without a channel target will go to the server buffer." 285 "Non-nil means messages without a channel target will go to the server buffer."
292 :type 'boolean 286 :type 'boolean
@@ -2586,9 +2580,7 @@ keywords when no KEYWORD is given."
2586 (with-current-buffer buffer 2580 (with-current-buffer buffer
2587 (rcirc-print process sender "NAMES" channel 2581 (rcirc-print process sender "NAMES" channel
2588 (let ((content (buffer-substring (point-min) (point-max)))) 2582 (let ((content (buffer-substring (point-min) (point-max))))
2589 (if rcirc-sort-nicknames 2583 (rcirc-sort-nicknames-join content " "))))
2590 (rcirc-sort-nicknames-join content " ")
2591 content))))
2592 (kill-buffer buffer))) 2584 (kill-buffer buffer)))
2593 2585
2594(defun rcirc-handler-433 (process sender args text) 2586(defun rcirc-handler-433 (process sender args text)