diff options
| author | F. Jason Park | 2023-05-18 23:47:27 -0700 |
|---|---|---|
| committer | F. Jason Park | 2023-05-21 18:59:33 -0700 |
| commit | 8120f5156ccfa0e4992685a05abcb4838d76fb8a (patch) | |
| tree | d456fc79a593ae1b0d3f69344b5921e61ef391e5 | |
| parent | 71622d70e8bd0f4289df098a8d9b3ab06f4bdcc0 (diff) | |
| download | emacs-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.
| -rw-r--r-- | etc/ERC-NEWS | 4 | ||||
| -rw-r--r-- | lisp/erc/erc-netsplit.el | 4 | ||||
| -rw-r--r-- | test/lisp/erc/resources/erc-scenarios-common.el | 2 |
3 files changed, 6 insertions, 4 deletions
diff --git a/etc/ERC-NEWS b/etc/ERC-NEWS index 1aa445c5b9c..d257bdcbf51 100644 --- a/etc/ERC-NEWS +++ b/etc/ERC-NEWS | |||
| @@ -366,8 +366,8 @@ In an effort to help further tame ERC's complexity, the variable | |||
| 366 | 'erc-default-recipients' is now expected to hold but a single target. | 366 | 'erc-default-recipients' is now expected to hold but a single target. |
| 367 | As a consequence, functions like 'erc-add-default-channel' that | 367 | As a consequence, functions like 'erc-add-default-channel' that |
| 368 | imagine an alternate, aspirational model of buffer-target relations | 368 | imagine an alternate, aspirational model of buffer-target relations |
| 369 | have been deprecated. Grep for their names in ChangeLog.4 for | 369 | have been deprecated. For specifics, see entries in Emacs' |
| 370 | details. | 370 | ChangeLog.4 from around June 30, 2022. |
| 371 | 371 | ||
| 372 | A number of less consequential deprecations also debut in this | 372 | A number of less consequential deprecations also debut in this |
| 373 | release. For example, the function 'erc-auto-query' was deemed too | 373 | release. For example, the function 'erc-auto-query' was deemed too |
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 | ||
diff --git a/test/lisp/erc/resources/erc-scenarios-common.el b/test/lisp/erc/resources/erc-scenarios-common.el index f259c88594b..32e7556d602 100644 --- a/test/lisp/erc/resources/erc-scenarios-common.el +++ b/test/lisp/erc/resources/erc-scenarios-common.el | |||
| @@ -51,7 +51,7 @@ | |||
| 51 | ;; argument, a `let*'-style VAR-LIST. Relying on such a macro is | 51 | ;; argument, a `let*'-style VAR-LIST. Relying on such a macro is |
| 52 | ;; unfortunate because in many ways it actually hampers readability by | 52 | ;; unfortunate because in many ways it actually hampers readability by |
| 53 | ;; favoring magic over verbosity. But without it (or something | 53 | ;; favoring magic over verbosity. But without it (or something |
| 54 | ;; similar), any failing test would cause all subsequent tests in this | 54 | ;; similar), any failing test would cause all subsequent tests in a |
| 55 | ;; file to fail like dominoes (making all but the first backtrace | 55 | ;; file to fail like dominoes (making all but the first backtrace |
| 56 | ;; useless). | 56 | ;; useless). |
| 57 | ;; | 57 | ;; |