diff options
| author | Peter Breton | 2000-08-31 23:45:43 +0000 |
|---|---|---|
| committer | Peter Breton | 2000-08-31 23:45:43 +0000 |
| commit | 29ddd8fe9dbfc937d10f5fe7054bb0a66a8776de (patch) | |
| tree | 2656df20a7c99a64700e5da4bfba5e40a039f130 | |
| parent | c0f9ea083ec038ab5aa3049cd12268f4c0597578 (diff) | |
| download | emacs-29ddd8fe9dbfc937d10f5fe7054bb0a66a8776de.tar.gz emacs-29ddd8fe9dbfc937d10f5fe7054bb0a66a8776de.zip | |
(file-cache-add-directory-using-find): Don't quote wildcards on MS-DOS.
Suggested by Eli Zaretskii <eliz@is.elta.co.il>.
| -rw-r--r-- | lisp/filecache.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/filecache.el b/lisp/filecache.el index 5af516179c5..c21b93ba711 100644 --- a/lisp/filecache.el +++ b/lisp/filecache.el | |||
| @@ -3,7 +3,7 @@ | |||
| 3 | ;; Author: Peter Breton <pbreton@cs.umb.edu> | 3 | ;; Author: Peter Breton <pbreton@cs.umb.edu> |
| 4 | ;; Created: Sun Nov 10 1996 | 4 | ;; Created: Sun Nov 10 1996 |
| 5 | ;; Keywords: convenience | 5 | ;; Keywords: convenience |
| 6 | ;; Time-stamp: <2000-08-28 16:18:03 pbreton> | 6 | ;; Time-stamp: <2000-08-31 19:44:13 pbreton> |
| 7 | ;; | 7 | ;; |
| 8 | ;; Copyright (C) 1996 Free Software Foundation, Inc. | 8 | ;; Copyright (C) 1996 Free Software Foundation, Inc. |
| 9 | 9 | ||
| @@ -324,8 +324,7 @@ Find is run in DIRECTORY." | |||
| 324 | (call-process file-cache-find-command nil | 324 | (call-process file-cache-find-command nil |
| 325 | (get-buffer file-cache-buffer) nil | 325 | (get-buffer file-cache-buffer) nil |
| 326 | dir "-name" | 326 | dir "-name" |
| 327 | (if (memq system-type | 327 | (if (eq system-type 'windows-nt) "'*'" "*") |
| 328 | (list 'windows-nt 'ms-dos)) "'*'" "*") | ||
| 329 | "-print") | 328 | "-print") |
| 330 | (file-cache-add-from-file-cache-buffer))) | 329 | (file-cache-add-from-file-cache-buffer))) |
| 331 | 330 | ||