From 81fe5f4b2842253b5ff5d666b70024c03d78ecc4 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 15 Oct 2006 20:41:42 +0000 Subject: [PATCH] 2006-10-15 Lennart Borgman (ada-find-in-src-path): Use shell-quote-argument. Use grep -E rather than egrep. --- lisp/progmodes/ada-xref.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 -- 2.39.2