diff options
| author | Kelvin White | 2014-09-26 09:05:28 -0400 |
|---|---|---|
| committer | Kelvin White | 2014-09-26 09:05:28 -0400 |
| commit | 53c0a1e9d7e5b53cd36a2be38984e6070ac6210f (patch) | |
| tree | eb6849425ad0befe2ef8a2eb4f6b1abad19c0269 | |
| parent | 241692602563684cb4a964ed2af8776057dd2a8d (diff) | |
| download | emacs-53c0a1e9d7e5b53cd36a2be38984e6070ac6210f.tar.gz emacs-53c0a1e9d7e5b53cd36a2be38984e6070ac6210f.zip | |
erc.el: Fix regression - Bug #18551
| -rw-r--r-- | lisp/erc/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/erc/erc.el | 5 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index 837203f305c..b5dd3f2f359 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2014-09-26 Kelvin White <kwhite@gnu.org> | ||
| 2 | |||
| 3 | * erc.el (erc-format-nick): Fix code regression - Bug #18551 | ||
| 4 | |||
| 1 | 2014-09-25 Kelvin White <kwhite@gnu.org> | 5 | 2014-09-25 Kelvin White <kwhite@gnu.org> |
| 2 | 6 | ||
| 3 | * erc.el: Follow Emacs version instead of tracking it seperately. | 7 | * erc.el: Follow Emacs version instead of tracking it seperately. |
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index f4d9dd3c652..1c832a5fdfa 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -4225,11 +4225,12 @@ and as second argument the event parsed as a vector." | |||
| 4225 | (defun erc-format-nick (&optional user _channel-data) | 4225 | (defun erc-format-nick (&optional user _channel-data) |
| 4226 | "Return the nickname of USER. | 4226 | "Return the nickname of USER. |
| 4227 | See also `erc-format-nick-function'." | 4227 | See also `erc-format-nick-function'." |
| 4228 | (let ((nick (erc-server-user-nickname user))) | 4228 | (when user |
| 4229 | (let ((nick (erc-server-user-nickname user))) | ||
| 4229 | (concat (erc-propertize | 4230 | (concat (erc-propertize |
| 4230 | (erc-get-user-mode-prefix nick) | 4231 | (erc-get-user-mode-prefix nick) |
| 4231 | 'face 'erc-nick-prefix-face) | 4232 | 'face 'erc-nick-prefix-face) |
| 4232 | nick))) | 4233 | nick)))) |
| 4233 | 4234 | ||
| 4234 | (defun erc-get-user-mode-prefix (user) | 4235 | (defun erc-get-user-mode-prefix (user) |
| 4235 | (when user | 4236 | (when user |