mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-01 11:14:55 +00:00
(noreturn, 1value): Doc fixes.
This commit is contained in:
parent
9f126fd015
commit
70c6db6c46
12
lisp/subr.el
12
lisp/subr.el
@ -42,17 +42,15 @@ Each element of this list holds the arguments to one call to `defcustom'.")
|
||||
(defalias 'not 'null)
|
||||
|
||||
(defmacro noreturn (form)
|
||||
"Evaluates FORM, with the expectation that the evaluation will signal an error
|
||||
instead of returning to its caller. If FORM does return, an error is
|
||||
signaled."
|
||||
"Evaluate FORM, expecting it not to return.
|
||||
If FORM does return, signal an error."
|
||||
`(prog1 ,form
|
||||
(error "Form marked with `noreturn' did return")))
|
||||
|
||||
(defmacro 1value (form)
|
||||
"Evaluates FORM, with the expectation that the same value will be returned
|
||||
from all evaluations of FORM. This is the global do-nothing
|
||||
version of `1value'. There is also `testcover-1value' that
|
||||
complains if FORM ever does return differing values."
|
||||
"Evaluate FORM, expecting a constant return value.
|
||||
This is the global do-nothing version. There is also `testcover-1value'
|
||||
that complains if FORM ever does return differing values."
|
||||
form)
|
||||
|
||||
(defmacro lambda (&rest cdr)
|
||||
|
Loading…
Reference in New Issue
Block a user