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.

diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 9e3f8e143321c3d46bec7de9089b37849b9c4a28..05d2a8bf65bddc943c43bdbda282282b5156ed20 100644 (file)
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -1916,8 +1916,12 @@ is using."
       (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