diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-10-16 14:17:55 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-16 14:17:55 -0400 |
commit | a1c0b723a03aef245dfe1fe3b49f874da48dec48 (patch) | |
tree | 4e2af9e63434ceb00361720e2dcb2512235340f5 /src/elisp/urweb-mode.el | |
parent | 0608a7abedf738215560865e43d50909c1652c18 (diff) |
Removed handling of <,> as operators, for now
Diffstat (limited to 'src/elisp/urweb-mode.el')
-rw-r--r-- | src/elisp/urweb-mode.el | 20 |
1 files changed, 4 insertions, 16 deletions
diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el index 308bd1af..048efcad 100644 --- a/src/elisp/urweb-mode.el +++ b/src/elisp/urweb-mode.el @@ -500,22 +500,10 @@ If anyone has a good algorithm for this..." (defun urweb-tag-matching-indent () "Seek back to a matching opener tag and get its line's indent" (save-excursion - (let ((depth 0) - (done nil)) - (while (and (not done) (search-backward ">" nil t)) - (if (save-excursion (backward-char 1) (looking-at "/")) - (when (not (search-backward "<" nil t)) - (setq done t)) - (if (search-backward "<" nil t) - (if (looking-at "</") - (incf depth) - (if (= depth 0) - (setq done t) - (decf depth))) - (setq done t)))) - (if (looking-at "<xml") - (+ (current-indentation) 2) - (current-indentation))))) + (urweb-tag-matcher) + (if (looking-at "<xml") + (+ (current-indentation) 2) + (current-indentation)))) (defun urweb-calculate-indentation () (save-excursion |