svn: r6905

original commit: 816d216862
This commit is contained in:
Jay McCarthy 2007-07-13 12:07:46 +00:00
parent a79b32c87b
commit 6f145ee624

View File

@ -57,8 +57,7 @@
[(procedure? external) (external url-str)]
[(eq? stype 'macosx)
(browser-process
(format "osascript -e 'open location \"~a\"'"
url-str))]
(format "open \"~a\"'" url-str))]
[(eq? stype 'windows)
(shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)]
[(not (eq? stype 'unix))
@ -77,7 +76,8 @@
=> (lambda (exe)
(browser-process* exe (if separate-window? "-w" "-x") url-str))]
[(or (use-browser 'netscape)
(use-browser 'mozilla))
(use-browser 'mozilla)
(use-browser 'firefox))
=> (lambda (exe)
;; netscape's -remote returns with an error code, if no netscape is
;; around. start a new netscape in that case.