Function: log-view--mark-entry

log-view--mark-entry is a byte-compiled function defined in log-view.el.gz.

Signature

(log-view--mark-entry)

Documentation

Mark the log entry at point.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/log-view.el.gz
(defun log-view--mark-entry ()
  "Mark the log entry at point."
  (when-let* ((entry (log-view-current-entry))
	      (beg (car entry)))
    (save-excursion
      (goto-char beg)
      (unless (get-char-property beg 'log-view-self)
        (let* ((end (if (get-text-property beg 'log-view-entry-expanded)
			(next-single-property-change beg 'log-view-comment)
		      (log-view-end-of-defun)
		      (point)))
	       (ov (make-overlay beg end)))
	  (overlay-put ov 'face 'log-view-file)
	  ;; This is used to check if the overlay is present.
	  (overlay-put ov 'log-view-self ov)
	  (overlay-put ov 'log-view-marked (nth 1 entry)))))
    (log-view-msg-next 1)))