[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: bug in line-move-ignore-invisible behavior
|
From: |
Richard Stallman |
|
Subject: |
Re: bug in line-move-ignore-invisible behavior |
|
Date: |
Sat, 8 Dec 2001 06:17:54 -0700 (MST) |
Does this patch fix it?
*** simple.el.~1.511.~ Sat Nov 17 11:11:51 2001
--- simple.el Fri Dec 7 16:04:11 2001
***************
*** 2543,2549 ****
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
(if (get-text-property (point) 'invisible)
! (goto-char (next-single-property-change (point) 'invisible))
(goto-char (next-overlay-change (point)))))
(setq arg (1- arg)))
(while (< arg 0)
--- 2543,2550 ----
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
(if (get-text-property (point) 'invisible)
! (goto-char (or (next-single-property-change (point)
'invisible)
! (point-max)))
(goto-char (next-overlay-change (point)))))
(setq arg (1- arg)))
(while (< arg 0)
***************
*** 2558,2564 ****
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
(if (get-text-property (1- (point)) 'invisible)
! (goto-char (previous-single-property-change (point)
'invisible))
(goto-char (previous-overlay-change (point)))))
(setq arg (1+ arg))))
(let ((buffer-invisibility-spec nil))
--- 2559,2566 ----
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
(if (get-text-property (1- (point)) 'invisible)
! (goto-char (or (previous-single-property-change (point)
'invisible)
! (point-min)))
(goto-char (previous-overlay-change (point)))))
(setq arg (1+ arg))))
(let ((buffer-invisibility-spec nil))