diff options
| author | jao <jao@gnu.org> | 2021-05-16 02:42:28 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-05-16 02:42:28 +0100 |
| commit | 08c9b66fabfe06976aa044199924dd9afc885dd6 (patch) | |
| tree | 067219e1bbaf51e29e95711c59994aa0d8085058 /init.org | |
| parent | cf81ccc6e7a4cb50151d1b2f7a81369ef516a0db (diff) | |
| download | elibs-08c9b66fabfe06976aa044199924dd9afc885dd6.tar.gz elibs-08c9b66fabfe06976aa044199924dd9afc885dd6.tar.bz2 | |
better compatibility tests for browse-url
Diffstat (limited to 'init.org')
| -rw-r--r-- | init.org | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -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") |