Skip to content

Instantly share code, notes, and snippets.

@cjp
Created April 6, 2016 22:41
Show Gist options
  • Save cjp/553733a644ef53b8aca7caabcf640a37 to your computer and use it in GitHub Desktop.
Save cjp/553733a644ef53b8aca7caabcf640a37 to your computer and use it in GitHub Desktop.
Display URL requested by `browse-url` function
(defun browse-url-display (url &optional _new-window)
;; new-window ignored
"Open a help window displaying the requested URL."
(interactive (browse-url-interactive-arg "URL: "))
(with-help-window "*url*"
(princ (list url))))
(setq browse-url-browser-function 'browse-url-display)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment