diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-19 04:07:37 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-19 04:07:37 +0000 |
| commit | 81ccc3784393efdf438eb7bf2b94a15974ae7bd5 (patch) | |
| tree | 0b33327f71d24091e7089d77d3aae79a9658bd32 /lisp/emacs-lisp | |
| parent | 857a1de679fe4d4eaa5fe657a936a494ba68ba62 (diff) | |
| download | emacs-81ccc3784393efdf438eb7bf2b94a15974ae7bd5.tar.gz emacs-81ccc3784393efdf438eb7bf2b94a15974ae7bd5.tar.bz2 emacs-81ccc3784393efdf438eb7bf2b94a15974ae7bd5.zip | |
(beginning-of-defun-raw): Don't err when called at end of buffer.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 3156ff39b35..f5904be7364 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -145,7 +145,7 @@ open-parenthesis, and point ends up at the beginning of the line." This is identical to beginning-of-defun, except that point does not move to the beginning of the line when `defun-prompt-regexp' is non-nil." (interactive "p") - (and arg (< arg 0) (forward-char 1)) + (and arg (< arg 0) (not (eobp)) (forward-char 1)) (and (re-search-backward (if defun-prompt-regexp (concat "^\\s(\\|" "\\(" defun-prompt-regexp "\\)\\s(") |