Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 371:782ef3ad8c28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Crud auto-indented correctly
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Oct 2008 16:00:58 -0400
parents 4f75cc2e1373
children fe018cbdd41e
comparison
equal deleted inserted replaced
370:4f75cc2e1373 371:782ef3ad8c28
674 674
675 (defun urweb-get-sym-indent (sym &optional style) 675 (defun urweb-get-sym-indent (sym &optional style)
676 "Find the indentation for the SYM we're `looking-at'. 676 "Find the indentation for the SYM we're `looking-at'.
677 If indentation is delegated, point will move to the start of the parent. 677 If indentation is delegated, point will move to the start of the parent.
678 Optional argument STYLE is currently ignored." 678 Optional argument STYLE is currently ignored."
679 (assert (equal sym (save-excursion (urweb-forward-sym)))) 679 ;;(assert (equal sym (save-excursion (urweb-forward-sym))))
680 (save-excursion 680 (save-excursion
681 (let ((delegate (and (not (equal sym "end")) (assoc sym urweb-close-paren))) 681 (let ((delegate (and (not (equal sym "end")) (assoc sym urweb-close-paren)))
682 (head-sym sym)) 682 (head-sym sym))
683 (when (and delegate (not (eval (third delegate)))) 683 (when (and delegate (not (eval (third delegate))))
684 ;;(urweb-find-match-backward sym delegate) 684 ;;(urweb-find-match-backward sym delegate)