Function: vundo--highlight-last-saved-node

vundo--highlight-last-saved-node is a natively compiled function defined in vundo.el.

Signature

(vundo--highlight-last-saved-node MOD-LIST TIMESTAMPS)

Documentation

Highlight the last (latest) saved node on MOD-LIST.

Consults the alist of TIMESTAMPS. This moves the overlay vundo--highlight-last-saved-overlay.

Source Code

;; Defined in /nix/store/386w2ds6bdh3gcz9k23jssw4cni4lfr2-emacs-packages-deps/share/emacs/site-lisp/elpa/vundo-2.4.0/vundo.el
(defun vundo--highlight-last-saved-node (mod-list timestamps)
  "Highlight the last (latest) saved node on MOD-LIST.
Consults the alist of TIMESTAMPS.  This moves the overlay
`vundo--highlight-last-saved-overlay'."
  (let* ((last-saved (car timestamps))
         (cur (vundo--current-node mod-list))
         (cur-ts (vundo--node-timestamp mod-list cur))
         (node (cond ((and last-saved cur-ts)
                      (if (time-less-p (cdr last-saved) cur-ts)
                          cur (car last-saved)))
                     (last-saved (car last-saved))
                     (cur-ts cur)
                     (t nil)))
         (node-pt (and node (vundo-m-point node))))
    (when node-pt
      (unless vundo--highlight-last-saved-overlay
        (setq vundo--highlight-last-saved-overlay
              (make-overlay (1- node-pt) node-pt))
        (overlay-put vundo--highlight-last-saved-overlay
                     'face 'vundo-last-saved))
      (move-overlay vundo--highlight-last-saved-overlay
                    (1- node-pt) node-pt))))