Function: smart-prog-at-tag-p

smart-prog-at-tag-p is an autoloaded and byte-compiled function defined in hmouse-tag.el.

Signature

(smart-prog-at-tag-p &optional NO-FLASH)

Documentation

Return programming language tag name that point is within, else nil.

When optional NO-FLASH, do not flash. Uses xref for identifier recognition.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hmouse-tag.el
;; smart-prog language default support functions
;;;###autoload
(defun smart-prog-at-tag-p (&optional no-flash)
  "Return programming language tag name that point is within, else nil.
When optional NO-FLASH, do not flash.
Uses `xref' for identifier recognition."
  (when (apply #'derived-mode-p smart-tags-mode-list)
    (let ((identifier (hsys-xref-identifier-at-point)))
      (when identifier
	(setq identifier (substring-no-properties identifier))
	(unless no-flash
	  (let ((start-end (bounds-of-thing-at-point 'symbol)))
	    (when start-end
	      (smart-flash-tag identifier (car start-end) (cdr start-end)))))
	identifier))))