# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1081742661 0
# Node ID faaf1fc909541e3c73d273f83f998cb04011d186
# Parent  c70e18f19b9cc9f84244c81996a9deffa287e709
(url-https-create-secure-wrapper): Use modern backquotes.

diff -r c70e18f19b9c -r faaf1fc90954 lisp/url/url-https.el
--- a/lisp/url/url-https.el	Mon Apr 12 04:04:10 2004 +0000
+++ b/lisp/url/url-https.el	Mon Apr 12 04:04:21 2004 +0000
@@ -33,14 +33,14 @@
 (defalias 'url-https-expand-file-name 'url-http-expand-file-name)
 
 (defmacro url-https-create-secure-wrapper (method args)
-  (` (defun (, (intern (format (if method "url-https-%s" "url-https") method))) (, args)
-       (, (format "HTTPS wrapper around `%s' call." (or method "url-http")))
-       (condition-case ()
-	   (require 'ssl)
-	 (error
-	  (error "HTTPS support could not find `ssl' library.")))
-       (let ((url-gateway-method 'ssl))
-	 ((, (intern (format (if method "url-http-%s" "url-http") method))) (,@ (remove '&rest (remove '&optional args))))))))
+  `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args
+    ,(format "HTTPS wrapper around `%s' call." (or method "url-http"))
+    (condition-case ()
+	(require 'ssl)
+      (error
+       (error "HTTPS support could not find `ssl' library")))
+    (let ((url-gateway-method 'ssl))
+      ( ,(intern (format (if method "url-http-%s" "url-http") method)) ,@(remove '&rest (remove '&optional args))))))
 
 (url-https-create-secure-wrapper nil (url callback cbargs))
 (url-https-create-secure-wrapper file-exists-p (url))