diff options
| author | Kelvin White | 2015-11-07 12:54:58 -0500 |
|---|---|---|
| committer | Kelvin White | 2015-11-07 13:02:26 -0500 |
| commit | ae24d821faba48fbc74ace082ff28669f9e1cec3 (patch) | |
| tree | ec0f8df21edfbeff89339b7f909228db0744f0d4 | |
| parent | 88733e67df4ef20aad1fc51ea3ed29510db49afb (diff) | |
| download | emacs-ae24d821faba48fbc74ace082ff28669f9e1cec3.tar.gz emacs-ae24d821faba48fbc74ace082ff28669f9e1cec3.zip | |
erc-pcomplete.el (pcomplete-erc-nicks): Fix bug#18771
| -rw-r--r-- | lisp/erc/ChangeLog.2 | 5 | ||||
| -rw-r--r-- | lisp/erc/erc-pcomplete.el | 7 |
2 files changed, 9 insertions, 3 deletions
diff --git a/lisp/erc/ChangeLog.2 b/lisp/erc/ChangeLog.2 index 8dce5084ec9..80ee3bbbd09 100644 --- a/lisp/erc/ChangeLog.2 +++ b/lisp/erc/ChangeLog.2 | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2015-11-07 Kelvin White <kwhite@gnu.org> | ||
| 2 | |||
| 3 | * erc-pcomplete.el (pcomplete-erc-nicks): Fix bug for tab complete | ||
| 4 | (bug#18771) | ||
| 5 | |||
| 1 | 2015-03-25 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2015-03-25 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | * erc.el (erc-switch-to-buffer): Fix last change (bug#20187). | 8 | * erc.el (erc-switch-to-buffer): Fix last change (bug#20187). |
diff --git a/lisp/erc/erc-pcomplete.el b/lisp/erc/erc-pcomplete.el index e46ac68b259..686a3a8e1d0 100644 --- a/lisp/erc/erc-pcomplete.el +++ b/lisp/erc/erc-pcomplete.el | |||
| @@ -225,9 +225,10 @@ If optional argument IGNORE-SELF is non-nil, don't return the current nick." | |||
| 225 | (erc-get-channel-user-list))) | 225 | (erc-get-channel-user-list))) |
| 226 | (nicks nil)) | 226 | (nicks nil)) |
| 227 | (dolist (user users) | 227 | (dolist (user users) |
| 228 | (unless (and ignore-self | 228 | (unless (or (not user) |
| 229 | (string= (erc-server-user-nickname (car user)) | 229 | (and ignore-self |
| 230 | (erc-current-nick))) | 230 | (string= (erc-server-user-nickname (car user)) |
| 231 | (erc-current-nick)))) | ||
| 231 | (setq nicks (cons (concat (erc-server-user-nickname (car user)) | 232 | (setq nicks (cons (concat (erc-server-user-nickname (car user)) |
| 232 | postfix) | 233 | postfix) |
| 233 | nicks)))) | 234 | nicks)))) |