[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] Use built-in gnutls support in Emacs 24



Hi there!

Change is trivial, yet it noticeably speeds things up. Don't forget
to add (require 'gnutls) in your ~/.emacs

What's our new github commit policy? David?

diff --git a/utils/ssl.el b/utils/ssl.el
index 7006955..24da08a 100644
--- a/utils/ssl.el
+++ b/utils/ssl.el
@@ -191,9 +191,11 @@ specifying a port number to connect to."
   (if (integerp service) (setq service (int-to-string service)))
   (let* ((process-connection-type nil)
 	 (port service)
-	 (proc (eval
-		`(start-process name buffer ssl-program-name
-				,@ssl-program-arguments))))
+         (proc (if (fboundp 'open-gnutls-stream)
+                   (open-gnutls-stream name buffer host service)
+                 (eval
+                  `(start-process name buffer ssl-program-name
+                                  ,@ssl-program-arguments)))))
     (process-kill-without-query proc)
     proc))
 
-- 
wbr, Vitaly