Mercurial > emacs
comparison lisp/emacs-lisp/lisp.el @ 99959:b1b204eafe54
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)))) |