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