diff lisp/dired-aux.el @ 1672:ecf43116a845

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.

--- a/lisp/dired-aux.el	Sat Dec 12 15:21:21 1992 +0000
+++ b/lisp/dired-aux.el	Sat Dec 12 15:21:45 1992 +0000
@@ -477,14 +477,7 @@
   ;; Compress or uncompress FILE.
   ;; Return the name of the compressed or uncompressed file.
   ;; Rerurn nil if no change in files.
-  (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)))
     (cond (handler
 	   (funcall handler 'dired-compress-file file))
 	  ((file-symlink-p file)