mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2010-10-31 22:53:15 -07:00
parent 28886d5eaa
commit c3dfebd128
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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>

6
lisp/net/gnutls.el
View File

@ -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)))