diff options
| author | F. Jason Park | 2023-11-08 19:14:55 -0800 |
|---|---|---|
| committer | F. Jason Park | 2023-11-12 20:37:48 -0800 |
| commit | beb60a9027ce61b4fa5b003804a46fefc4916c6f (patch) | |
| tree | f204c0f59b184cd8b3da23ba39f166a6b470eb63 /test | |
| parent | 5baa0f61f8dc65ec45e3fe49c8179e4ae6830a84 (diff) | |
| download | emacs-beb60a9027ce61b4fa5b003804a46fefc4916c6f.tar.gz emacs-beb60a9027ce61b4fa5b003804a46fefc4916c6f.zip | |
Make ERC's error-notice formatting more consistent
* lisp/erc/erc-backend.el (erc--server-propagate-failed-connection):
Include leading three-asterisk notice prefix when reporting process
exit status, and set the `erc-msg' text property to `notice-error'.
(erc-schedule-reconnect): Include leading notice prefix when inserting
`reconnecting' message.
* lisp/erc/erc.el (erc-process-input-line, erc-cmd-PART,
erc-cmd-TOPIC): Display `no-target' messages as "error notices".
(erc-message-english-disconnected,
erc-message-english-disconnected-noreconnect): Hard-code standard
value of `erc-notice-prefix' into message text for consistency during
formatting and insertion.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Expect notice
prefix before `no-target' message. (Bug#67031)
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/erc/erc-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el index 916b394c8ff..2898ca7be75 100644 --- a/test/lisp/erc/erc-tests.el +++ b/test/lisp/erc/erc-tests.el | |||
| @@ -317,7 +317,7 @@ | |||
| 317 | (insert "Howdy") | 317 | (insert "Howdy") |
| 318 | (erc-send-current-line) | 318 | (erc-send-current-line) |
| 319 | (save-excursion (forward-line -1) | 319 | (save-excursion (forward-line -1) |
| 320 | (should (looking-at "No target")) | 320 | (should (looking-at (rx "*** No target"))) |
| 321 | (forward-line -1) | 321 | (forward-line -1) |
| 322 | (should (looking-at "<tester> Howdy"))) | 322 | (should (looking-at "<tester> Howdy"))) |
| 323 | (should (looking-back "ServNet 6> ")) | 323 | (should (looking-back "ServNet 6> ")) |