comparison lisp/ls-lisp.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

This version of the function comes from `directory.el'.
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))))
    (if handler
	(funcall handler 'insert-directory file switches
		 wildcard full-directory-p)
      (if wildcard
	  (setq wildcard (file-name-nondirectory file) ; actually emacs regexp

1672:ecf43116a845

This version of the function comes from `directory.el'.
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 ((find-file-name-handler file)))
    (if handler
	(funcall handler 'insert-directory file switches
		 wildcard full-directory-p)
      (if wildcard
	  (setq wildcard (file-name-nondirectory file) ; actually emacs regexp