Mercurial > urweb

comparison src/elisp/urweb-move.el @ 370:4f75cc2e1373

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix problem with sig/struct indenting
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Oct 2008 14:52:50 -0400
parents 226c977faa9c
children 782ef3ad8c28
comparison
equal deleted inserted replaced
369:226c977faa9c 370:4f75cc2e1373
338 (error "Containing expression ends prematurely"))))))) 338 (error "Containing expression ends prematurely")))))))
339 339
340 ;;(defun urweb-forward-thing () 340 ;;(defun urweb-forward-thing ()
341 ;; (if (= ?w (char-syntax (char-after))) (forward-word 1) (forward-char 1))) 341 ;; (if (= ?w (char-syntax (char-after))) (forward-word 1) (forward-char 1)))
342 342
343 (defun urweb-backward-arg () (interactive) (urweb-backward-sexp 1000)) 343 (defun urweb-backward-arg () (urweb-backward-sexp 1000))
344 (defun urweb-forward-arg () (urweb-forward-sexp 1000)) 344 (defun urweb-forward-arg () (urweb-forward-sexp 1000))
345 345
346 346
347 (provide 'urweb-move) 347 (provide 'urweb-move)
348 348