* 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 254ea5db4e433f9b4f679c1c05dcac153fd0642e..120d00002e4bd257f531b806c29606617d35d9ea 100644 (file)
--- 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 ae807d6eab9bdb6465d0934dc3d4ba376b282924..e9bd1628c99421de4774000bc2ea76b3b8c00adf 100644 (file)
--- 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)