# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764050057 0
# Node ID 09fadfc6384e7eeb3dd04be60e49220054adcc3b
# Parent  e5ce725b661d19eb7fcf00accfb8cfadda9dc081
(beginning-of-defun-raw): Don't err when called at end of buffer.

diff -r e5ce725b661d -r 09fadfc6384e lisp/emacs-lisp/lisp.el
--- 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(")