From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 19 Mar 1994 04:07:37 +0000 (+0000)
Subject: (beginning-of-defun-raw): Don't err when called at end of buffer.
X-Git-Tag: emacs-19.34~9432
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81ccc3784393efdf438eb7bf2b94a15974ae7bd5;p=emacs.git

(beginning-of-defun-raw): Don't err when called at end of buffer.
---

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(")