Mercurial > emacs
comparison lisp/emacs-lisp/lisp.el @ 102381:36437490ed93
(end-of-defun-function): Make it more clear that
the function takes no argument.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 03 Mar 2009 16:12:02 +0000 |
| parents | 75c910c62eaa |
| children | cce8d50c4566 |
comparison
equal
deleted
inserted
replaced
| 102380:762408a9ef5d | 102381:36437490ed93 |
|---|---|
| 311 nil))) | 311 nil))) |
| 312 (error | 312 (error |
| 313 (goto-char (if arg-+ve floor ceiling)) | 313 (goto-char (if arg-+ve floor ceiling)) |
| 314 nil)))))))) | 314 nil)))))))) |
| 315 | 315 |
| 316 (defvar end-of-defun-function #'forward-sexp | 316 (defvar end-of-defun-function |
| 317 (lambda () (forward-sexp 1)) | |
| 317 "Function for `end-of-defun' to call. | 318 "Function for `end-of-defun' to call. |
| 318 This is used to find the end of the defun at point. | 319 This is used to find the end of the defun at point. |
| 319 It is called with no argument, right after calling `beginning-of-defun-raw'. | 320 It is called with no argument, right after calling `beginning-of-defun-raw'. |
| 320 So the function can assume that point is at the beginning of the defun body. | 321 So the function can assume that point is at the beginning of the defun body. |
| 321 It should move point to the first position after the defun.") | 322 It should move point to the first position after the defun.") |