From: Glenn Morris <rgm@gnu.org>
Date: Mon, 26 Feb 2018 18:35:30 +0000 (-0500)
Subject: Update some lisp function declarations
X-Git-Tag: emacs-27.0.90~5626
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ea62d635dd71ddb3368dd743ea9deb2bd68d34d;p=emacs.git

Update some lisp function declarations
---

diff --git a/lisp/gnus/mm-extern.el b/lisp/gnus/mm-extern.el
index b7c602030d7..e2f8bd4af3f 100644
--- a/lisp/gnus/mm-extern.el
+++ b/lisp/gnus/mm-extern.el
@@ -86,7 +86,7 @@
   (let (mm-extern-anonymous)
     (mm-extern-anon-ftp handle)))
 
-(declare-function message-goto-body "message" ())
+(declare-function message-goto-body "message" (&optional interactive))
 
 (defun mm-extern-mail-server (handle)
   (require 'message)
diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el
index b5fb1aec00f..37b2d94e5f5 100644
--- a/lisp/mail/hashcash.el
+++ b/lisp/mail/hashcash.el
@@ -133,7 +133,7 @@ For example, you may want to set this to (\"-Z2\") to reduce header length."
 
 (declare-function message-narrow-to-headers-or-head "message" ())
 (declare-function message-fetch-field "message" (header &optional not-all))
-(declare-function message-goto-eoh "message" ())
+(declare-function message-goto-eoh "message" (&optional interactive))
 (declare-function message-narrow-to-headers "message" ())
 
 (defun hashcash-token-substring ()
diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index 36b96ca10af..2a2ce8b9c97 100644
--- a/lisp/net/imap.el
+++ b/lisp/net/imap.el
@@ -141,10 +141,10 @@
 (require 'rfc2104)
 ;; Hmm... digest-md5 is not part of Emacs.
 ;; FIXME: Should/can we use sasl-digest.el instead?
-(declare-function digest-md5-parse-digest-challenge "digest-md5")
-(declare-function digest-md5-digest-response "digest-md5")
-(declare-function digest-md5-digest-uri "digest-md5")
-(declare-function digest-md5-challenge "digest-md5")
+(declare-function digest-md5-parse-digest-challenge "ext:digest-md5")
+(declare-function digest-md5-digest-response "ext:digest-md5")
+(declare-function digest-md5-digest-uri "ext:digest-md5")
+(declare-function digest-md5-challenge "ext:digest-md5")
 
 ;; User variables.
 
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 28eaeff6056..dc57160d04f 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -392,8 +392,12 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
 
 (declare-function w32-set-clipboard-data "w32select.c"
 		  (string &optional ignored))
-(declare-function w32-get-clipboard-data "w32select.c")
-(declare-function w32-selection-exists-p "w32select.c")
+(declare-function w32-get-clipboard-data "w32select.c"
+                  (&optional ignored))
+(declare-function w32-selection-exists-p "w32select.c"
+                  (&optional selection terminal))
+(declare-function w32-selection-targets "w32select.c"
+                  (&optional selection terminal))
 
 ;;; Fix interface to (X-specific) mouse.el
 (defun w32--set-selection (type value)
diff --git a/lisp/vc/ediff.el b/lisp/vc/ediff.el
index cd2b2c4e628..a5e8022f1c8 100644
--- a/lisp/vc/ediff.el
+++ b/lisp/vc/ediff.el
@@ -153,7 +153,7 @@
 (declare-function dired-get-filename "dired"
                   (&optional localp no-error-if-not-filep))
 (declare-function dired-get-marked-files "dired"
-                  (&optional localp arg filter distinguish-one-marked))
+                  (&optional localp arg filter distinguish-one-marked error))
 
 ;; Return a plausible default for ediff's first file:
 ;; In dired, return the file number FILENO (or 0) in the list