Commit 22c8bff1 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(line-move-1): Fix 2005-04-26 change. Must still use

vertical-motion when selective-display is active.
parent 8a370783
...@@ -3416,7 +3416,8 @@ Outline mode sets this." ...@@ -3416,7 +3416,8 @@ Outline mode sets this."
;; Now move a line. ;; Now move a line.
(end-of-line) (end-of-line)
;; If there's no invisibility here, move over the newline. ;; If there's no invisibility here, move over the newline.
(if (not (line-move-invisible-p (point))) (if (and (not (integerp selective-display))
(not (line-move-invisible-p (point))))
;; We avoid vertical-motion when possible ;; We avoid vertical-motion when possible
;; because that has to fontify. ;; because that has to fontify.
(if (eobp) (if (eobp)
...@@ -3436,7 +3437,9 @@ Outline mode sets this." ...@@ -3436,7 +3437,9 @@ Outline mode sets this."
;; it just goes in the other direction. ;; it just goes in the other direction.
(while (and (< arg 0) (not done)) (while (and (< arg 0) (not done))
(beginning-of-line) (beginning-of-line)
(if (or (bobp) (not (line-move-invisible-p (1- (point))))) (if (or (bobp)
(and (not (integerp selective-display))
(not (line-move-invisible-p (1- (point))))))
(if (bobp) (if (bobp)
(if (not noerror) (if (not noerror)
(signal 'beginning-of-buffer nil) (signal 'beginning-of-buffer nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment