Mercurial > emacs
changeset 51219:b86109f9a829
(forward-visible-line): Fix negative arguments.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 25 May 2003 01:34:37 +0000 |
| parents | 815164749c9a |
| children | c7730f2ad484 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 8 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sun May 25 01:31:48 2003 +0000 +++ b/lisp/simple.el Sun May 25 01:34:37 2003 +0000 @@ -2265,8 +2265,8 @@ (unless (bolp) (goto-char opoint)))) (let ((first t)) - (while (or first (< arg 0)) - (if (zerop arg) + (while (or first (<= arg 0)) + (if first (beginning-of-line) (or (zerop (forward-line -1)) (signal 'beginning-of-buffer nil))) @@ -2275,13 +2275,12 @@ (unless (bobp) (let ((prop (get-char-property (1- (point)) 'invisible))) - (if (if (eq buffer-invisibility-spec t) - prop - (or (memq prop buffer-invisibility-spec) - (assq prop buffer-invisibility-spec))) - (setq arg (1+ arg))))) - (setq first nil) - (setq arg (1+ arg))) + (unless (if (eq buffer-invisibility-spec t) + prop + (or (memq prop buffer-invisibility-spec) + (assq prop buffer-invisibility-spec))) + (setq arg (1+ arg))))) + (setq first nil)) ;; If invisible text follows, and it is a number of complete lines, ;; skip it. (let ((opoint (point)))