]> git.eshelyaron.com Git - emacs.git/commitdiff
Make complection in erc use consistent casing
authorCarlos Pita <carlosjosepita@gmail.com>
Thu, 4 Feb 2016 06:03:34 +0000 (17:03 +1100)
committerLars Ingebrigtsen <larsi@gnus.org>
Thu, 4 Feb 2016 06:03:34 +0000 (17:03 +1100)
* lisp/erc/erc-pcomplete.el (pcomplete-erc-all-nicks): Make
case in the complection consistent (bug#18509).

Copyright-paperwork-exempt: Yes

lisp/erc/erc-pcomplete.el

index cf3f51ba3f60096ba224077431547106b693497b..9f572396de81b344c24e1551358cfa2286d638ee 100644 (file)
@@ -238,10 +238,12 @@ If optional argument IGNORE-SELF is non-nil, don't return the current nick."
   "Returns a list of all nicks on the current server."
   (let (nicks)
     (erc-with-server-buffer
-      (maphash (lambda (nick _user)
-                 (setq nicks (cons (concat nick postfix) nicks)))
+      (maphash (lambda (_nick user)
+                 (setq nicks (cons
+                              (concat (erc-server-user-nickname user) postfix)
+                              nicks)))
                erc-server-users))
-      nicks))
+    nicks))
 
 (defun pcomplete-erc-channels ()
   "Returns a list of channels associated with the current server."