Function: outline--fix-up-all-buttons

outline--fix-up-all-buttons is a byte-compiled function defined in outline.el.gz.

Signature

(outline--fix-up-all-buttons FROM TO)

Source Code

;; Defined in /usr/src/emacs/lisp/outline.el.gz
(defun outline--fix-up-all-buttons (from to)
  (when outline-minor-mode-use-buttons
    ;; If `outline-minor-mode-use-buttons' is `insert',
    ;; `outline--insert-button' can modify the buffer's text.  We shouldn't
    ;; use `with-silent-modifications' around changes to the buffer's text,
    ;; but we still don't want to mark the buffer as modified whenever
    ;; we expand/collapse an element.
    (let ((modified (buffer-modified-p)))
      (outline-map-region
       (lambda ()
         (let ((close-p (save-excursion
                          (outline-end-of-heading)
                          (seq-some (lambda (o)
                                      (eq (overlay-get o 'invisible) 'outline))
                                    (overlays-at (point))))))
           (outline--insert-button (if close-p 'close 'open))))
       from to)
      (restore-buffer-modified-p modified))))