diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-04 21:03:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-04 21:03:05 +0000 |
| commit | df560e184115f3288420828aaeb2a5a0236c63f6 (patch) | |
| tree | 12b6b4b86a9817967748b6fac515b330377e9008 | |
| parent | 3496099ffe9903761f9255a38175f5913b19db7d (diff) | |
| download | emacs-df560e184115f3288420828aaeb2a5a0236c63f6.tar.gz | |
Finish previous change.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 54674c59ea9..e85d1710953 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1201,7 +1201,7 @@ If ARG is zero, move to the beginning of the current line." (if (get-text-property (1- (point)) 'invisible) (goto-char (previous-single-property-change (point) 'invisible)) (goto-char (previous-overlay-change (point)))) - (or (zerop (vertical-motion -1)) + (or (zerop (forward-line -1)) (signal 'beginning-of-buffer nil))) (setq arg (1+ arg)))) ((beginning-of-buffer end-of-buffer) |