From: Glenn Morris Date: Mon, 1 Nov 2010 05:53:15 +0000 (-0700) Subject: * net/gnutls.el (gnutls-boot, gnutls-errorp, gnutls-error-string): Declare. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~422^2~9 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3dfebd1284d18f0e075074b9570d653b7369239;p=emacs.git * net/gnutls.el (gnutls-boot, gnutls-errorp, gnutls-error-string): Declare. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2d508987c6b..fa0075fe769 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-11-01 Glenn Morris + * net/gnutls.el (gnutls-boot, gnutls-errorp, gnutls-error-string): + Declare. + * info.el (finder-keywords-hash, package-alist): Declare. 2010-11-01 Chong Yidong diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index 00cdcd8ea9b..85c546ffd3f 100644 --- 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 @@ -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)))