mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 11:21:04 -08:00
Code Issues Projects Releases Wiki Activity

(url-https-expand-file-name): Resolve directly to url-default-expander

Browse source 
rather than via another alias.
(url-default-expander): Autoload an autoload.  (Bug#825).
This commit is contained in:
Glenn Morris 2008-08-30 02:22:47 +00:00
parent 36bdf1ff3c
commit e77e9cf409
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/url/ChangeLog
View file

@ -1,3 +1,9 @@
2008-08-30 Glenn Morris <rgm@gnu.org>
* url-http.el (url-https-expand-file-name): Resolve directly to
url-default-expander rather than via another alias.
(url-default-expander): Autoload an autoload. (Bug#825).
2008-07-02 Juanma Barranquero <lekktu@gmail.com>
* url.el (url-do-setup):

6
lisp/url/url-http.el
View file

@ -1,6 +1,7 @@
;;; url-http.el --- HTTP retrieval routines
;; Copyright (C) 1999, 2001, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
;; Copyright (C) 1999, 2001, 2004, 2005, 2006, 2007,
;; 2008 Free Software Foundation, Inc.
;; Author: Bill Perry <wmperry@gnu.org>
;; Keywords: comm, data, processes
@ -1361,8 +1362,9 @@ p3p
(defconst url-https-default-port 443 "Default HTTPS port.")
;;;###autoload
(defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.")
;;;###autoload (autoload 'url-default-expander "url-expand")
;;;###autoload
(defalias 'url-https-expand-file-name 'url-http-expand-file-name)
(defalias 'url-https-expand-file-name 'url-default-expander)
(defmacro url-https-create-secure-wrapper (method args)
`(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args