From: dmaus <dmaus>
Date: Wed, 4 Aug 2010 18:40:08 +0000 (+0000)
Subject: ssl.el (open-ssl-stream, condition-case): Don't use old-style
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f7b18d435a8b6be5a3ca1a958109e05fc421dddd;p=elisp%2Fwanderlust.git

ssl.el (open-ssl-stream, condition-case): Don't use old-style
backquotes.

Thanks to Daniel Clemente <dcl441-bugs@yahoo.com> for pointing at
this.
---

diff --git a/utils/ChangeLog b/utils/ChangeLog
index d0f205a..188bf57 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-04  David Maus  <dmaus@ictsoc.de>
+
+	* ssl.el (open-ssl-stream, condition-case): Don't use old-style
+	backquotes.
+
 2010-01-06  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-addrbook.el (wl-summary-addrbook-add): Use
diff --git a/utils/ssl.el b/utils/ssl.el
index 0b74cd0..1bf399a 100644
--- a/utils/ssl.el
+++ b/utils/ssl.el
@@ -39,7 +39,7 @@
     (defmacro defgroup (&rest args)
       nil)
     (defmacro defcustom (var value doc &rest args) 
-      (` (defvar (, var) (, value) (, doc))))))
+      `(devar ,var ,value ,doc))))
 
 (defgroup ssl nil
   "Support for `Secure Sockets Layer' encryption."
@@ -192,9 +192,8 @@ specifying a port number to connect to."
   (let* ((process-connection-type nil)
 	 (port service)
 	 (proc (eval
-		(`
-		 (start-process name buffer ssl-program-name
-				(,@ ssl-program-arguments))))))
+		`(start-process name buffer ssl-program-name
+				,@ssl-program-arguments))))
     (process-kill-without-query proc)
     proc))