diff options
| author | F. Jason Park | 2023-02-22 06:24:17 -0800 |
|---|---|---|
| committer | F. Jason Park | 2023-02-22 06:33:12 -0800 |
| commit | db7096a532ca031687f9411df621900e869e9e98 (patch) | |
| tree | 3ebc17604347d5cbde6fb79fb399096fbac0179f /test | |
| parent | db21c84bc9458a1ebaf93a4ff5d289ff96ddd33d (diff) | |
| download | emacs-db7096a532ca031687f9411df621900e869e9e98.tar.gz emacs-db7096a532ca031687f9411df621900e869e9e98.zip | |
Yield to erc-move-to-prompt before unhiding prompt
* lisp/erc/erc-backend.el (erc--hide-prompt): Change hook depth from 0
to 91 to allow the `move-to-prompt' module to do its thing. This
feature was added by bug#54826 and first appeared in Emacs 29.
* lisp/erc/erc-common.el (erc-server-user): Remove erroneous comment.
The `buffers' field is a list of buffers.
* test/lisp/erc/erc-tests.el (erc-hide-prompt): Use `erc--target'
instead of `erc-default-recipients' because this is new code.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/erc/erc-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el index 40a2d2de657..d6c63934163 100644 --- a/test/lisp/erc/erc-tests.el +++ b/test/lisp/erc/erc-tests.el | |||
| @@ -147,7 +147,7 @@ | |||
| 147 | (should (looking-at-p (regexp-quote erc-prompt))) | 147 | (should (looking-at-p (regexp-quote erc-prompt))) |
| 148 | (setq erc-server-process (buffer-local-value 'erc-server-process | 148 | (setq erc-server-process (buffer-local-value 'erc-server-process |
| 149 | (get-buffer "ServNet")) | 149 | (get-buffer "ServNet")) |
| 150 | erc-default-recipients '("#chan"))) | 150 | erc--target (erc--target-from-string "#chan"))) |
| 151 | 151 | ||
| 152 | (with-current-buffer (get-buffer-create "bob") | 152 | (with-current-buffer (get-buffer-create "bob") |
| 153 | (erc-tests--send-prep) | 153 | (erc-tests--send-prep) |
| @@ -155,7 +155,7 @@ | |||
| 155 | (should (looking-at-p (regexp-quote erc-prompt))) | 155 | (should (looking-at-p (regexp-quote erc-prompt))) |
| 156 | (setq erc-server-process (buffer-local-value 'erc-server-process | 156 | (setq erc-server-process (buffer-local-value 'erc-server-process |
| 157 | (get-buffer "ServNet")) | 157 | (get-buffer "ServNet")) |
| 158 | erc-default-recipients '("bob"))) | 158 | erc--target (erc--target-from-string "bob"))) |
| 159 | 159 | ||
| 160 | (ert-info ("Value: t (default)") | 160 | (ert-info ("Value: t (default)") |
| 161 | (should (eq erc-hide-prompt t)) | 161 | (should (eq erc-hide-prompt t)) |