Function: allout-widgets-deletions-processor

allout-widgets-deletions-processor is a byte-compiled function defined in allout-widgets.el.gz.

Signature

(allout-widgets-deletions-processor CHANGES)

Documentation

Adjust items tracking allout outline structure deletions.

Dispatched by allout-widgets-post-command-business in response to
:deleted entries recorded by allout-widgets-deletions-recorder.

Source Code

;; Defined in /usr/src/emacs/lisp/allout-widgets.el.gz
;;;_   > allout-widgets-deletions-processor (changes)
(defun allout-widgets-deletions-processor (changes)
  "Adjust items tracking allout outline structure deletions.

Dispatched by `allout-widgets-post-command-business' in response to
:deleted entries recorded by `allout-widgets-deletions-recorder'."
  (save-excursion
    (dolist (change changes)
      (let ((depth (cadr change))
            (from (caddr change)))
        (goto-char from)
        (when (allout-previous-visible-heading 1)
          (if (> depth 1)
              (allout-ascend-to-depth (1- depth)))
          (allout-redecorate-visible-subtree
           (allout-get-or-create-item-widget 'redecorate)))))))