mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

; Reflow some cl-lib docstrings

Browse source 
* lisp/emacs-lisp/cl-macs.el (cl-flet, cl-labels): Reflow docstrings.
This commit is contained in:
Stefan Kangas 2025-02-24 03:45:18 +01:00
parent 99253f7970
commit 63adf9dcf5
1 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lisp/emacs-lisp/cl-macs.el
View file

@ -2067,15 +2067,15 @@ a `let' form, except that the list of symbols can be computed at run-time."
;;;###autoload ;;;###autoload
(defmacro cl-flet (bindings &rest body) (defmacro cl-flet (bindings &rest body)
"Make local function definitions. "Make local function definitions.
Each definition can take the form (FUNC EXP) where
FUNC is the function name, and EXP is an expression that returns the
function value to which it should be bound, or it can take the more common
form (FUNC ARGLIST BODY...) which is a shorthand
for (FUNC (lambda ARGLIST BODY)).
FUNC is defined only within FORM, not BODY, so you can't write Each definition can take the form (FUNC EXP) where FUNC is the function
recursive function definitions. Use `cl-labels' for that. See name, and EXP is an expression that returns the function value to which
info node `(cl) Function Bindings' for details. it should be bound, or it can take the more common form (FUNC ARGLIST
BODY...) which is a shorthand for (FUNC (lambda ARGLIST BODY)).
FUNC is defined only within FORM, not BODY, so you can't write recursive
function definitions. Use `cl-labels' for that. See Info node
`(cl) Function Bindings' for details.
\(fn ((FUNC ARGLIST BODY...) ...) FORM...)" \(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
(declare (indent 1) (declare (indent 1)
@ -2250,12 +2250,14 @@ Like `cl-flet' but the definitions can refer to previous ones.
;;;###autoload ;;;###autoload
(defmacro cl-labels (bindings &rest body) (defmacro cl-labels (bindings &rest body)
"Make local (recursive) function definitions. "Make local (recursive) function definitions.
BINDINGS is a list of definitions of the form (FUNC ARGLIST BODY...) where
FUNC is the function name, ARGLIST its arguments, and BODY the BINDINGS is a list of definitions of the form (FUNC ARGLIST BODY...)
forms of the function body. FUNC is defined in any BODY, as well where FUNC is the function name, ARGLIST its arguments, and BODY the
as FORM, so you can write recursive and mutually recursive forms of the function body.
function definitions. See info node `(cl) Function Bindings' for
details. FUNC is defined in any BODY, as well as FORM, so you can write recursive
and mutually recursive function definitions. See Info node
`(cl) Function Bindings' for details.
\(fn ((FUNC ARGLIST BODY...) ...) FORM...)" \(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
(declare (indent 1) (debug cl-flet)) (declare (indent 1) (debug cl-flet))