Skip to content

Instantly share code, notes, and snippets.

@cmiles74

cmiles74/Trying to scan and capture URLs in text.el

Created July 10, 2009 20:36
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save cmiles74/144794 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save cmiles74/144794 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Trying to scan and capture URLs in text.el
(progn
(let ((urls ()))
(save-excursion
(goto-char (point-min))
(while
(re-search-forward
"\\<\\(http\\)://[a-zA-Z0-9\-\.\?\&\#]*" nil t)
(let ((start (match-beginning 0))
(end (match-end 0)))
(setq urls (cons
(buffer-substring-no-properties start end) urls)))))
(reverse urls)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment