diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-07-31 00:19:09 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-07-31 00:19:09 -0400 |
| commit | 42d439528dd73715c12a993df023121267bbba7f (patch) | |
| tree | f518c3af9f88b721b8d33f684a5ff8297010dc15 | |
| parent | d5065ccab3e251896f86cc5f54f82351ed8a19a5 (diff) | |
| download | emacs-42d439528dd73715c12a993df023121267bbba7f.tar.gz | |
* lisp/url/url-handlers.el (url-file-name-completion)
(url-file-name-all-completions): Don't signal errors.
Fixes: debbugs:14806
| -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) |