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)) |