diff options
| -rw-r--r-- | lisp/url/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/url/url-handlers.el | 10 |
2 files changed, 13 insertions, 2 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 254ea5db4e4..120d00002e4 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2013-07-31 Stefan Monnier <monnier@iro.umontreal.ca> + + * url-handlers.el (url-file-name-completion) + (url-file-name-all-completions): Don't signal errors (bug#14806). + 2013-07-22 Stefan Monnier <monnier@iro.umontreal.ca> * url-http.el (status): Remove, unused. diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el index ae807d6eab9..e9bd1628c99 100644 --- a/lisp/url/url-handlers.el +++ b/lisp/url/url-handlers.el @@ -311,11 +311,17 @@ They count bytes from the beginning of the body." (put 'insert-file-contents 'url-file-handlers 'url-insert-file-contents) (defun url-file-name-completion (url directory &optional predicate) - (error "Unimplemented")) + ;; Even if it's not implemented, it's not an error to ask for completion, + ;; in case it's available (bug#14806). + ;; (error "Unimplemented") + url) (put 'file-name-completion 'url-file-handlers 'url-file-name-completion) (defun url-file-name-all-completions (file directory) - (error "Unimplemented")) + ;; Even if it's not implemented, it's not an error to ask for completion, + ;; in case it's available (bug#14806). + ;; (error "Unimplemented") + nil) (put 'file-name-all-completions 'url-file-handlers 'url-file-name-all-completions) |