Mercurial > emacs

comparison lisp/url/url-https.el @ 83096:eb7e8d483840

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-200 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-201 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-202 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-203 Add entry for macroexpand-all to NEWS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-204 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-205 Add macroexpand-all to lisp reference manual * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-206 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-207 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-208 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-209 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-210 More RCS keyword removal * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-211 File-permission tweaks * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-212 Checkout from CVS with unexpanded RCS keywords git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-136
author Karoly Lorentey <lorentey@elte.hu>
date Tue, 13 Apr 2004 17:17:13 +0000
parents 8e5779acd195 faaf1fc90954
children 625059157bad
comparison
equal deleted inserted replaced
83095:b448166f5664 83096:eb7e8d483840
31 (defconst url-https-default-port 443 "Default HTTPS port.") 31 (defconst url-https-default-port 443 "Default HTTPS port.")
32 (defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.") 32 (defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.")
33 (defalias 'url-https-expand-file-name 'url-http-expand-file-name) 33 (defalias 'url-https-expand-file-name 'url-http-expand-file-name)
34 34
35 (defmacro url-https-create-secure-wrapper (method args) 35 (defmacro url-https-create-secure-wrapper (method args)
36 (` (defun (, (intern (format (if method "url-https-%s" "url-https") method))) (, args) 36 `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args
37 (, (format "HTTPS wrapper around `%s' call." (or method "url-http"))) 37 ,(format "HTTPS wrapper around `%s' call." (or method "url-http"))
38 (condition-case () 38 (condition-case ()
39 (require 'ssl) 39 (require 'ssl)
40 (error 40 (error
41 (error "HTTPS support could not find `ssl' library."))) 41 (error "HTTPS support could not find `ssl' library")))
42 (let ((url-gateway-method 'ssl)) 42 (let ((url-gateway-method 'ssl))
43 ((, (intern (format (if method "url-http-%s" "url-http") method))) (,@ (remove '&rest (remove '&optional args)))))))) 43 ( ,(intern (format (if method "url-http-%s" "url-http") method)) ,@(remove '&rest (remove '&optional args))))))
44 44
45 (url-https-create-secure-wrapper nil (url callback cbargs)) 45 (url-https-create-secure-wrapper nil (url callback cbargs))
46 (url-https-create-secure-wrapper file-exists-p (url)) 46 (url-https-create-secure-wrapper file-exists-p (url))
47 (url-https-create-secure-wrapper file-readable-p (url)) 47 (url-https-create-secure-wrapper file-readable-p (url))
48 (url-https-create-secure-wrapper file-attributes (url)) 48 (url-https-create-secure-wrapper file-attributes (url))