branch: externals/phps-mode
commit d4832bfb9215f23ee0a08b8d2070f849313cd6cf
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>

    Added flag to control display of profiling information
---
 phps-mode-lex-analyzer.el | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/phps-mode-lex-analyzer.el b/phps-mode-lex-analyzer.el
index 871fd2863e..5ea22fd220 100644
--- a/phps-mode-lex-analyzer.el
+++ b/phps-mode-lex-analyzer.el
@@ -101,6 +101,9 @@
 (defvar-local phps-mode-lex-analyzer--lexer-max-index nil
   "Max-index of lex-analyzer.")
 
+(defvar phps-mode-lex-analyzer--show-profiling-information nil
+  "Show profiling information.")
+
 
 ;; FUNCTIONS
 
@@ -367,10 +370,11 @@ ALLOW-CACHE-READ and ALLOW-CACHE-WRITE."
                timer-end
                timer-start)))
 
-           (message "Total elapsed time: %S" timer-elapsed)
-           (message "Lexer elapsed time: %S" timer-elapsed-lexer)
-           (message "Parser elapsed time: %S" timer-elapsed-parser)
-           (message "Syntax coloring elapsed time: %S" 
timer-elapsed-syntax-coloring)
+           (when phps-mode-lex-analyzer--show-profiling-information
+             (message "Total elapsed time: %S" timer-elapsed)
+             (message "Lexer elapsed time: %S" timer-elapsed-lexer)
+             (message "Parser elapsed time: %S" timer-elapsed-parser)
+             (message "Syntax coloring elapsed time: %S" 
timer-elapsed-syntax-coloring))
 
        )
 
@@ -578,10 +582,11 @@ ALLOW-CACHE-READ and ALLOW-CACHE-WRITE."
                timer-end
                timer-start)))
 
-           (message "Total elapsed time: %S" timer-elapsed)
-           (message "Lexer elapsed time: %S" timer-elapsed-lexer)
-           (message "Parser elapsed time: %S" timer-elapsed-parser)
-           (message "Syntax coloring elapsed time: %S" 
timer-elapsed-syntax-coloring)
+           (when phps-mode-lex-analyzer--show-profiling-information
+             (message "Total elapsed time: %S" timer-elapsed)
+             (message "Lexer elapsed time: %S" timer-elapsed-lexer)
+             (message "Parser elapsed time: %S" timer-elapsed-parser)
+             (message "Syntax coloring elapsed time: %S" 
timer-elapsed-syntax-coloring))
 
        )
 

Reply via email to