Mercurial > emacs
comparison lisp/ls-lisp.el @ 7030:9e51b51e8595
Pass operation to find-file-name-handler.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 22 Apr 1994 23:59:24 +0000 |
| parents | 4fe8a94b0aa6 |
| children | cc7cd83ccf3f |
comparison
equal
deleted
inserted
replaced
| 7029:f67c02c50e2a | 7030:9e51b51e8595 |
|---|---|
| 60 This version of the function comes from `ls-lisp.el'. | 60 This version of the function comes from `ls-lisp.el'. |
| 61 It does not support ordinary shell wildcards; instead, it allows | 61 It does not support ordinary shell wildcards; instead, it allows |
| 62 regular expressions to match file names. | 62 regular expressions to match file names. |
| 63 | 63 |
| 64 The switches that work are: A a c i r S s t u" | 64 The switches that work are: A a c i r S s t u" |
| 65 (let ((handler (find-file-name-handler file))) | 65 (let ((handler (find-file-name-handler file 'insert-directory))) |
| 66 (if handler | 66 (if handler |
| 67 (funcall handler 'insert-directory file switches | 67 (funcall handler 'insert-directory file switches |
| 68 wildcard full-directory-p) | 68 wildcard full-directory-p) |
| 69 ;; Convert SWITCHES to a list of characters. | 69 ;; Convert SWITCHES to a list of characters. |
| 70 (setq switches (append switches nil)) | 70 (setq switches (append switches nil)) |