Function declaration updates prompted by 'make check-declare'

* gnus-util.el (iswitchb-read-buffer):
* mm-decode.el (libxml-parse-html-region):
* mml.el (libxml-parse-html-region):
* nnrss.el (libxml-parse-html-region): Update declaration.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 757eca8..774dfad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2015-05-01  Glenn Morris  <rgm@gnu.org>
+
+       * gnus-util.el (iswitchb-read-buffer):
+       * mm-decode.el (libxml-parse-html-region):
+       * mml.el (libxml-parse-html-region):
+       * nnrss.el (libxml-parse-html-region): Update declaration.
+
 2015-04-27  Glenn Morris  <rgm@gnu.org>
 
        * message.el (gnus-extract-address-components):

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 7bacaba..4b06cc0 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1575,7 +1575,8 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
 
 
 (declare-function iswitchb-read-buffer "iswitchb"
-                 (prompt &optional default require-match start matches-set))
+                 (prompt &optional default require-match
+                         _predicate start matches-set))
 (defvar iswitchb-temp-buflist)
 
 (defun gnus-iswitchb-completing-read (prompt collection &optional require-match

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index ae6bb71..bce9abd 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1827,7 +1827,7 @@ If RECURSIVE, search recursively."
              (not (mm-long-lines-p 76))))))
 
 (declare-function libxml-parse-html-region "xml.c"
-                 (start end &optional base-url))
+                 (start end &optional base-url discard-comments))
 (declare-function shr-insert-document "shr" (dom))
 (defvar shr-blocked-images)
 (defvar shr-use-fonts)

diff --git a/lisp/mml.el b/lisp/mml.el
index 2a3b228..5754475 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -463,7 +463,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
 (defvar mml-inhibit-compute-boundary nil)
 
 (declare-function libxml-parse-html-region "xml.c"
-                 (start end &optional base-url))
+                 (start end &optional base-url discard-comments))
 
 (defun mml-generate-mime (&optional multipart-type)
   "Generate a MIME message based on the current MML document.

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index ac9c5ff..1546f92 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -395,7 +395,7 @@ otherwise return nil."
     (mm-coding-system-p 'utf-8)))
 
 (declare-function libxml-parse-html-region "xml.c"
-                 (start end &optional base-url))
+                 (start end &optional base-url discard-comments))
 (defun nnrss-fetch (url &optional local)
   "Fetch URL and put it in a the expected Lisp structure."
   (mm-with-unibyte-buffer