Mercurial > urweb
diff src/elisp/urweb-move.el @ 369:226c977faa9c
Crud indented properly, except for <xml>...</xml> outside parens and sig/struct
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 16 Oct 2008 14:40:28 -0400 |
parents | b6be16792584 |
children | 4f75cc2e1373 |
line wrap: on
line diff
--- a/src/elisp/urweb-move.el Thu Oct 16 14:17:55 2008 -0400 +++ b/src/elisp/urweb-move.el Thu Oct 16 14:40:28 2008 -0400 @@ -75,7 +75,7 @@ (("AND" "OR") . 1) ((">=" "<>" "<=" "=") . 4) (("+" "-" "^") . 6) - (("/" "*" "%") . 7) + (("*" "%") . 7) (("NOT") 9))) "Alist of Ur/Web infix operators and their precedence.") @@ -250,12 +250,6 @@ (op-prec (urweb-op-prec op 'back)) match) (cond - ((save-excursion (backward-char 5) - (looking-at "</xml>")) - (backward-char 6) - (urweb-tag-matcher) - (backward-char 1) - (urweb-backward-sexp prec)) ((not op) (let ((point (point))) (ignore-errors (let ((forward-sexp-function nil)) (backward-sexp 1))) @@ -278,11 +272,6 @@ ;; this reproduces the usual backward-sexp, but it might be bogus ;; in this case since !@$% is a perfectly fine symbol (t t))))) ;(or (string-match "\\sw" op) (urweb-backward-sexp prec)) -;; (when (save-excursion (backward-char 5) (looking-at "</xml>")) -;; (backward-char 5) -;; (urweb-tag-matcher) -;; (backward-char) -;; (urweb-backward-sexp prec))) (defun urweb-forward-sexp (prec) "Moves one sexp forward if possible, or one char else.