Guest User

Untitled

a guest
Feb 17th, 2012
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.40 KB | None | 0 0
  1. (defun open-url-under-point-chromium (&rest junk)
  2.   "If there is a valid URL under point, open that URL in chromium web-browser. Otherwise, open the URL of the current page in chromium web-browser.
  3.  
  4. NOTE: This function requires w3m to be running."
  5.   (let ((temp-url (w3m-print-this-url)))
  6.     (if (not (eq temp-url nil))
  7.     (browse-url-chromium temp-url)
  8.       (browse-url-chromium (w3m-print-current-url)))))
Advertisement
Add Comment
Please, Sign In to add comment