[Emacs-diffs] trunk r113608: * lisp/url/url-handlers.el (url-file-name-completion)

[Stefan Monnier]

------------------------------------------------------------
revno: 113608
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=14806
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2013-07-31 00:19:09 -0400
message:
  * lisp/url/url-handlers.el (url-file-name-completion)
  (url-file-name-all-completions): Don't signal errors.
modified:
  lisp/url/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-3116
  lisp/url/url-handlers.el       
urlhandlers.el-20091113204419-o5vbwnq5f7feedwu-2987

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2013-07-22 04:06:21 +0000
+++ b/lisp/url/ChangeLog        2013-07-31 04:19:09 +0000
@@ -1,3 +1,8 @@
+2013-07-31  Stefan Monnier  <address@hidden>
+
+       * url-handlers.el (url-file-name-completion)
+       (url-file-name-all-completions): Don't signal errors (bug#14806).
+
 2013-07-22  Stefan Monnier  <address@hidden>
 
        * url-http.el (status): Remove, unused.

=== modified file 'lisp/url/url-handlers.el'
--- a/lisp/url/url-handlers.el  2013-05-22 07:30:44 +0000
+++ b/lisp/url/url-handlers.el  2013-07-31 04:19:09 +0000
@@ -311,11 +311,17 @@
 (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)