/[emacs]/emacs/lisp/filecache.el
ViewVC logotype

Diff of /emacs/lisp/filecache.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by rms, Mon Dec 13 19:43:13 2004 UTC revision 1.23 by rms, Mon Dec 13 19:44:11 2004 UTC
# Line 337  in each directory, not to the directory Line 337  in each directory, not to the directory
337  Find is run in DIRECTORY."  Find is run in DIRECTORY."
338    (interactive "DAdd files under directory: ")    (interactive "DAdd files under directory: ")
339    (let ((dir (expand-file-name directory)))    (let ((dir (expand-file-name directory)))
340      (if (eq file-cache-find-command-posix-flag 'not-defined)      (when (memq system-type '(windows-nt cygwin))
341          (setq file-cache-find-command-posix-flag        (if (eq file-cache-find-command-posix-flag 'not-defined)
342                (executable-command-find-posix-p file-cache-find-command)))            (setq file-cache-find-command-posix-flag
343                    (executable-command-find-posix-p file-cache-find-command))))
344      (set-buffer (get-buffer-create file-cache-buffer))      (set-buffer (get-buffer-create file-cache-buffer))
345      (erase-buffer)      (erase-buffer)
346      (call-process file-cache-find-command nil      (call-process file-cache-find-command nil

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26