* net/gnutls.el (gnutls-boot, gnutls-errorp, gnutls-error-string): Declare.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2d508987c6b814cd2b90b7f46e340dfbf2cd7eb1..fa0075fe76962629c6ed1ff278ab21e991885d79 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-11-01  Glenn Morris  <rgm@gnu.org>
 
+       * net/gnutls.el (gnutls-boot, gnutls-errorp, gnutls-error-string):
+       Declare.
+
        * info.el (finder-keywords-hash, package-alist): Declare.
 
 2010-11-01  Chong Yidong  <cyd@stupidchicken.com>

diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el
index 00cdcd8ea9b3de96d2bf0691d3c6b017553367e9..85c546ffd3fc5c779b93aaabd967fc33eea2ae55 100644 (file)
--- a/lisp/net/gnutls.el
+++ b/lisp/net/gnutls.el
@@ -1,4 +1,5 @@
 ;;; gnutls.el --- Support SSL/TLS connections through GnuTLS
+
 ;; Copyright (C) 2010 Free Software Foundation, Inc.
 
 ;; Author: Ted Zlatanov <tzz@lifelogs.com>
@@ -65,6 +66,8 @@ trust and key files, and priority string."
   (let ((proc (open-network-stream name buffer host service)))
     (gnutls-negotiate proc 'gnutls-x509pki)))
 
+(declare-function gnutls-boot "gnutls.c" (proc type proplist))
+
 (defun gnutls-negotiate (proc type &optional priority-string
                               trustfiles keyfiles)
   "Negotiate a SSL/TLS connection.
@@ -95,6 +98,9 @@ KEYFILES is a list of client keys."
 
     proc))
 
+(declare-function gnutls-errorp "gnutls.c" (error))
+(declare-function gnutls-error-string "gnutls.c" (error))
+
 (defun gnutls-message-maybe (doit format &rest params)
   "When DOIT, message with the caller name followed by FORMAT on PARAMS."
   ;; (apply 'debug format (or params '(nil)))