mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

Revert "Rectify allout-widgets region undecoration so item at start is not missed."

Browse Source 
This reverts commit 33d85cb768.

Backporting it to emacs-27 was not appropriate.
This commit is contained in:
Ken Manheimer 2020-07-21 10:57:29 -04:00
parent db479d6354
commit 8bc8565721
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/allout-widgets.el
View File

@ -2050,22 +2050,19 @@ 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 (done next widget
(end (or end (point-max))))
(let ((next start)
widget)
(save-excursion
(goto-char start)
(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))))))
(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))))))
;;;_ > allout-widgets-undecorate-text (text)
(defun allout-widgets-undecorate-text (text)
"Eliminate widgets and decorations for all items in TEXT."