From 844428032afca7b683e1bfc9172504da45043990 Mon Sep 17 00:00:00 2001 From: Chris Mann Date: Tue, 7 Oct 2008 22:15:32 +1030 Subject: [PATCH] * wesnoth-mode.el (wesnoth-check-wml): Quote output data retrieved from WML. --- wesnoth-mode.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/wesnoth-mode.el b/wesnoth-mode.el index 1690b71..ff66230 100644 --- a/wesnoth-mode.el +++ b/wesnoth-mode.el @@ -761,7 +761,7 @@ ARGS is any additional data required by `format' to handle FORMAT-STRING." (unless (wesnoth-check-element-type 'second (car unmatched-tag-list)) (wesnoth-check-output outbuf - "Tag not available in this context: %s" + "Tag not available in this context: '%s'" (match-string-no-properties 1))) (setq unmatched-tag-list (cons (match-string-no-properties 1) @@ -783,7 +783,7 @@ ARGS is any additional data required by `format' to handle FORMAT-STRING." (unless (wesnoth-check-element-type 'third (car unmatched-tag-list)) (wesnoth-check-output - outbuf "Attribute not available in this context: %s" + outbuf "Attribute not available in this context: '%s'" (match-string-no-properties 1))) (unless (match-string 3) (wesnoth-check-output @@ -791,35 +791,35 @@ ARGS is any additional data required by `format' to handle FORMAT-STRING." ((looking-at "^[\t ]*#else") (unless (string-match "ifn?def" (car unmatched-tag-list)) (if (string= (car unmatched-tag-list) "#define") - (wesnoth-check-output outbuf "Expecting: %s" + (wesnoth-check-output outbuf "Expecting: '%s'" (car unmatched-tag-list)) - (wesnoth-check-output outbuf "Expecting: [/%s]" + (wesnoth-check-output outbuf "Expecting: '[/%s]'" (car unmatched-tag-list))))) ((looking-at "^[\t ]*{\\(\\(\\w\\|_\\)+\\).*}") (unless (find (match-string-no-properties 1) (append wesnoth-local-macro-data wesnoth-macro-data) :test 'string= :key 'car) - (wesnoth-check-output outbuf "Unknown macro definition: {%s}" + (wesnoth-check-output outbuf "Unknown macro definition: '{%s}'" (match-string-no-properties 1)))) ((or (looking-at "^[\t ]*\\[/\\(\\(\\w\\|_\\)+\\)\\]")) (unless (string= (match-string-no-properties 1) (car unmatched-tag-list)) (if (string= "#" (subseq (car unmatched-tag-list) 0 1)) - (wesnoth-check-output outbuf "Expecting: #%s" + (wesnoth-check-output outbuf "Expecting: '#%s'" (car (find (car unmatched-tag-list) '(("enddef" "#define") ("ifdef" "#endif") ("ifndef" "#endif")) :key 'second :test 'string=))) - (wesnoth-check-output outbuf "Expecting: [/%s]" + (wesnoth-check-output outbuf "Expecting: '[/%s]'" (car unmatched-tag-list)))) (setq unmatched-tag-list (cdr unmatched-tag-list)))) (end-of-line)) (if unmatched-tag-list (dolist (tag unmatched-tag-list) - (wesnoth-check-output outbuf "Unmatched tag: %s" + (wesnoth-check-output outbuf "Unmatched tag: '%s'" (car unmatched-tag-list))))) (save-excursion (let ((buffer (buffer-name))) -- 2.11.4.GIT