Mercurial > emacs
changeset 73378:3eb6ddcc34d3
2006-10-15 Lennart Borgman <lennart.borgman.073@student.lu.se>
(ada-find-in-src-path): Use shell-quote-argument.
Use grep -E rather than egrep.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 15 Oct 2006 20:41:42 +0000 |
| parents | 3437ebb999f0 |
| children | b6d2149f9903 |
| files | lisp/progmodes/ada-xref.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ada-xref.el Sun Oct 15 20:41:03 2006 +0000 +++ b/lisp/progmodes/ada-xref.el Sun Oct 15 20:41:42 2006 +0000 @@ -1916,8 +1916,12 @@ (set-buffer (get-buffer-create "*grep*")) (while dirs (insert (shell-command-to-string - (concat "egrep -i -h '^X|" regexp "( |$)' " - (file-name-as-directory (car dirs)) "*.ali"))) + (concat + "grep -E -i -h " + (shell-quote-argument (concat "^X|" regexp "( |$)")) + " " + (shell-quote-argument (file-name-as-directory (car dirs))) + "*.ali"))) (set 'dirs (cdr dirs))) ;; Now parse the output