Commit 19cfc561 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(line-move-1): Fix previous change.

parent 6cdd056d
2005-06-24 Richard M. Stallman <rms@gnu.org>
* simple.el (line-move-1): Fix previous change.
2005-06-24 Juanma Barranquero <lekktu@gmail.com>
 
* replace.el (occur-1): Set `buffer-read-only' and the
......
......@@ -3442,18 +3442,14 @@ Outline mode sets this."
(when (and (not done)
(not (integerp selective-display))
(not (line-move-invisible-p (point))))
;; We avoid vertical-motion when possible
;; because that has to fontify.
(forward-line 1)
;; If there are overlays in and around
;; the text we moved over, we need to be
;; sophisticated.
(unless (overlays-in (max (1- pos-before) (point-min))
(min (1+ (point)) (point-max)))
;; We avoid vertical-motion when possible
;; because that has to fontify.
(forward-line 1)
(setq line-done t)))
;; Otherwise move a more sophisticated way.
;; (What's the logic behind this code?)
(and (not done) (not line-done)
;; Otherwise move a more sophisticated way.
(zerop (vertical-motion 1))
(if (not noerror)
(signal 'end-of-buffer nil)
......@@ -3473,9 +3469,9 @@ Outline mode sets this."
(when (and (not done)
(not (integerp selective-display))
(not (line-move-invisible-p (1- (point)))))
(forward-line -1)
(unless (overlays-in (max (1- (point)) (point-min))
(min (1+ pos-before) (point-max)))
(forward-line -1)
(setq line-done t)))
(and (not done) (not line-done)
(zerop (vertical-motion -1))
......
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