From 30256df4fa0112a7b758525f35eeb34eff1733ed Mon Sep 17 00:00:00 2001 From: Chris Mann Date: Thu, 15 Jan 2009 10:24:44 +1030 Subject: [PATCH] * wesnoth-mode.el: Reindented some portions indented with tabs to spaces. --- wesnoth-mode.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/wesnoth-mode.el b/wesnoth-mode.el index e52a806..8e1f22b 100644 --- a/wesnoth-mode.el +++ b/wesnoth-mode.el @@ -943,7 +943,7 @@ jump backward the specified number of tags." (wesnoth-navigate-element repeat 'search-backward-regexp (point-min)))) (defun wesnoth-search-for-matching-tag (search-function - search-string bound &optional skip) + search-string bound &optional skip) "Search for the matching tag for the current line. SEARCH-FUNCTION is the name of the function used to perform the search. SEARCH-STRING is a string representing the matching tag type. @@ -951,15 +951,15 @@ BOUND is the bound to be passed to the search function. If SKIP is non-nil, skip the first element and continue from there." (let ((depth 1)) (when (and (or (and (numberp skip) (forward-line skip)) - (funcall search-function (wesnoth-element) (funcall bound) t)) - (or skip (not (string-match search-string (match-string 0))))) - (while (and (> depth 0) - (funcall search-function (wesnoth-element) - (funcall bound) t)) - (if (string-match search-string (match-string 0)) - (setq depth (1- depth)) - (setq depth (1+ depth)))) - (= depth 0)))) + (funcall search-function (wesnoth-element) (funcall bound) t)) + (or skip (not (string-match search-string (match-string 0))))) + (while (and (> depth 0) + (funcall search-function (wesnoth-element) + (funcall bound) t)) + (if (string-match search-string (match-string 0)) + (setq depth (1- depth)) + (setq depth (1+ depth)))) + (= depth 0)))) (defun wesnoth-jump-to-matching (&optional element) "Jump point to the matching opening/closing tag. -- 2.11.4.GIT