diff options
| -rw-r--r-- | lisp/url/url-handlers.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el index 68bf0ec7ab5..12db63aade8 100644 --- a/lisp/url/url-handlers.el +++ b/lisp/url/url-handlers.el | |||
| @@ -155,6 +155,9 @@ the arguments that would have been passed to OPERATION." | |||
| 155 | ;; These are operations that we do not support yet (DAV!!!) | 155 | ;; These are operations that we do not support yet (DAV!!!) |
| 156 | (put 'file-writable-p 'url-file-handlers 'ignore) | 156 | (put 'file-writable-p 'url-file-handlers 'ignore) |
| 157 | (put 'file-symlink-p 'url-file-handlers 'ignore) | 157 | (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) | ||
| 158 | 161 | ||
| 159 | (defun url-handler-expand-file-name (file &optional base) | 162 | (defun url-handler-expand-file-name (file &optional base) |
| 160 | (if (file-name-absolute-p file) | 163 | (if (file-name-absolute-p file) |