From df1f255780956885c2a11dc51bd5f6bc89c2e594 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 21 May 2021 08:34:52 -0500
Subject: Adapt to deprecated variable

---
 init.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index cf69c1b..864c4ff 100644
--- a/init.el
+++ b/init.el
@@ -99,14 +99,19 @@
   (when (acdw/system :work)
     (add-to-list 'exec-path "C:/Program Files/Mozilla Firefox"))
   
-  (setq-default browse-url-browser-function ; can be alist (regex . function)
-                '(("." . eww-browse-url))
-                browse-url-secondary-browser-function
+  (setq-default browse-url-secondary-browser-function
                 (if (executable-find "firefox") ; prefer Firefox
                     'browse-url-firefox
                   'browse-url-default-browser)
                 browse-url-new-window-flag t
-                browse-url-firefox-new-window-is-tab t))
+                browse-url-firefox-new-window-is-tab t)
+
+  ;; `browse-url-browser-function' as an alist is deprecated in Emacs 28 for
+  ;; `browse-url-handlers'.
+  (set-default (if (version<= emacs-version "28")
+                   'browse-url-browser-function
+                 'browse-url-handlers)
+               '(("." . eww-browse-url))))
 
 (setup buffers
   (:global "C-x k" acdw/kill-a-buffer))
-- 
cgit 1.4.1-21-gabe81