diff options
| -rw-r--r-- | lisp/erc/erc-backend.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index df957d1ce42..06a23e80fdd 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el | |||
| @@ -703,6 +703,9 @@ Conditionally try to reconnect and take appropriate action." | |||
| 703 | (setq erc-server-ping-handler nil))) | 703 | (setq erc-server-ping-handler nil))) |
| 704 | (run-hook-with-args 'erc-disconnected-hook | 704 | (run-hook-with-args 'erc-disconnected-hook |
| 705 | (erc-current-nick) (system-name) "") | 705 | (erc-current-nick) (system-name) "") |
| 706 | (dolist (buf (erc-buffer-filter (lambda () (boundp 'erc-channel-users)) cproc)) | ||
| 707 | (with-current-buffer buf | ||
| 708 | (setq erc-channel-users (make-hash-table :test 'equal)))) | ||
| 706 | ;; Remove the prompt | 709 | ;; Remove the prompt |
| 707 | (goto-char (or (marker-position erc-input-marker) (point-max))) | 710 | (goto-char (or (marker-position erc-input-marker) (point-max))) |
| 708 | (forward-line 0) | 711 | (forward-line 0) |