Mercurial > hg > xemacs-beta

comparison lisp/lisp.el @ 4712:a46d7513a364

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
`beginning-of-defun-function', `end-of-defun-function' made buffer-local. Setting it globally would make the default unreachable.
author Andreas Roehler <andreas.roehler@online.de>
date Wed, 07 Oct 2009 19:42:42 +0200
parents 7b90173970ad
children 7eef89a3d41f
comparison
equal deleted inserted replaced
4711:985886265686 4712:a46d7513a364
161 "If non-nil, function for `beginning-of-defun-raw' to call. 161 "If non-nil, function for `beginning-of-defun-raw' to call.
162 This is used to find the beginning of the defun instead of using the 162 This is used to find the beginning of the defun instead of using the
163 normal recipe (see `beginning-of-defun'). Modes can define this 163 normal recipe (see `beginning-of-defun'). Modes can define this
164 if defining `defun-prompt-regexp' is not sufficient to handle the mode's 164 if defining `defun-prompt-regexp' is not sufficient to handle the mode's
165 needs.") 165 needs.")
166 (make-variable-buffer-local 'beginning-of-defun-function)
166 167
167 (defvar end-of-defun-function nil 168 (defvar end-of-defun-function nil
168 "If non-nil, function for `end-of-defun' to call. 169 "If non-nil, function for `end-of-defun' to call.
169 This is used to find the end of the defun instead of using the normal 170 This is used to find the end of the defun instead of using the normal
170 recipe (see `end-of-defun'). Modes can define this if the 171 recipe (see `end-of-defun'). Modes can define this if the
171 normal method is not appropriate.") 172 normal method is not appropriate.")
173 (make-variable-buffer-local 'end-of-defun-function)
172 174
173 (defun beginning-of-defun (&optional arg) 175 (defun beginning-of-defun (&optional arg)
174 "Move backward to the beginning of a defun. 176 "Move backward to the beginning of a defun.
175 With argument, do it that many times. Negative arg -N 177 With argument, do it that many times. Negative arg -N
176 means move forward to Nth following beginning of defun. 178 means move forward to Nth following beginning of defun.