Mercurial > emacs
comparison lisp/simple.el @ 18617:4fb803479728
(forward-visible-line): Use forward-line, not
vertical-motion, when moving backwards.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 04 Jul 1997 21:01:42 +0000 |
| parents | 3c958a136c4a |
| children | c7a1c26b934f |
comparison
equal
deleted
inserted
replaced
| 18616:8d93d6d7eb23 | 18617:4fb803479728 |
|---|---|
| 1187 (goto-char (next-overlay-change (point)))) | 1187 (goto-char (next-overlay-change (point)))) |
| 1188 (or (zerop (forward-line 1)) | 1188 (or (zerop (forward-line 1)) |
| 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 |
| 1196 (get-char-property (1- (point)) 'invisible))) | 1196 (get-char-property (1- (point)) 'invisible))) |
| 1197 (if (eq buffer-invisibility-spec t) | 1197 (if (eq buffer-invisibility-spec t) |