diff options
| author | F. Jason Park | 2024-01-05 07:20:34 -0800 |
|---|---|---|
| committer | F. Jason Park | 2024-01-07 15:11:26 -0800 |
| commit | 50f430ebcd87b77207013f97e6e5d1b8fe93f990 (patch) | |
| tree | d294497a2a37a760f546299f0398b4dc5602dba0 /test | |
| parent | 37e87bc3eeb8e62e2900d73cf4dd9fc9e942d66d (diff) | |
| download | emacs-50f430ebcd87b77207013f97e6e5d1b8fe93f990.tar.gz emacs-50f430ebcd87b77207013f97e6e5d1b8fe93f990.zip | |
Clarify purpose of module aliases in ERC
* doc/misc/erc.texi: Mention that aliases should not be defined for
new modules.
* lisp/erc/erc-common.el (define-erc-module): Refactor slightly for
readability.
(erc-with-all-buffers-of-server): Redo doc string.
* lisp/erc/erc-pcomplete.el: Declare `completion' module's feature and
group as being `erc-pcomplete'.
* test/lisp/erc/erc-tests.el (erc--find-group--real): Assert group
lookup works for "normalized" module name `completion' of
`erc-pcomplete-mode'.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/erc/erc-tests.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el index a71cc806f6a..2318fed28f2 100644 --- a/test/lisp/erc/erc-tests.el +++ b/test/lisp/erc/erc-tests.el | |||
| @@ -3186,6 +3186,7 @@ | |||
| 3186 | (should (eq (erc--find-group 'autojoin) 'erc-autojoin)) | 3186 | (should (eq (erc--find-group 'autojoin) 'erc-autojoin)) |
| 3187 | (should (eq (erc--find-group 'pcomplete 'Completion) 'erc-pcomplete)) | 3187 | (should (eq (erc--find-group 'pcomplete 'Completion) 'erc-pcomplete)) |
| 3188 | (should (eq (erc--find-group 'capab-identify) 'erc-capab)) | 3188 | (should (eq (erc--find-group 'capab-identify) 'erc-capab)) |
| 3189 | (should (eq (erc--find-group 'completion) 'erc-pcomplete)) | ||
| 3189 | ;; No group specified. | 3190 | ;; No group specified. |
| 3190 | (should (eq (erc--find-group 'smiley nil) 'erc)) | 3191 | (should (eq (erc--find-group 'smiley nil) 'erc)) |
| 3191 | (should (eq (erc--find-group 'unmorse nil) 'erc))) | 3192 | (should (eq (erc--find-group 'unmorse nil) 'erc))) |