Function: hproperty:but-flash

hproperty:but-flash is an interactive and byte-compiled function defined in hproperty.el.

Signature

(hproperty:but-flash)

Documentation

Flash a Hyperbole button at or near point to indicate selection.

Key Bindings

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hproperty.el
(defun hproperty:but-flash ()
  "Flash a Hyperbole button at or near point to indicate selection."
  (interactive)
  (let* ((categ (hattr:get 'hbut:current 'categ))
	 (start (hattr:get 'hbut:current 'lbl-start))
	 (end   (hattr:get 'hbut:current 'lbl-end))
	 (ibut)
	 (prev)
	 (categ-face))
    (cond ((setq categ-face (hproperty:but-get-face start)))
	  ((eq categ 'explicit)
	   (setq categ-face hproperty:but-face))
	  (t (setq categ-face hproperty:ibut-face
		   ibut t)))
    (if (and start end)
	(unless (setq prev (hproperty:but-p start))
	  (hproperty:but-add start end categ-face))
      (setq start (point)))
    (when (hproperty:but-p start)
      (unwind-protect
	  (progn
	    (hproperty:but-set-face start hproperty:flash-face)
	    (sit-for hproperty:but-flash-time-seconds)) ;; Force display update
	(hproperty:but-set-face start categ-face)
	(redisplay t)))
    (and ibut (not prev) (hproperty:but-clear start))))