Function: find-tag-default-as-regexp

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

Signature

(find-tag-default-as-regexp)

Documentation

Return regexp that matches the default tag at point.

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-regexp ()
  "Return regexp that matches the default tag at point.
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 (funcall (or find-tag-default-function
			  (get major-mode 'find-tag-default-function)
			  #'find-tag-default))))
    (if tag (regexp-quote tag))))