comparison 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.

1671:b2a50ea75eea

(defun dired-compress-file (file)
  ;; 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))))
    (cond (handler
	   (funcall handler 'dired-compress-file file))
	  ((file-symlink-p file)
	   nil)
	  ((string-match "\\.Z$" file)

1672:ecf43116a845

(defun dired-compress-file (file)
  ;; Compress or uncompress FILE.
  ;; Return the name of the compressed or uncompressed file.
  ;; Rerurn nil if no change in files.
  (let ((handler (find-file-name-handler file)))
    (cond (handler
	   (funcall handler 'dired-compress-file file))
	  ((file-symlink-p file)
	   nil)
	  ((string-match "\\.Z$" file)