aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorF. Jason Park2023-02-22 06:24:17 -0800
committerF. Jason Park2023-02-22 06:33:12 -0800
commitdb7096a532ca031687f9411df621900e869e9e98 (patch)
tree3ebc17604347d5cbde6fb79fb399096fbac0179f /test
parentdb21c84bc9458a1ebaf93a4ff5d289ff96ddd33d (diff)
downloademacs-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.el4
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))