]> git.eshelyaron.com Git - emacs.git/commitdiff
Improve doc strings of a recent commit
authorEli Zaretskii <eliz@gnu.org>
Sat, 18 Sep 2021 11:56:55 +0000 (14:56 +0300)
committerEli Zaretskii <eliz@gnu.org>
Sat, 18 Sep 2021 11:56:55 +0000 (14:56 +0300)
* lisp/emacs-lisp/generator.el (iter-defun):
* lisp/emacs-lisp/comp.el (comp-clean-up-stale-eln):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode):
* lisp/emacs-lisp/autoload.el (autoload-insert-section-header):
Include description of arguments in the doc string's first line.

lisp/emacs-lisp/autoload.el
lisp/emacs-lisp/bytecomp.el
lisp/emacs-lisp/comp.el
lisp/emacs-lisp/generator.el

index 38512e04e752658e0f4353d7071b059368a5f4a3..f620cdbb335a0a27708045b41d9697bdaf371182 100644 (file)
@@ -432,8 +432,10 @@ FILE's name."
   file)
 
 (defun autoload-insert-section-header (outbuf autoloads load-name file time)
-  "Insert the section-header line.
-This lists the file name and which functions are in it, etc."
+  "Insert into buffer OUTBUF the section-header line for FILE.
+The header line lists the file name, its \"load name\", its autoloads,
+and the time the FILE was last updated (the time is inserted only
+if `autoload-timestamps' is non-nil, otherwise a fixed fake time is inserted)."
   ;; (cl-assert ;Make sure we don't insert it in the middle of another section.
   ;;  (save-excursion
   ;;    (or (not (re-search-backward
index 8a730618ecd3f663c7f4d2ce8f66952d58a5edb3..614aa856f6aeba26a210424ef11fddc69eec751c 100644 (file)
@@ -915,7 +915,7 @@ CONST2 may be evaluated multiple times."
                                ,bytes ,pc))
 
 (defun byte-compile-lapcode (lap)
-  "Turn lapcode into bytecode.  The lapcode is destroyed."
+  "Turn lapcode LAP into bytecode.  The lapcode is destroyed."
   ;; Lapcode modifications: changes the ID of a tag to be the tag's PC.
   (let ((pc 0)                 ; Program counter
        op off                  ; Operation & offset
index ab36b8aa907498c36fd4f2c65f04eb0fb8e9f6f7..31cae734cccbccf89f82230c7031dd5229c8566b 100644 (file)
@@ -3804,8 +3804,9 @@ Return the trampoline if found or nil otherwise."
 
 ;;;###autoload
 (defun comp-clean-up-stale-eln (file)
-  "Given FILE remove all its *.eln files in `native-comp-eln-load-path'.
-sharing the original source filename (including FILE)."
+  "Remove all FILE*.eln* files found in `native-comp-eln-load-path'.
+The files to be removed are those produced from the original source
+filename (including FILE)."
   (when (string-match (rx "-" (group-n 1 (1+ hex)) "-" (1+ hex) ".eln" eos)
                       file)
     (cl-loop
index 7801fc90706d279f9b5afa492db5e9b29ddecab4..2075ac472d1706d4ff249227f06ed7bdf523a4a5 100644 (file)
@@ -668,7 +668,7 @@ sub-iterator function returns via `iter-end-of-sequence'."
          (iter-close ,valsym)))))
 
 (defmacro iter-defun (name arglist &rest body)
-  "Create a generator NAME.
+  "Create a generator NAME that accepts ARGLIST as its arguments.
 When called as a function, NAME returns an iterator value that
 encapsulates the state of a computation that produces a sequence
 of values.  Callers can retrieve each value using `iter-next'."