Mercurial > emacs
comparison lisp/files.el @ 8232:d87067f822f5
(insert-directory): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Jul 1994 04:03:09 +0000 |
| parents | aea786f4cdd1 |
| children | 6f692cc01d52 |
comparison
equal
deleted
inserted
replaced
| 8231:5226ed89c1a6 | 8232:d87067f822f5 |
|---|---|
| 2124 (call-process shell-file-name nil t nil | 2124 (call-process shell-file-name nil t nil |
| 2125 "-c" (concat insert-directory-program | 2125 "-c" (concat insert-directory-program |
| 2126 " -d " | 2126 " -d " |
| 2127 (if (stringp switches) | 2127 (if (stringp switches) |
| 2128 switches | 2128 switches |
| 2129 (mapconcat 'identity switches " ") | 2129 (mapconcat 'identity switches " ")) |
| 2130 " " | 2130 " " |
| 2131 pattern)))) | 2131 pattern))) |
| 2132 ;; SunOS 4.1.3, SVr4 and others need the "." to list the | 2132 ;; SunOS 4.1.3, SVr4 and others need the "." to list the |
| 2133 ;; directory if FILE is a symbolic link. | 2133 ;; directory if FILE is a symbolic link. |
| 2134 (apply 'call-process | 2134 (apply 'call-process |
| 2135 insert-directory-program nil t nil | 2135 insert-directory-program nil t nil |
| 2136 (let (list) | 2136 (let (list) |