155 |
;; These are operations that we do not support yet (DAV!!!) |
;; These are operations that we do not support yet (DAV!!!) |
156 |
(put 'file-writable-p 'url-file-handlers 'ignore) |
(put 'file-writable-p 'url-file-handlers 'ignore) |
157 |
(put 'file-symlink-p 'url-file-handlers 'ignore) |
(put 'file-symlink-p 'url-file-handlers 'ignore) |
158 |
|
;; Just like for ange-ftp: let's not waste time trying to look for RCS/foo,v |
159 |
|
;; files and such since we can't do anything clever with them anyway. |
160 |
|
(put 'vc-registered 'url-file-handlers 'ignore) |
161 |
|
|
162 |
(defun url-handler-expand-file-name (file &optional base) |
(defun url-handler-expand-file-name (file &optional base) |
163 |
(if (file-name-absolute-p file) |
(if (file-name-absolute-p file) |