Function: find-tag-default-as-symbol-regexp

find-tag-default-as-symbol-regexp is a byte-compiled function defined in subr.el.gz.

Signature

(find-tag-default-as-symbol-regexp)

Documentation

Return regexp that matches the default tag at point as symbol.

If there is no tag at point, return nil.

When in a major mode that does not provide its own find-tag-default-function, return a regexp that matches the symbol at point exactly.

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
(defun find-tag-default-as-symbol-regexp ()
  "Return regexp that matches the default tag at point as symbol.
If there is no tag at point, return nil.

When in a major mode that does not provide its own
`find-tag-default-function', return a regexp that matches the
symbol at point exactly."
  (let ((tag-regexp (find-tag-default-as-regexp)))
    (if (and tag-regexp
	     (eq (or find-tag-default-function
		     (get major-mode 'find-tag-default-function)
		     #'find-tag-default)
		 #'find-tag-default))
	(format "\\_<%s\\_>" tag-regexp)
      tag-regexp)))