Re: Elisp to open a line-wrapped URL

[Emanuel Berg <moasen@zoho.com>]

Maybe should reset search init position as well:

(require 'cl-lib)
(require 'thingatpt)
(require 'w3m)

(defun goto-next-url ()
  (interactive)
  (let ((start (point))
        (max   (point-max)))
    (cl-dolist (url-type thing-at-point-uri-schemes)
      (goto-char start)
      (when (re-search-forward url-type max t)
        (goto-char (match-beginning 0))
        (let ((url (thing-at-point 'url)))
          (when url
            (w3m-goto-url url)
            (cl-return) ))))))
;; (goto-next-url)
;; http://www.google.com

-- 
underground experts united
http://user.it.uu.se/~embe8573