[Emacs-diffs] /srv/bzr/emacs/trunk r103051: * lisp/progmodes/compile.el (compilation-enable-debug-messages):

[Sam Steingold]

------------------------------------------------------------
revno: 103051
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Mon 2011-01-31 11:49:44 -0500
message:
  * lisp/progmodes/compile.el (compilation-enable-debug-messages):
  Add a variable to make the parsing messages introduced in
  revno:103013 optional.
  (compilation-parse-errors, compilation--flush-parse): Use it.
modified:
  lisp/ChangeLog
  lisp/progmodes/compile.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-31 15:19:57 +0000
+++ b/lisp/ChangeLog    2011-01-31 16:49:44 +0000
@@ -1,3 +1,11 @@
+2011-01-31  Sam Steingold  <address@hidden>
+
+       * progmodes/compile.el (compilation-enable-debug-messages):
+       Add a variable to make the parsing messages introduced in
+       revno:103013 optional.
+       (compilation-parse-errors, compilation--flush-parse): Use it.
+
+
 2011-01-31  Deniz Dogan  <address@hidden>
 
        * net/rcirc.el: Clean log filenames (Bug#7933).

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2011-01-29 06:08:24 +0000
+++ b/lisp/progmodes/compile.el 2011-01-31 16:49:44 +0000
@@ -732,6 +732,9 @@
   :group 'compilation
   :version "22.1")
 
+(defvar compilation-enable-debug-messages nil
+  "Enable debug messages while parsing the compilation buffer.")
+
 (defun compilation-set-skip-threshold (level)
   "Switch the `compilation-skip-threshold' level."
   (interactive
@@ -1169,7 +1172,8 @@
   "Parse errors between START and END.
 The errors recognized are the ones specified in RULES which default
 to `compilation-error-regexp-alist' if RULES is nil."
-  (message "compilation-parse-errors: %S %S" start end)
+  (when compilation-enable-debug-messages
+    (message "compilation-parse-errors: %S %S" start end))
   (dolist (item (or rules compilation-error-regexp-alist))
     (if (symbolp item)
         (setq item (cdr (assq item
@@ -1225,7 +1229,6 @@
 
         (goto-char start)
         (while (re-search-forward pat end t)
-              
           (when (setq props (compilation-error-properties
                              file line end-line col end-col (or type 2) fmt))
 
@@ -1299,7 +1302,8 @@
 
 (defun compilation--flush-parse (start end)
   "Mark the region between START and END for re-parsing."
-  (message "compilation--flush-parse: %S %S" start end)
+  (when compilation-enable-debug-messages
+    (message "compilation--flush-parse: %S %S" start end))
   (if (markerp compilation--parsed)
       (move-marker compilation--parsed (min start compilation--parsed))))