Mercurial > hg > xemacs-beta
changeset 4712:a46d7513a364
`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 | 985886265686 |
| children | 312503644bc3 7eef89a3d41f |
| files | lisp/ChangeLog lisp/lisp.el |
| diffstat | 2 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Oct 06 22:39:30 2009 -0400 +++ b/lisp/ChangeLog Wed Oct 07 19:42:42 2009 +0200 @@ -1,3 +1,10 @@ +2009-10-07 Andreas Roehler <andreas.roehler@online.de> + + * lisp.el (beginning-of-defun-function): + make variable buffer local + * lisp.el (end-of-defun-function): + make variable buffer local + 2009-10-05 Jerry James <james@xemacs.org> * gnome.el: Add GPL v2 or later notice with explicit permission of
--- a/lisp/lisp.el Tue Oct 06 22:39:30 2009 -0400 +++ b/lisp/lisp.el Wed Oct 07 19:42:42 2009 +0200 @@ -163,12 +163,14 @@ normal recipe (see `beginning-of-defun'). Modes can define this if defining `defun-prompt-regexp' is not sufficient to handle the mode's needs.") +(make-variable-buffer-local 'beginning-of-defun-function) (defvar end-of-defun-function nil "If non-nil, function for `end-of-defun' to call. This is used to find the end of the defun instead of using the normal recipe (see `end-of-defun'). Modes can define this if the normal method is not appropriate.") +(make-variable-buffer-local 'end-of-defun-function) (defun beginning-of-defun (&optional arg) "Move backward to the beginning of a defun.