[Emacs-diffs] emacs-25 66c4620: Make complection in erc use consistent casing

[Lars Ingebrigtsen]

branch: emacs-25
commit 66c462005cc873d8e9dee684d525daa036d4f757
Author: Carlos Pita <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Make complection in erc use consistent casing
    
    * 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 |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/erc/erc-pcomplete.el b/lisp/erc/erc-pcomplete.el
index cf3f51b..9f57239 100644
--- a/lisp/erc/erc-pcomplete.el
+++ b/lisp/erc/erc-pcomplete.el
@@ -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."