Fix checkdoc complaints in MH-E

* lisp/mh-e/mh-compat.el (mh-flet): Rewrite most of the docstring.
(mh-write-file-functions): Remove trailing space.
* lisp/mh-e-mh-scan.el (mh-scan-cmd-note-width): Break up a
line that was too long.
This commit is contained in:
Mike Kupfer 2021-11-15 21:55:53 -08:00 committed by Stephen Gildea
parent 1d3381ae35
commit cb0aa89bcf
2 changed files with 9 additions and 6 deletions

View file

@ -46,10 +46,9 @@
;; cl-letf. This macro is based upon gmm-flet from Gnus.
(defmacro mh-flet (bindings &rest body)
"Make temporary overriding function definitions.
This is an analogue of a dynamically scoped `let' that operates on
the function cell of FUNCs rather than their value cell.
\(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
That is, temporarily rebind the functions listed in BINDINGS and then
execute BODY. BINDINGS is a list containing one or more lists of the
form (FUNCNAME ARGLIST BODY...), similar to defun."
(declare (indent 1) (debug ((&rest (sexp sexp &rest form)) &rest form)))
(if (fboundp 'cl-letf)
`(cl-letf ,(mapcar (lambda (binding)
@ -138,7 +137,7 @@ This is taken from RFC 2396.")
#'window-full-height-p "29.1")
(defmacro mh-write-file-functions ()
"Return `write-file-functions'. "
"Return `write-file-functions'."
(declare (obsolete nil "29.1"))
''write-file-functions)

View file

@ -327,7 +327,11 @@ Note that columns in Emacs start with 0.")
(defvar mh-scan-cmd-note-width 1
"Number of columns consumed by the cmd-note field in `mh-scan-format'.
This column will have one of the values: \" \", \"^\", \"D\", \"B\", \"A\", \"+\", where
This column will have one of the values:
\" \", \"^\", \"D\", \"B\", \"A\", \"+\"
where
\" \" is the default value,
\"^\" is the `mh-note-refiled' character,