From 5a71851c8495e85a43227db438b15a3060d724d9 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 16 Oct 2008 14:52:50 -0400 Subject: Fix problem with sig/struct indenting --- src/elisp/urweb-mode.el | 2 -- src/elisp/urweb-move.el | 2 +- 2 files changed, 1 insertion(+), 3 deletions(-) (limited to 'src') diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el index b44ebbb1..1938eeba 100644 --- a/src/elisp/urweb-mode.el +++ b/src/elisp/urweb-mode.el @@ -586,8 +586,6 @@ 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 "")) (if (member sym '(";" "d=")) (setq sym nil)) (if sym (urweb-get-sym-indent sym) ;; FIXME: this can take a *long* time !! diff --git a/src/elisp/urweb-move.el b/src/elisp/urweb-move.el index d27affa4..da74bcee 100644 --- a/src/elisp/urweb-move.el +++ b/src/elisp/urweb-move.el @@ -340,7 +340,7 @@ Returns T if the move indeed moved through one sexp and NIL if not." ;;(defun urweb-forward-thing () ;; (if (= ?w (char-syntax (char-after))) (forward-word 1) (forward-char 1))) -(defun urweb-backward-arg () (interactive) (urweb-backward-sexp 1000)) +(defun urweb-backward-arg () (urweb-backward-sexp 1000)) (defun urweb-forward-arg () (urweb-forward-sexp 1000)) -- cgit v1.2.3