procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Document "ignored" arguments to keep checkdoc happy.

Browse source 
* 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.
This commit is contained in:
Bill Wohler 2011-07-09 13:25:54 -07:00
parent 5a47220aaa
commit 972e3b728f
5 changed files with 23 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/mh-e/ChangeLog
View file

@ -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

2
lisp/mh-e/mh-comp.el
View file

@ -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)

2
lisp/mh-e/mh-funcs.el
View file

@ -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)

4
lisp/mh-e/mh-search.el
View file

@ -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")

8
lisp/mh-e/mh-speed.el
View file

@ -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))