diff options
| author | Karl Heuer | 1994-03-19 04:07:37 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-19 04:07:37 +0000 |
| commit | 81ccc3784393efdf438eb7bf2b94a15974ae7bd5 (patch) | |
| tree | 0b33327f71d24091e7089d77d3aae79a9658bd32 | |
| parent | 857a1de679fe4d4eaa5fe657a936a494ba68ba62 (diff) | |
| download | emacs-81ccc3784393efdf438eb7bf2b94a15974ae7bd5.tar.gz emacs-81ccc3784393efdf438eb7bf2b94a15974ae7bd5.zip | |
(beginning-of-defun-raw): Don't err when called at end of buffer.
| -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." | |||
| 145 | This is identical to beginning-of-defun, except that point does not move | 145 | This is identical to beginning-of-defun, except that point does not move |
| 146 | to the beginning of the line when `defun-prompt-regexp' is non-nil." | 146 | to the beginning of the line when `defun-prompt-regexp' is non-nil." |
| 147 | (interactive "p") | 147 | (interactive "p") |
| 148 | (and arg (< arg 0) (forward-char 1)) | 148 | (and arg (< arg 0) (not (eobp)) (forward-char 1)) |
| 149 | (and (re-search-backward (if defun-prompt-regexp | 149 | (and (re-search-backward (if defun-prompt-regexp |
| 150 | (concat "^\\s(\\|" | 150 | (concat "^\\s(\\|" |
| 151 | "\\(" defun-prompt-regexp "\\)\\s(") | 151 | "\\(" defun-prompt-regexp "\\)\\s(") |