From: Stefan Monnier Date: Wed, 31 Jul 2013 04:19:09 +0000 (-0400) Subject: * lisp/url/url-handlers.el (url-file-name-completion) X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1688^2~72 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42d439528dd73715c12a993df023121267bbba7f;p=emacs.git * lisp/url/url-handlers.el (url-file-name-completion) (url-file-name-all-completions): Don't signal errors. Fixes: debbugs:14806 --- 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 + + * url-handlers.el (url-file-name-completion) + (url-file-name-all-completions): Don't signal errors (bug#14806). + 2013-07-22 Stefan Monnier * 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)