Commit ce7ff436 authored by Glenn Morris's avatar Glenn Morris

Function declaration updates prompted by 'make check-declare'

* lisp/emacs-lisp/package.el (lm-homepage):
* lisp/gnus/gnus-util.el (iswitchb-read-buffer):
* lisp/gnus/mm-decode.el (libxml-parse-html-region):
* lisp/gnus/mml.el (libxml-parse-html-region):
* lisp/gnus/nnrss.el (libxml-parse-html-region):
* lisp/net/eww.el (libxml-parse-html-region):
* lisp/net/shr.el (libxml-parse-html-region):
* lisp/vc/vc-bzr.el (vc-annotate-convert-time):
* lisp/vc/vc-cvs.el (vc-annotate-convert-time):
* lisp/vc/vc-git.el (vc-annotate-convert-time):
* lisp/vc/vc-hg.el (vc-annotate-convert-time):
* lisp/vc/vc-mtn.el (vc-annotate-convert-time):
* lisp/vc/vc-rcs.el (vc-annotate-convert-time):
Update declaration.
parent e0d0ad2a
......@@ -956,7 +956,7 @@ is wrapped around any parts requiring it."
deps))))
(declare-function lm-header "lisp-mnt" (header))
(declare-function lm-homepage "lisp-mnt" ())
(declare-function lm-homepage "lisp-mnt" (&optional file))
(defun package-buffer-info ()
"Return a `package-desc' describing the package in the current buffer.
......
......@@ -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
......
......@@ -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)
......
......@@ -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.
......
......@@ -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
......
......@@ -379,7 +379,7 @@ Currently this means either text/html or application/xhtml+xml."
(match-string 1)))))
(declare-function libxml-parse-html-region "xml.c"
(start end &optional base-url))
(start end &optional base-url discard-comments))
(defun eww-display-html (charset url &optional document point buffer encode)
(unless (fboundp 'libxml-parse-html-region)
......
......@@ -178,7 +178,7 @@ cid: URL as the argument.")
;; Public functions and commands.
(declare-function libxml-parse-html-region "xml.c"
(start end &optional base-url))
(start end &optional base-url discard-comments))
(defun shr-render-buffer (buffer)
"Display the HTML rendering of the current buffer."
......
......@@ -873,7 +873,7 @@ property containing author and date information."
(move-marker (process-mark proc) (point))))
(process-put proc :vc-left-over string)))))))
(declare-function vc-annotate-convert-time "vc-annotate" (time))
(declare-function vc-annotate-convert-time "vc-annotate" (&optional time))
(defun vc-bzr-annotate-time ()
(when (re-search-forward "^ *[0-9.]+ +.+? +|" nil t)
......
......@@ -651,7 +651,7 @@ Optional arg REVISION is a revision to annotate from."
(re-search-forward vc-cvs-annotate-first-line-re)
(delete-region (point-min) (1- (point)))))))
(declare-function vc-annotate-convert-time "vc-annotate" (time))
(declare-function vc-annotate-convert-time "vc-annotate" (&optional time))
(defun vc-cvs-annotate-current-time ()
"Return the current time, based at midnight of the current day, and
......
......@@ -1035,7 +1035,7 @@ or BRANCH^ (where \"^\" can be repeated)."
(append (vc-switches 'git 'annotate)
(list rev "--" name)))))
(declare-function vc-annotate-convert-time "vc-annotate" (time))
(declare-function vc-annotate-convert-time "vc-annotate" (&optional time))
(defun vc-git-annotate-time ()
(and (re-search-forward "[0-9a-f]+[^()]+(.* \\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) \\([-+0-9]+\\) +[0-9]+) " nil t)
......
......@@ -373,7 +373,7 @@ Optional arg REVISION is a revision to annotate from."
(append (vc-switches 'hg 'annotate)
(if revision (list (concat "-r" revision))))))
(declare-function vc-annotate-convert-time "vc-annotate" (time))
(declare-function vc-annotate-convert-time "vc-annotate" (&optional time))
;; The format for one line output by "hg annotate -d -n" looks like this:
;;215 Wed Jun 20 21:22:58 2007 -0700: CONTENTS
......
......@@ -261,7 +261,7 @@ If LIMIT is non-nil, show no more than this many entries."
(append (vc-switches 'mtn 'annotate)
(if rev (list "-r" rev)))))
(declare-function vc-annotate-convert-time "vc-annotate" (time))
(declare-function vc-annotate-convert-time "vc-annotate" (&optional time))
(defconst vc-mtn-annotate-full-re
"^ *\\([0-9a-f]+\\)\\.* by [^ ]+ \\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\): ")
......
......@@ -758,7 +758,7 @@ Optional arg REVISION is a revision to annotate from."
(insert (gethash (get-text-property (point) :vc-rcs-r/d/a) ht))
(forward-line 1))))
(declare-function vc-annotate-convert-time "vc-annotate" (time))
(declare-function vc-annotate-convert-time "vc-annotate" (&optional time))
(defun vc-rcs-annotate-current-time ()
"Return the current time, based at midnight of the current day, and
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment