diff options
author | Bill Wohler <wohler@newt.com> | 2011-07-09 13:25:54 -0700 |
---|---|---|
committer | Bill Wohler <wohler@newt.com> | 2011-07-09 13:25:54 -0700 |
commit | 972e3b728f7beced03bb337f727540c3f2c913f8 (patch) | |
tree | 7bc497a8b0fc06f07f5abecd759a345365d9e8b9 /lisp/mh-e | |
parent | 5a47220aaa77a27bf26e082789efe3c2da7fec9d (diff) |
Document "ignored" arguments to keep checkdoc happy.
* mh-speed.el (mh-speed-toggle,mh-speed-view): Ditto
* mh-search.el (mh-flists-execute): Ditto.
* mh-funcs.el (mh-undo-folder): Ditto.
* mh-comp.el (mh-user-agent-compose): Ditto.
Diffstat (limited to 'lisp/mh-e')
-rw-r--r-- | lisp/mh-e/ChangeLog | 15 | ||||
-rw-r--r-- | lisp/mh-e/mh-comp.el | 2 | ||||
-rw-r--r-- | lisp/mh-e/mh-funcs.el | 2 | ||||
-rw-r--r-- | lisp/mh-e/mh-search.el | 4 | ||||
-rw-r--r-- | lisp/mh-e/mh-speed.el | 8 |
5 files changed, 23 insertions, 8 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 365c444d591..ad9d77f2417 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,18 @@ +2011-07-09 Bill Wohler <wohler@newt.com> + + * mh-speed.el (mh-speed-toggle,mh-speed-view): Document "ignored" + arguments to keep checkdoc happy. + + * mh-search.el (mh-flists-execute): Ditto. + + * mh-funcs.el (mh-undo-folder): Ditto. + + * mh-comp.el (mh-user-agent-compose): Ditto. + + * mh-xface.el (mh-face-to-png, mh-uncompface) + (mh-picon-file-contents): Only call set-buffer-multibyte if it + exists, which it doesn't in XEmacs. + 2011-07-04 Bill Wohler <wohler@newt.com> * mh-e.el: Just require mh-loaddefs since loading it in an diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index 1aa57316f50..882a8771e28 100644 --- a/lisp/mh-e/mh-comp.el +++ b/lisp/mh-e/mh-comp.el @@ -213,7 +213,7 @@ Elements look like (HEADER . VALUE) where both HEADER and VALUE are strings. CONTINUE, SWITCH-FUNCTION, YANK-ACTION, SEND-ACTIONS, and -RETURN-ACTION are ignored." +RETURN-ACTION and any additional arguments are IGNORED." (mh-find-path) (let ((mh-error-if-no-draft t)) (mh-send to "" subject) diff --git a/lisp/mh-e/mh-funcs.el b/lisp/mh-e/mh-funcs.el index dfac684ed50..46a04c38845 100644 --- a/lisp/mh-e/mh-funcs.el +++ b/lisp/mh-e/mh-funcs.el @@ -349,7 +349,7 @@ See `mh-store-msg' for a description of DIRECTORY." (error "Error occurred during execution of %s" command))))) ;;;###mh-autoload -(defun mh-undo-folder (&rest _ignored) +(defun mh-undo-folder (&rest ignored) "Undo all refiles and deletes in the current folder. Arguments are IGNORED (for `revert-buffer')." (interactive) diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el index 1e764291f5d..a547dd8d80a 100644 --- a/lisp/mh-e/mh-search.el +++ b/lisp/mh-e/mh-search.el @@ -454,12 +454,12 @@ search all folders." (defvar mh-flists-search-folders) -(defun mh-flists-execute (&rest args) +(defun mh-flists-execute (&rest ignored) "Execute flists. Search for messages belonging to `mh-flists-sequence' in the folders specified by `mh-flists-search-folders'. If `mh-recursive-folders-flag' is t, then the folders are searched -recursively. All parameters ARGS are ignored." +recursively. All arguments are IGNORED." (set-buffer (get-buffer-create mh-temp-index-buffer)) (erase-buffer) (unless (executable-find "sh") diff --git a/lisp/mh-e/mh-speed.el b/lisp/mh-e/mh-speed.el index b782081c85c..5c3679e8ce6 100644 --- a/lisp/mh-e/mh-speed.el +++ b/lisp/mh-e/mh-speed.el @@ -126,9 +126,9 @@ With non-nil FORCE, the update is always carried out." ;; Otherwise on to your regular programming (t t))) -(defun mh-speed-toggle (&rest args) +(defun mh-speed-toggle (&rest ignored) "Toggle the display of child folders in the speedbar. -The optional ARGS from speedbar are ignored." +The optional arguments from speedbar are IGNORED." (interactive) (declare (ignore args)) (beginning-of-line) @@ -165,9 +165,9 @@ The optional ARGS from speedbar are ignored." (mh-line-beginning-position) (1+ (line-beginning-position)) `(mh-expanded t))))))) -(defun mh-speed-view (&rest args) +(defun mh-speed-view (&rest ignored) "Visits the selected folder just as if you had used \\<mh-folder-mode-map>\\[mh-visit-folder]. -The optional ARGS from speedbar are ignored." +The optional arguments from speedbar are IGNORED." (interactive) (declare (ignore args)) (let* ((folder (get-text-property (mh-line-beginning-position) 'mh-folder)) |