# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1160944902 0
# Node ID 3eb6ddcc34d366c80e73160f9feeab432d67f016
# Parent  3437ebb999f0338675d8af80b60b517f5603111c
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 -r 3437ebb999f0 -r 3eb6ddcc34d3 lisp/progmodes/ada-xref.el
--- 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