mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Reconcile with changes in line movement behavior for long text lines

Browse Source 
that cross more than a single physical window line, ie when truncate-lines
is nil.

(allout-next-visible-heading): Provide for change in line-move behavior on
long lines when truncate-lines is nil.  In that case, line-move can wind up
on the same textual line when it moves to the next window line, and moving
to the bullet position after the move yields zero advancement.  Add logic
to detect and compensate for the lack of progress.

(allout-current-topic-collapsed-p): move-end-of-line respect for field
boundaries is different when operating with body lines shorter than window
width versus ones greater than window width, which can yield false
negatives in this function.  Avoid difference by applying move-end-of-line
while field-text-motion is inhibited.
This commit is contained in:
Ken Manheimer 2011-01-04 14:44:10 -05:00
parent 3f1b6eb290
commit 82b392a452
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/allout.el
View File

@ -3327,6 +3327,7 @@ Move to buffer limit in indicated direction if headings are exhausted."
(let* ((inhibit-field-text-motion t)
(backward (if (< arg 0) (setq arg (* -1 arg))))
(step (if backward -1 1))
(progress (allout-current-bullet-pos))
prev got)
(while (> arg 0)
@ -3336,7 +3337,17 @@ Move to buffer limit in indicated direction if headings are exhausted."
;; Move, skipping over all concealed lines in one fell swoop:
(prog1 (condition-case nil (or (line-move step) t)
(error nil))
(allout-beginning-of-current-line))
(allout-beginning-of-current-line)
;; line-move can wind up on the same line if long.
;; when moving forward, that would yield no-progress
(when (and (not backward)
(<= (point) progress))
;; ensure progress by doing line-move from end-of-line:
(end-of-line)
(condition-case nil (or (line-move step) t)
(error nil))
(allout-beginning-of-current-line)
(setq progress (point))))
;; Deal with apparent header line:
(save-match-data
(if (not (looking-at allout-regexp))
@ -5074,7 +5085,8 @@ default, they are treated as being uncollapsed."
(and
;; Is the topic all on one line (allowing for trailing blank line)?
(>= (progn (allout-back-to-current-heading)
(move-end-of-line 1)
(let ((inhibit-field-text-motion t))
(move-end-of-line 1))
(point))
(allout-end-of-current-subtree (not (looking-at "\n\n"))))