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:
parent
1d3381ae35
commit
cb0aa89bcf
2 changed files with 9 additions and 6 deletions
|
@ -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)
|
||||
|
||||
|
|
|
@ -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,
|
||||
|
|
Loading…
Add table
Reference in a new issue