/[emacs]/emacs/lisp/progmodes/grep.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/grep.el

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

revision 1.13 by harder, Sun May 23 19:08:37 2004 UTC revision 1.14 by monnier, Fri May 28 21:07:47 2004 UTC
# Line 533  those sub directories of DIR." Line 533  those sub directories of DIR."
533            (files            (files
534             (read-string (concat "Search for \"" regexp "\" in files (default "   grep-tree-last-files  "): ")))             (read-string (concat "Search for \"" regexp "\" in files (default "   grep-tree-last-files  "): ")))
535            (dir            (dir
536             (file-name-as-directory             (read-directory-name "Base directory: " nil default-directory t)))
             (read-directory-name "Base directory: " nil default-directory t))))  
537       (list regexp files dir)))       (list regexp files dir)))
538    (unless grep-tree-command    (unless grep-tree-command
539      (grep-compute-defaults))      (grep-compute-defaults))
# Line 556  those sub directories of DIR." Line 555  those sub directories of DIR."
555                           nil)  ;; we change default-directory to dir                           nil)  ;; we change default-directory to dir
556                         (and grep-tree-ignore-CVS-directories "-path '*/CVS' -prune -o ")                         (and grep-tree-ignore-CVS-directories "-path '*/CVS' -prune -o ")
557                         grep-tree-ignore-case))                         grep-tree-ignore-case))
558          (default-directory dir)          (default-directory (file-name-as-directory (expand-file-name dir)))
559          (null-device nil))              ; see grep          (null-device nil))              ; see grep
560      (grep command-args regexp)))      (grep command-args regexp)))
561    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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