diff options
| -rw-r--r-- | lisp/erc/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/erc/erc-backend.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index 0366addacfc..3a625eb215e 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2013-01-04 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * erc-backend.el (312): Fix typo. (Bug#13235) | ||
| 4 | |||
| 1 | 2012-11-30 Glenn Morris <rgm@gnu.org> | 5 | 2012-11-30 Glenn Morris <rgm@gnu.org> |
| 2 | 6 | ||
| 3 | * erc.el (erc-accidental-paste-threshold-seconds): Add :version. | 7 | * erc.el (erc-accidental-paste-threshold-seconds): Add :version. |
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index c8b7286c7dd..3d3ac791f08 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el | |||
| @@ -1633,8 +1633,8 @@ See `erc-display-server-message'." nil | |||
| 1633 | 1633 | ||
| 1634 | (define-erc-response-handler (312) | 1634 | (define-erc-response-handler (312) |
| 1635 | "Server name response in WHOIS." nil | 1635 | "Server name response in WHOIS." nil |
| 1636 | (pcase-let ((`(,nick ,server-host)) | 1636 | (pcase-let ((`(,nick ,server-host) |
| 1637 | (cdr (erc-response.command-args parsed))) | 1637 | (cdr (erc-response.command-args parsed)))) |
| 1638 | (erc-display-message | 1638 | (erc-display-message |
| 1639 | parsed 'notice 'active 's312 | 1639 | parsed 'notice 'active 's312 |
| 1640 | ?n nick ?s server-host ?c (erc-response.contents parsed)))) | 1640 | ?n nick ?s server-host ?c (erc-response.contents parsed)))) |