4 |
|
|
5 |
;; Author: Bill Perry <wmperry@gnu.org> |
;; Author: Bill Perry <wmperry@gnu.org> |
6 |
;; Keywords: comm, data, processes |
;; Keywords: comm, data, processes |
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
;; |
;; |
10 |
;; GNU Emacs is free software; you can redistribute it and/or modify |
;; GNU Emacs is free software; you can redistribute it and/or modify |
1121 |
;;;###autoload |
;;;###autoload |
1122 |
(defalias 'url-http-file-readable-p 'url-http-file-exists-p) |
(defalias 'url-http-file-readable-p 'url-http-file-exists-p) |
1123 |
|
|
1124 |
(defun url-http-head-file-attributes (url) |
(defun url-http-head-file-attributes (url &optional id-format) |
1125 |
(let ((buffer (url-http-head url)) |
(let ((buffer (url-http-head url)) |
1126 |
(attributes nil)) |
(attributes nil)) |
1127 |
(when buffer |
(when buffer |
1137 |
attributes)) |
attributes)) |
1138 |
|
|
1139 |
;;;###autoload |
;;;###autoload |
1140 |
(defun url-http-file-attributes (url) |
(defun url-http-file-attributes (url &optional id-format) |
1141 |
(if (url-dav-supported-p url) |
(if (url-dav-supported-p url) |
1142 |
(url-dav-file-attributes url) |
(url-dav-file-attributes url id-format) |
1143 |
(url-http-head-file-attributes url))) |
(url-http-head-file-attributes url id-format))) |
1144 |
|
|
1145 |
;;;###autoload |
;;;###autoload |
1146 |
(defun url-http-options (url) |
(defun url-http-options (url) |