[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 33d85cb 5/5: Rectify allout-widgets region undecoration so item a
From: |
ken manheimer |
Subject: |
master 33d85cb 5/5: Rectify allout-widgets region undecoration so item at start is not missed. |
Date: |
Mon, 20 Jul 2020 14:09:59 -0400 (EDT) |
branch: master
commit 33d85cb768b40794bffcd9ab22fbdec1211a74e5
Author: Ken Manheimer <ken.manheimer@gmail.com>
Commit: Ken Manheimer <ken.manheimer@gmail.com>
Rectify allout-widgets region undecoration so item at start is not missed.
* lisp/allout-widgets.el (allout-widgets-undecorate-region):
Reorganize the loop so an item at the start is not skipped.
---
lisp/allout-widgets.el | 25 ++++++++++++++-----------
1 file changed, 14 insertions(+), 11 deletions(-)
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index 5460551..2a8dced 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -2060,19 +2060,22 @@ Optional FORCE means force reassignment of the region
property."
;;;_ > allout-widgets-undecorate-region (start end)
(defun allout-widgets-undecorate-region (start end)
"Eliminate widgets and decorations for all items in region from START to
END."
- (let ((next start)
- widget)
+ (let (done next widget
+ (end (or end (point-max))))
(save-excursion
(goto-char start)
- (while (< (setq next (next-single-char-property-change next
- 'display
- (current-buffer)
- end))
- end)
- (goto-char next)
- (when (setq widget (allout-get-item-widget))
- ;; if the next-property/overly progression got us to a widget:
- (allout-widgets-undecorate-item widget t))))))
+ (while (not done)
+ (when (and (allout-on-current-heading-p)
+ (setq widget (allout-get-item-widget)))
+ (if widget
+ (allout-widgets-undecorate-item widget t)))
+ (goto-char (setq next
+ (next-single-char-property-change (point)
+ 'display
+ (current-buffer)
+ end)))
+ (if (>= next end)
+ (setq done t))))))
;;;_ > allout-widgets-undecorate-text (text)
(defun allout-widgets-undecorate-text (text)
"Eliminate widgets and decorations for all items in TEXT."
- master updated (fe2d0ed -> 33d85cb), ken manheimer, 2020/07/20
- master 8e13d33 1/5: Fix allout-widgets-mode handling of edits to item cue, fixing (bug#11312), ken manheimer, 2020/07/20
- master 8684216 2/5: Don't let item decoration be disrupted by too-shallow items., ken manheimer, 2020/07/20
- master 3c410b6 3/5: Provide missing let definition to prevent background void-variable error., ken manheimer, 2020/07/20
- master dd7c191 4/5: Resolve missing button-region keymap bindings., ken manheimer, 2020/07/20
- master 33d85cb 5/5: Rectify allout-widgets region undecoration so item at start is not missed.,
ken manheimer <=