From 20401008d03e75902403a97a686318cfece3d5bf Mon Sep 17 00:00:00 2001 From: Chris Mann Date: Wed, 22 Oct 2008 18:58:50 +1030 Subject: [PATCH] * wesnoth-mode.el (wesnoth-macro-arguments): Remove debugging information. (wesnoth-check-wml): Improve performance when checking macro definitions. --- wesnoth-mode.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/wesnoth-mode.el b/wesnoth-mode.el index 859902c..08ee3d0 100644 --- a/wesnoth-mode.el +++ b/wesnoth-mode.el @@ -426,9 +426,8 @@ If COMPLETEP is non-nil, attempt to complete preprocessor at point." (split-string (match-string-no-properties 1))) results))) - (decf depth))))) - (message "%s" results) - results)) + (decf depth)))) + results))) (defun wesnoth-complete-macro (&optional completep) "Complete and insert the macro at point. @@ -962,6 +961,7 @@ ARGS is any additional data required by `format' to handle FORMAT-STRING." (wesnoth-update-project-information) (when (= 0 (hash-table-count wesnoth-tag-hash-table)) (error "WML data not available; can not generate report")) + (setq wesnoth-define-blocks (wesnoth-find-macro-definitions)) (let ((unmatched '()) (outbuf (get-buffer-create "*WML*"))) (save-excursion @@ -1048,6 +1048,7 @@ ARGS is any additional data required by `format' to handle FORMAT-STRING." (wesnoth-check-output outbuf "Unmatched element: '%s'" (car unmatched))))) (save-excursion + (setq wesnoth-define-blocks nil) (let ((buffer (buffer-name))) (set-buffer outbuf) (display-buffer outbuf t) -- 2.11.4.GIT