From 0d140e65afcce8472e34189a6db8036a1a481a3a Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 16 Feb 2001 11:52:52 +0000
Subject: [PATCH] (grep-regexp-alist): Remove the blank from the character
 class after the (optional) drive, to support file names with embedded blanks.

---
 lisp/ChangeLog            | 6 ++++++
 lisp/progmodes/compile.el | 4 +++-
 2 files changed, 9 insertions(+), 1 deletion(-)

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
-- 
2.39.5