[Emacs-diffs] /srv/bzr/emacs/trunk r102199: * net/gnutls.el (gnutls-boot, gnutls-errorp, gnutls-error-string): Declare.

[Glenn Morris]

------------------------------------------------------------
revno: 102199
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-31 22:53:15 -0700
message:
  * net/gnutls.el (gnutls-boot, gnutls-errorp, gnutls-error-string): Declare.
modified:
  lisp/ChangeLog
  lisp/net/gnutls.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-01 05:48:20 +0000
+++ b/lisp/ChangeLog    2010-11-01 05:53:15 +0000
@@ -1,5 +1,8 @@
 2010-11-01  Glenn Morris  <address@hidden>
 
+       * net/gnutls.el (gnutls-boot, gnutls-errorp, gnutls-error-string):
+       Declare.
+
        * info.el (finder-keywords-hash, package-alist): Declare.
 
 2010-11-01  Chong Yidong  <address@hidden>

=== modified file 'lisp/net/gnutls.el'
--- a/lisp/net/gnutls.el        2010-10-04 01:16:00 +0000
+++ b/lisp/net/gnutls.el        2010-11-01 05:53:15 +0000
@@ -1,4 +1,5 @@
 ;;; gnutls.el --- Support SSL/TLS connections through GnuTLS
+
 ;; Copyright (C) 2010 Free Software Foundation, Inc.
 
 ;; Author: Ted Zlatanov <address@hidden>
@@ -65,6 +66,8 @@
   (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 @@
 
     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)))