Mercurial > emacs
changeset 6420:09fadfc6384e
(beginning-of-defun-raw): Don't err when called at end of buffer.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 19 Mar 1994 04:07:37 +0000 |
| parents | e5ce725b661d |
| children | db0bbe836298 |
| files | lisp/emacs-lisp/lisp.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp.el Sat Mar 19 04:03:24 1994 +0000 +++ b/lisp/emacs-lisp/lisp.el Sat Mar 19 04:07:37 1994 +0000 @@ -145,7 +145,7 @@ 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(")