[Emacs-diffs] trunk r114757: compile: Support GNU Make-4.0 directory quoting (tiny change)

[Glenn Morris]

------------------------------------------------------------
revno: 114757
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15678
author: Jed Brown <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-10-23 09:25:56 -0700
message:
  compile: Support GNU Make-4.0 directory quoting (tiny change)
  
  * lisp/progmodes/compile.el (compilation-directory-matcher)
  (compilation-page-delimiter): Support GNU Make-4.0 directory quoting.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/compile.el      compile.el-20091113204419-o5vbwnq5f7feedwu-126

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-23 12:15:31 +0000
+++ b/lisp/ChangeLog    2013-10-23 16:25:56 +0000
@@ -1,3 +1,9 @@
+2013-10-23  Jed Brown  <address@hidden>  (tiny change)
+
+       * progmodes/compile.el (compilation-directory-matcher)
+       (compilation-page-delimiter):
+       Support GNU Make-4.0 directory quoting.  (Bug#15678)
+
 2013-10-23  Leo Liu  <address@hidden>
 
        * ido.el (ido-tidy): Handle read-only text.

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2013-10-07 05:15:48 +0000
+++ b/lisp/progmodes/compile.el 2013-10-23 16:25:56 +0000
@@ -513,7 +513,7 @@
   "Directory to restore to when doing `recompile'.")
 
 (defvar compilation-directory-matcher
-  '("\\(?:Entering\\|Leavin\\(g\\)\\) directory `\\(.+\\)'$" (2 . 1))
+  '("\\(?:Entering\\|Leavin\\(g\\)\\) directory [`']\\(.+\\)'$" (2 . 1))
   "A list for tracking when directories are entered or left.
 If nil, do not track directories, e.g. if all file names are absolute.  The
 first element is the REGEXP matching these messages.  It can match any number
@@ -526,7 +526,7 @@
 you may also want to change `compilation-page-delimiter'.")
 
 (defvar compilation-page-delimiter
-  "^\\(?:\f\\|.*\\(?:Entering\\|Leaving\\) directory `.+'\n\\)+"
+  "^\\(?:\f\\|.*\\(?:Entering\\|Leaving\\) directory [`'].+'\n\\)+"
   "Value of `page-delimiter' in Compilation mode.")
 
 (defvar compilation-mode-font-lock-keywords