/[emacs]/emacs/lisp/url/url-http.el
ViewVC logotype

Diff of /emacs/lisp/url/url-http.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by monnier, Mon Apr 12 20:44:14 2004 UTC revision 1.4.2.1 by miles, Mon Jun 28 07:30:01 2004 UTC
# Line 4  Line 4 
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
# Line 1120  CBARGS as the arguments." Line 1121  CBARGS as the arguments."
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
# Line 1136  CBARGS as the arguments." Line 1137  CBARGS as the arguments."
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)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26