-;; Time-stamp: <2017-09-07 12:39:04 kmodi>
+;; Time-stamp: <2017-09-07 13:21:35 kmodi>
 
 ;; Eww - Emacs browser (needs emacs 24.4 or higher)
 

        (>=e "26.0"
            (let* ((pt-on-url (shr-url-at-point nil))
                   (pt-on-image (shr-url-at-point :image-url)))
              (when (and (not pt-on-url)
                         (not pt-on-image))
                (setq page-url t)) ;Get page URL if point is neither on URL nor image
              (if page-url
                  (message "Copied page url: %s" (eww-copy-page-url))

there is neither a link nor an image, the page URL will be
copied.

\(For emacs 25.x and older) If this function is called twice, try
to fetch the URL and see whether it redirects somewhere else.

\(For emacs 26.x and newer) Automatically use the fetched URL's
redirection destination if it has one."
      (interactive "P")
      (let (image-url page-url)
