Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(browse-url-browser-function): Default to

Browse source 
browse-url-default-windows-browser on windows-nt.
(browse-url-default-windows-browser): New function.
This commit is contained in:
Andrew Innes 1999-05-02 09:34:41 +00:00
parent 3288d108f4
commit ef233c018a
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/browse-url.el
View file

@ -232,7 +232,9 @@
;;;###autoload
(defcustom browse-url-browser-function
'browse-url-netscape
(if (eq system-type 'windows-nt)
'browse-url-default-windows-browser
'browse-url-netscape)
"*Function to display the current buffer in a WWW browser.
This is used by the `browse-url-at-point', `browse-url-at-mouse', and
`browse-url-of-file' commands.
@ -258,6 +260,8 @@ regexp should probably be \".\" to specify a default browser."
(function-item :tag "MMM" :value browse-url-mmm)
(function-item :tag "Specified by `Browse Url Generic Program'"
:value browse-url-generic)
(function-item :tag "Default Windows browser"
:value browse-url-default-windows-browser)
(function :tag "Your own function"))
:group 'browse-url)
@ -654,6 +658,12 @@ to use."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Browser-specific commands
;; --- Default MS-Windows browser ---
(defun browse-url-default-windows-browser (url &optional new-window)
(interactive (browse-url-interactive-arg "URL: "))
(w32-shell-execute "open" url))
;; --- Netscape ---
(defun browse-url-process-environment ()