Mercurial > emacs

comparison lisp/emacs-lisp/lisp.el @ 99959:b1b204eafe54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo in previous commit.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 26 Nov 2008 10:46:21 +0000
parents 42c2049ff2f6
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
99958:42c2049ff2f6 99959:b1b204eafe54
51 (defun forward-sexp (&optional arg) 51 (defun forward-sexp (&optional arg)
52 "Move forward across one balanced expression (sexp). 52 "Move forward across one balanced expression (sexp).
53 With ARG, do it that many times. Negative arg -N means 53 With ARG, do it that many times. Negative arg -N means
54 move backward across N balanced expressions. 54 move backward across N balanced expressions.
55 This command assumes point is not in a string or comment." 55 This command assumes point is not in a string or comment."
56 (Interactive "p") 56 (interactive "p")
57 (or arg (setq arg 1)) 57 (or arg (setq arg 1))
58 (if forward-sexp-function 58 (if forward-sexp-function
59 (funcall forward-sexp-function arg) 59 (funcall forward-sexp-function arg)
60 (goto-char (or (scan-sexps (point) arg) (buffer-end arg))) 60 (goto-char (or (scan-sexps (point) arg) (buffer-end arg)))
61 (if (< arg 0) (backward-prefix-chars)))) 61 (if (< arg 0) (backward-prefix-chars))))