Function: pulsar-post-command-pulse

pulsar-post-command-pulse is a natively compiled function defined in pulsar.el.

Signature

(pulsar-post-command-pulse)

Documentation

Pulse current line, accumulated edits, or selected region.

Source Code

;; Defined in /nix/store/3sr3j7hp5p1wsd8fv5763k239hzdxi1c-emacs-packages-deps/share/emacs/site-lisp/elpa/pulsar-1.4.1/pulsar.el
(defun pulsar-post-command-pulse ()
  "Pulse current line, accumulated edits, or selected region."
  (cond
   ((or (memq this-command pulsar-pulse-functions)
        (memq real-this-command pulsar-pulse-functions))
    (pulsar--create-pulse (pulsar--get-line-boundaries) pulsar-face))
   ;; Extract the outer limits of the affected region from
   ;; accumulated changes. NOTE: Non-contiguous regions such as
   ;; rectangles will pulse their contiguous bounds.
   (pulsar--pulse-region-changes
    (let ((beg (apply #'min (mapcar #'car pulsar--pulse-region-changes)))
          (end (apply #'max (mapcar #'cdr pulsar--pulse-region-changes))))
      (setq pulsar--pulse-region-changes nil)
      (pulsar--create-pulse
       (if (eq beg end)
           (cons beg (+ beg 1))
         (cons beg end))
       pulsar-region-change-face)))
   ;; Pulse the selected region for commands that did not cause
   ;; buffer changes; e.g., kill-ring-save.
   ((or (memq this-command pulsar-pulse-region-functions)
        (memq real-this-command pulsar-pulse-region-functions))
    (pulsar--create-pulse (pulsar--get-line-or-region-boundaries) pulsar-region-face))))