aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPeter Breton2000-08-31 23:45:43 +0000
committerPeter Breton2000-08-31 23:45:43 +0000
commit29ddd8fe9dbfc937d10f5fe7054bb0a66a8776de (patch)
tree2656df20a7c99a64700e5da4bfba5e40a039f130
parentc0f9ea083ec038ab5aa3049cd12268f4c0597578 (diff)
downloademacs-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.el5
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