diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-16 13:17:09 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-16 13:17:09 -0400 |
| commit | 98c2a658375be784ec9afaa80146e5dff3514e5c (patch) | |
| tree | 66070f2bc6d1423b8920b1150ccddec57e15b157 /src/elisp/urweb-mode.el | |
| parent | 9606800a1155d95849a2bdaa18aff4daddcdf797 (diff) | |
Proper indenting of normal ML-y code after </xml>
Diffstat (limited to 'src/elisp/urweb-mode.el')
| -rw-r--r-- | src/elisp/urweb-mode.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el index 86c39d96..c8186182 100644 --- a/src/elisp/urweb-mode.el +++ b/src/elisp/urweb-mode.el @@ -573,6 +573,8 @@ Point should be just before the symbol ORIG-SYM and is not preserved." (let ((sym (unless (save-excursion (urweb-backward-arg)) (urweb-backward-spaces) (urweb-backward-sym)))) + (if (and (= sym ">") (save-excursion (backward-char 5) (looking-at "</xml"))) + (setq sym "</xml>")) (if (member sym '(";" "d=")) (setq sym nil)) (if sym (urweb-get-sym-indent sym) ;; FIXME: this can take a *long* time !! |