From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 16 Feb 2001 11:52:52 +0000 (+0000)
Subject: (grep-regexp-alist): Remove the blank from
X-Git-Tag: emacs-pretest-21.0.99~370
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d140e65afcce8472e34189a6db8036a1a481a3a;p=emacs.git

(grep-regexp-alist): Remove the blank from
the character class after the (optional) drive, to support file
names with embedded blanks.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 900176c0761..30eba6bf269 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-02-16  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* progmodes/compile.el (grep-regexp-alist): Remove the blank from
+	the character class after the (optional) drive, to support file
+	names with embedded blanks.
+
 2001-02-15  Sam Steingold  <sds@gnu.org>
 
 	* textmodes/tex-mode.el (tex-shell-running):
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 2f33166e1f4..7bb976d1656 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -397,8 +397,10 @@ Otherwise, it saves all modified buffers without asking."
   :type 'boolean
   :group 'compilation)
 
+;; Note: the character class after the optional drive letter does not
+;; include a space to support file names with blanks.
 (defvar grep-regexp-alist
-  '(("\\([a-zA-Z]?:?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2))
+  '(("\\([a-zA-Z]?:?[^:(\t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2))
   "Regexp used to match grep hits.  See `compilation-error-regexp-alist'.")
 
 (defvar grep-program