From f7b18d435a8b6be5a3ca1a958109e05fc421dddd Mon Sep 17 00:00:00 2001 From: dmaus Date: Wed, 4 Aug 2010 18:40:08 +0000 Subject: [PATCH] ssl.el (open-ssl-stream, condition-case): Don't use old-style backquotes. Thanks to Daniel Clemente for pointing at this. --- utils/ChangeLog | 5 +++++ utils/ssl.el | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) 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 + + * ssl.el (open-ssl-stream, condition-case): Don't use old-style + backquotes. + 2010-01-06 TAKAHASHI Kaoru * 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)) -- 1.7.10.4