diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/erc/erc-netsplit.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/erc/erc-netsplit.el b/lisp/erc/erc-netsplit.el index f3572014f27..5dd11ab1869 100644 --- a/lisp/erc/erc-netsplit.el +++ b/lisp/erc/erc-netsplit.el | |||
| @@ -117,7 +117,9 @@ join from that split has been detected or not.") | |||
| 117 | parsed 'notice (process-buffer proc) | 117 | parsed 'notice (process-buffer proc) |
| 118 | 'netjoin-done ?s (car elt)) | 118 | 'netjoin-done ?s (car elt)) |
| 119 | (setq erc-netsplit-list (delq elt erc-netsplit-list))) | 119 | (setq erc-netsplit-list (delq elt erc-netsplit-list))) |
| 120 | (delete nick elt)) | 120 | ;; Avoid `ignored-return-value' warning for `delete'. |
| 121 | (let ((tail (nthcdr 2 elt))) ; (t n1 ... nN) | ||
| 122 | (setcdr tail (delete nick (cdr tail))))) | ||
| 121 | (setq no-next-hook t)))) | 123 | (setq no-next-hook t)))) |
| 122 | no-next-hook)) | 124 | no-next-hook)) |
| 123 | 125 | ||