Function: goto-address-find-address-at-point

goto-address-find-address-at-point is a byte-compiled function defined in goto-addr.el.gz.

Signature

(goto-address-find-address-at-point)

Documentation

Find e-mail address around or before point.

Then search backwards to beginning of line for the start of an e-mail address. If no e-mail address found, return nil.

Source Code

;; Defined in /usr/src/emacs/lisp/net/goto-addr.el.gz
(defun goto-address-find-address-at-point ()
  "Find e-mail address around or before point.
Then search backwards to beginning of line for the start of an e-mail
address.  If no e-mail address found, return nil."
  (re-search-backward "[^-_A-Za-z0-9.@]" (line-beginning-position) 'lim)
  (if (or (looking-at goto-address-mail-regexp)	; already at start
	  (and (re-search-forward goto-address-mail-regexp
				  (line-end-position) 'lim)
	       (goto-char (match-beginning 0))))
      (match-string-no-properties 0)))