aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorF. Jason Park2023-05-18 23:47:27 -0700
committerF. Jason Park2023-05-21 18:59:33 -0700
commit8120f5156ccfa0e4992685a05abcb4838d76fb8a (patch)
treed456fc79a593ae1b0d3f69344b5921e61ef391e5 /lisp
parent71622d70e8bd0f4289df098a8d9b3ab06f4bdcc0 (diff)
downloademacs-8120f5156ccfa0e4992685a05abcb4838d76fb8a.tar.gz
emacs-8120f5156ccfa0e4992685a05abcb4838d76fb8a.zip
; Silence byte compiler in erc-netsplit-JOIN
* etc/ERC-NEWS: Partially revert edit from c9f1ad2a870 "Revive option erc-query-on-unjoined-chan-privmsg". * lisp/erc/erc-netsplit.el (erc-netsplit-JOIN): Silence byte compiler warning re ignored return value from `delete' when removing nicks. Could probably suppress rather than reconstitute since the CAR of an `erc-netsplit-list' entry originates from the trailing "reason" param of the instigating "QUIT" command and should look something like "irc.example.org chat.example.org", which cannot be confused for a nickname. * test/lisp/erc/resources/erc-scenarios-common.el: Fix wording in Commentary.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/erc/erc-netsplit.el4
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