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 (file)
--- 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 (file)
--- 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))