The find-file-name-handler function in ../src/fileio.c is now

	callable from lisp; use it instead of writing out its code.
	* dired-aux.el (dired-compress-file): Just that.
	* dired.el (dired-uncache): Just that.
	* files.el (file-local-copy, file-truename,
	file-name-sans-versions, make-directory, save-buffers-kill-emacs):
	Just that.
	* ls-lisp.el (insert-directory): Just that.

1 files changed, 1 insertions, 8 deletions

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 54be933b2e3..94b0ed4385e 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -57,14 +57,7 @@ It does not support ordinary shell wildcards; instead, it allows
 regular expressions to match file names.
 
 The switches that work are: A a c i r S s t u"
-  (let (handler (handlers file-name-handler-alist))
-    (save-match-data
-     (while (and (consp handlers) (null handler))
-       (if (and (consp (car handlers))
-                (stringp (car (car handlers)))
-                (string-match (car (car handlers)) file))
-           (setq handler (cdr (car handlers))))
-       (setq handlers (cdr handlers))))
+  (let (handler ((find-file-name-handler file)))
     (if handler
         (funcall handler 'insert-directory file switches
                  wildcard full-directory-p)