From: Kim F. Storm <storm@cua.dk>
Date: Sun, 15 Oct 2006 20:41:42 +0000 (+0000)
Subject: 2006-10-15  Lennart Borgman  <lennart.borgman.073@student.lu.se>
X-Git-Tag: emacs-pretest-22.0.90~120
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81fe5f4b2842253b5ff5d666b70024c03d78ecc4;p=emacs.git

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 9e3f8e14332..05d2a8bf65b 100644
--- 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