Function: shr-url-at-point

shr-url-at-point is a byte-compiled function defined in shr.el.gz.

Signature

(shr-url-at-point IMAGE-URL)

Documentation

Return the URL under point as a string.

If IMAGE-URL is non-nil, or there is no link under point, but there is an image under point then copy the URL of the image under point instead.

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-url-at-point (image-url)
  "Return the URL under point as a string.
If IMAGE-URL is non-nil, or there is no link under point, but
there is an image under point then copy the URL of the image
under point instead."
  (if image-url
      (get-text-property (point) 'image-url)
    (or (get-text-property (point) 'shr-url)
        (get-text-property (point) 'image-url))))