diff options
| author | Richard M. Stallman | 1997-07-04 21:01:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-04 21:01:42 +0000 |
| commit | 5b3087c0149960412443be24d4057db8b30cd226 (patch) | |
| tree | dfb6e9bb458100d23b04e3bd93f6257fee249500 /lisp | |
| parent | 57cf80bfaed797ccdfe921c0ffe7cf1d8f748dd1 (diff) | |
| download | emacs-5b3087c0149960412443be24d4057db8b30cd226.tar.gz emacs-5b3087c0149960412443be24d4057db8b30cd226.zip | |
(forward-visible-line): Use forward-line, not
vertical-motion, when moving backwards.
Diffstat (limited to 'lisp')
| -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 fac5987756d..54674c59ea9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1189,7 +1189,7 @@ If ARG is zero, move to the beginning of the current line." | |||
| 1189 | (signal 'end-of-buffer nil))) | 1189 | (signal 'end-of-buffer nil))) |
| 1190 | (setq arg (1- arg))) | 1190 | (setq arg (1- arg))) |
| 1191 | (while (< arg 0) | 1191 | (while (< arg 0) |
| 1192 | (or (zerop (vertical-motion -1)) | 1192 | (or (zerop (forward-line -1)) |
| 1193 | (signal 'beginning-of-buffer nil)) | 1193 | (signal 'beginning-of-buffer nil)) |
| 1194 | (while (and (not (bobp)) | 1194 | (while (and (not (bobp)) |
| 1195 | (let ((prop | 1195 | (let ((prop |