From 972e3b728f7beced03bb337f727540c3f2c913f8 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Sat, 9 Jul 2011 13:25:54 -0700 Subject: 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. --- lisp/mh-e/ChangeLog | 15 +++++++++++++++ lisp/mh-e/mh-comp.el | 2 +- lisp/mh-e/mh-funcs.el | 2 +- lisp/mh-e/mh-search.el | 4 ++-- 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 + + * 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 * 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-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)) -- cgit v1.2.3-70-g09d2