procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add two docstrings in cl-lib.el

Browse source 
* lisp/emacs-lisp/cl-lib.el (cl--set-buffer-substring)
(cl--defalias): Add docstrings.  (Bug#66828)
This commit is contained in:
Jeremy Bryant 2023-10-29 21:56:54 +00:00 • committed by Eli Zaretskii
parent 4193912745
commit da8b85b577
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/cl-lib.el
View file

@ -157,6 +157,7 @@ to an element already in the list stored in PLACE.
`(cl-callf2 cl-adjoin ,x ,place ,@keys))) `(cl-callf2 cl-adjoin ,x ,place ,@keys)))
(defun cl--set-buffer-substring (start end val) (defun cl--set-buffer-substring (start end val)
"Delete region from START to END and insert VAL."
(save-excursion (delete-region start end) (save-excursion (delete-region start end)
(goto-char start) (goto-char start)
(insert val) (insert val)
@ -183,6 +184,9 @@ to an element already in the list stored in PLACE.
;; the target form to return the values as a list. ;; the target form to return the values as a list.
(defun cl--defalias (cl-f el-f &optional doc) (defun cl--defalias (cl-f el-f &optional doc)
"Define function CL-F as definition EL-F.
For example, (cl--defalias 'cl-first 'car)."
(defalias cl-f el-f doc) (defalias cl-f el-f doc)
(put cl-f 'byte-optimizer 'byte-compile-inline-expand)) (put cl-f 'byte-optimizer 'byte-compile-inline-expand))