emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Mention if an ERC module is local in its doc string

Browse source 
* lisp/erc/erc-common.el (erc--assemble-toggle)
(define-erc-module): Update language of doc string to indicate if a
module is local.
* test/lisp/erc/erc-tests.el (define-erc-module--global)
(define-erc-module--local)
(define-erc-module--local/permanent-locals): Update expected output.
This commit is contained in:
F. Jason Park 2024-05-23 20:50:20 -07:00
parent 1b633ea59a
commit ab78cbfabc
2 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/erc/erc-common.el
View file

@ -216,7 +216,7 @@ instead of a `set' state, which precludes any actual saving."
`(defun ,ablsym ,(if localp `(&optional ,arg) '())
,(erc--fill-module-docstring
(if val "Enable" "Disable")
" ERC " (symbol-name name) " mode."
" ERC " (symbol-name name) " mode" (and localp " locally") "."
(when localp
(concat "\nWhen called interactively,"
" do so in all buffers for the current connection.")))
@ -413,11 +413,11 @@ Example:
`(progn
(define-minor-mode
,mode
,(erc--fill-module-docstring (format "Toggle ERC %s mode.
With a prefix argument ARG, enable %s if ARG is positive,
,(erc--fill-module-docstring (format "Toggle ERC %s mode%s.
If called interactively, enable `%s' if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
\n%s" name name doc))
\n%s" name (if local-p " locally" "") mode doc))
:global ,(not local-p)
:group (erc--find-group ',name ,(and alias (list 'quote alias)))
,@(unless local-p `(:require ',(erc--find-feature name alias)))

18
test/lisp/erc/erc-tests.el
View file

@ -3667,9 +3667,9 @@
(define-minor-mode erc-mname-mode
"Toggle ERC mname mode.
With a prefix argument ARG, enable mname if ARG is positive, and
disable it otherwise. If called from Lisp, enable the mode if
ARG is omitted or nil.
If called interactively, enable `erc-mname-mode' if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Some docstring."
:global t
@ -3724,10 +3724,10 @@ Some docstring."
(should (equal got
`(progn
(define-minor-mode erc-mname-mode
"Toggle ERC mname mode.
With a prefix argument ARG, enable mname if ARG is positive, and
disable it otherwise. If called from Lisp, enable the mode if
ARG is omitted or nil.
"Toggle ERC mname mode locally.
If called interactively, enable `erc-mname-mode' if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Some docstring."
:global nil
@ -3738,7 +3738,7 @@ Some docstring."
(erc-mname-disable))))
(defun erc-mname-enable (&optional ,arg-en)
"Enable ERC mname mode.
"Enable ERC mname mode locally.
When called interactively, do so in all buffers for the current
connection."
(interactive "p")
@ -3751,7 +3751,7 @@ connection."
(ignore a) (ignore b))))
(defun erc-mname-disable (&optional ,arg-dis)
"Disable ERC mname mode.
"Disable ERC mname mode locally.
When called interactively, do so in all buffers for the current
connection."
(interactive "p")