Function: Info-note-at-p

Info-note-at-p is an autoloaded and byte-compiled function defined in hmouse-info.el.

Signature

(Info-note-at-p)

Documentation

Return the name of the Info cross-reference note at point, or nil if none.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hmouse-info.el
;;;###autoload
(defun Info-note-at-p ()
  "Return the name of the Info cross-reference note at point, or nil if none."
  (let ((opoint (point)))
    (save-excursion
      (skip-chars-forward "^:")
      (if (and (re-search-backward
		"\*\\(Ref\\|Note\\|See\\)\\([ \t\n\r]+\\|$\\)" nil t)
	       (looking-at "\*\\(Ref\\|Note\\|See\\)[ \t\n\r]+\\([^:]*\\):")
	       (<= (match-beginning 0) opoint)
	       (> (match-end 0) opoint))
	  ;; Remove newline and extra spaces from `note-name'
	  (replace-regexp-in-string "[ \t\n\r]+" " "
				     (match-string-no-properties 2) nil t)))))