better compatibility tests for browse-url

1 files changed, 6 insertions, 7 deletions

diff --git a/init.org b/init.org
index d04e46c..dd37c41 100644
--- a/init.org
+++ b/init.org
@@ -1479,7 +1479,7 @@
 
     #+END_SRC
 *** Browse URL
-    #+BEGIN_SRC emacs-lisp
+    #+begin_src emacs-lisp
       (require 'browse-url)
 
       (setq browse-url-generic-program "~/bin/firehog")
@@ -1548,15 +1548,14 @@
               ("^https?://.*\\.gotomeeting\\.com\\.*" . browse-url-chrome)
               ("^https?://meet\\.google\\.com\\.*" . ,jao-browse-url-external-function)
               (,(jao-wget--regexp) . jao-download)
-              (,jao-video--url-rx . jao-maybe-view-video)
+              (jao-video--url-p . jao-maybe-view-video)
               ("." . ,jao-browse-url-function)))
 
-      (setq browse-url-browser-function
-            (if (> emacs-major-version 27)
-                'browse-url-default-browser
-              browse-url-handlers))
+      (when (< emacs-major-version 28)
+        (setf (alist-get 'jao-video--url-p browse-url-handlers nil t) nil)
+        (setq browse-url-browser-function browse-url-handlers))
 
-    #+END_SRC
+    #+end_src
 *** Subscribe rss using r2e
     #+begin_src emacs-lisp
       (autoload 'View-quit "view")