Mercurial > emacs
comparison lisp/progmodes/grep.el @ 105170:f8ba8d6fd250
Fix typos.
* allout.el
* dired-aux.el
* dired-x.el
* epa-file.el
* ps-print.el
* shell.el
* vc-hooks.el
* vc-rcs.el
* vc-sccs.el
* vc.el
* view.el
* wdired.el
* emacs-lisp/authors.el
* net/dig.el
* net/socks.el
* net/zeroconf.el
* obsolete/vc-mcvs.el
* progmodes/gdb-mi.el
* progmodes/grep.el
* progmodes/idlw-help.el
* progmodes/idlw-shell.el
* progmodes/idlwave.el
* progmodes/inf-lisp.el
* textmodes/bibtex.el
* textmodes/ispell.el
* textmodes/reftex-toc.el
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 24 Sep 2009 01:37:14 +0000 |
parents | 5c11b1241dc1 |
children | a0f778f4a995 |
comparison
equal
deleted
inserted
replaced
105169:1d903e2f65af | 105170:f8ba8d6fd250 |
---|---|
824 (cond | 824 (cond |
825 ((and grep-command (equal current-prefix-arg '(16))) | 825 ((and grep-command (equal current-prefix-arg '(16))) |
826 (list (read-from-minibuffer "Run: " grep-command | 826 (list (read-from-minibuffer "Run: " grep-command |
827 nil nil 'grep-history))) | 827 nil nil 'grep-history))) |
828 ((not grep-template) | 828 ((not grep-template) |
829 (error "grep.el: No `grep-template' available.")) | 829 (error "grep.el: No `grep-template' available")) |
830 (t (let* ((regexp (grep-read-regexp)) | 830 (t (let* ((regexp (grep-read-regexp)) |
831 (files (grep-read-files regexp)) | 831 (files (grep-read-files regexp)) |
832 (dir (read-directory-name "In directory: " | 832 (dir (read-directory-name "In directory: " |
833 nil default-directory t)) | 833 nil default-directory t)) |
834 (confirm (equal current-prefix-arg '(4)))) | 834 (confirm (equal current-prefix-arg '(4)))) |
901 (cond | 901 (cond |
902 ((and grep-find-command (equal current-prefix-arg '(16))) | 902 ((and grep-find-command (equal current-prefix-arg '(16))) |
903 (list (read-from-minibuffer "Run: " grep-find-command | 903 (list (read-from-minibuffer "Run: " grep-find-command |
904 nil nil 'grep-find-history))) | 904 nil nil 'grep-find-history))) |
905 ((not grep-find-template) | 905 ((not grep-find-template) |
906 (error "grep.el: No `grep-find-template' available.")) | 906 (error "grep.el: No `grep-find-template' available")) |
907 (t (let* ((regexp (grep-read-regexp)) | 907 (t (let* ((regexp (grep-read-regexp)) |
908 (files (grep-read-files regexp)) | 908 (files (grep-read-files regexp)) |
909 (dir (read-directory-name "Base directory: " | 909 (dir (read-directory-name "Base directory: " |
910 nil default-directory t)) | 910 nil default-directory t)) |
911 (confirm (equal current-prefix-arg '(4)))) | 911 (confirm (equal current-prefix-arg '(4)))) |