Function: log-view--restore-marks

log-view--restore-marks is a byte-compiled function defined in log-view.el.gz.

Signature

(log-view--restore-marks)

Documentation

Return a function to restore log entry marks after revert-buffer.

Added to revert-buffer-restore-functions by Log View mode.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/log-view.el.gz
(defun log-view--restore-marks ()
  "Return a function to restore log entry marks after `revert-buffer'.
Added to `revert-buffer-restore-functions' by Log View mode."
  (let ((table (make-hash-table :test #'equal)))
    (dolist (mark (log-view-get-marked))
      (puthash mark t table))
    (lambda ()
      (vc-run-delayed
        (log-view--mark-unmark (lambda ()
                                 (if (gethash (log-view-current-tag) table)
                                     (log-view--mark-entry)
                                   (log-view-msg-next 1)))
                               nil (point-min) (point-max))))))