no need to filter out non-executables
svn: r8446
This commit is contained in:
parent
8792c4ca95
commit
5d0d0ed44e
|
@ -229,15 +229,7 @@
|
|||
(set! callbacks
|
||||
(cons (fw:preferences:add-callback 'external-browser
|
||||
(lambda (name browser) (refresh-controls browser)))
|
||||
callbacks))
|
||||
|
||||
(let disable ([x raw:unix-browser-list] [n 0])
|
||||
(cond
|
||||
[(null? x) (void)]
|
||||
[else (unless (find-executable-path
|
||||
(symbol->string (car x)) #f)
|
||||
(send r enable n #f))
|
||||
(disable (cdr x) (add1 n))]))))
|
||||
callbacks))))
|
||||
|
||||
;; -------------------- proxy for doc downloads --------------------
|
||||
(when set-help?
|
||||
|
|
Loading…
Reference in New Issue
Block a user