Function: ffap-url-at-point

ffap-url-at-point is an autoloaded and byte-compiled function defined in ffap.el.gz.

Signature

(ffap-url-at-point)

Documentation

Return URL from around point if it exists, or nil.

Sets the variable ffap-string-at-point-region to the bounds of URL, if any.

Aliases

net-utils-url-at-point (obsolete since 29.1)

Source Code

;; Defined in /usr/src/emacs/lisp/ffap.el.gz
;;;###autoload
(defun ffap-url-at-point ()
  "Return URL from around point if it exists, or nil.

Sets the variable `ffap-string-at-point-region' to the bounds of URL, if any."
  (when ffap-url-regexp
    (let ((thing-at-point-beginning-of-url-regexp ffap-url-regexp)
          (thing-at-point-default-mail-uri-scheme ffap-foo-at-bar-prefix)
          val)
      (setq val (thing-at-point-url-at-point ffap-lax-url
                                             (if (use-region-p)
                                                 (cons (region-beginning)
                                                       (region-end)))))
      (if val
          (let ((bounds (thing-at-point-bounds-of-url-at-point
                         ffap-lax-url)))
            (setq ffap-string-at-point-region
                  (list (car bounds) (cdr bounds)))))
      val)))