diff options
| author | Eli Zaretskii | 2001-02-16 11:52:52 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2001-02-16 11:52:52 +0000 |
| commit | 0d140e65afcce8472e34189a6db8036a1a481a3a (patch) | |
| tree | aecb1f042c881e4dd909f70ca58a5515e56e8f21 | |
| parent | 76846b315db4183c4aeae6fd7be5223290700010 (diff) | |
| download | emacs-0d140e65afcce8472e34189a6db8036a1a481a3a.tar.gz emacs-0d140e65afcce8472e34189a6db8036a1a481a3a.zip | |
(grep-regexp-alist): Remove the blank from
the character class after the (optional) drive, to support file
names with embedded blanks.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
2 files changed, 9 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 900176c0761..30eba6bf269 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2001-02-16 Eli Zaretskii <eliz@is.elta.co.il> | ||
| 2 | |||
| 3 | * progmodes/compile.el (grep-regexp-alist): Remove the blank from | ||
| 4 | the character class after the (optional) drive, to support file | ||
| 5 | names with embedded blanks. | ||
| 6 | |||
| 1 | 2001-02-15 Sam Steingold <sds@gnu.org> | 7 | 2001-02-15 Sam Steingold <sds@gnu.org> |
| 2 | 8 | ||
| 3 | * textmodes/tex-mode.el (tex-shell-running): | 9 | * 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." | |||
| 397 | :type 'boolean | 397 | :type 'boolean |
| 398 | :group 'compilation) | 398 | :group 'compilation) |
| 399 | 399 | ||
| 400 | ;; Note: the character class after the optional drive letter does not | ||
| 401 | ;; include a space to support file names with blanks. | ||
| 400 | (defvar grep-regexp-alist | 402 | (defvar grep-regexp-alist |
| 401 | '(("\\([a-zA-Z]?:?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)) | 403 | '(("\\([a-zA-Z]?:?[^:(\t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)) |
| 402 | "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") | 404 | "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") |
| 403 | 405 | ||
| 404 | (defvar grep-program | 406 | (defvar grep-program |