From f803fa1ce5309ae074c12f1294bbbad8baf5a340 Mon Sep 17 00:00:00 2001 From: Greg Hendershott Date: Fri, 1 Mar 2024 12:14:22 -0500 Subject: [PATCH] racket-browse-url-function: Vary default by platform; closes #620 --- racket-custom.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/racket-custom.el b/racket-custom.el index c5e82638..4dedb648 100644 --- a/racket-custom.el +++ b/racket-custom.el @@ -31,6 +31,7 @@ (define-obsolete-variable-alias 'racket-racket-program 'racket-program "2017-06-02") (define-obsolete-variable-alias 'racket-raco-program 'racket-program "2017-06-02") +(defvar racket--macp (eq 'darwin system-type)) (defvar racket--winp (eq 'windows-nt system-type)) (defcustom racket-program (if racket--winp "Racket.exe" "racket") @@ -65,8 +66,13 @@ their response asychronously." (make-obsolete-variable 'racket-path-from-racket-to-emacs-function nil "2020-08-26") (defcustom racket-browse-url-function - 'racket-browse-url-using-temporary-file - "Function to call to browse a URL." + (if racket--macp + 'racket-browse-url-using-temporary-file + 'browse-url) + "Function to call to browse a URL. + +Defaults to `racket-browse-url-using-temporary-file' on macOS and +`browse-url' on other platforms." :tag "Browse URL Function" :type 'function :risky t