diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/+browse-url.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/+browse-url.el b/lisp/+browse-url.el index 83f43cf..89b21e4 100644 --- a/lisp/+browse-url.el +++ b/lisp/+browse-url.el | |||
@@ -74,6 +74,15 @@ named NAME, defaulting to \"+browse-url-with-VIEWER\", and the variable | |||
74 | "List of URL regexps to open with `browse-url-secondary-browser-function'." | 74 | "List of URL regexps to open with `browse-url-secondary-browser-function'." |
75 | :type '(repeat regexp)) | 75 | :type '(repeat regexp)) |
76 | 76 | ||
77 | ;; Because `browse-url-browser-function', when set to an alist, must be of the | ||
78 | ;; form (REGEXP . FUNCTION), I need to convert | ||
79 | ;; `+browse-url-secondary-browser-regexps' into a regexp. | ||
80 | |||
81 | (defun +browse-url-secondary-browser-regexps-combine () | ||
82 | "Combine `+browse-url-secondary-browser-regexps'. | ||
83 | This combines a list of regexps into one regexp." | ||
84 | (mapconcat #'identity +browse-url-secondary-browser-regexps "\\\|")) | ||
85 | |||
77 | ;;; URL Transformation Functions | 86 | ;;; URL Transformation Functions |
78 | ;; There's a lot of bad websites out there. Luckily we can easily redirect | 87 | ;; There's a lot of bad websites out there. Luckily we can easily redirect |
79 | ;; requests to more privacy-respecting, or just less javascript-ridden, sites | 88 | ;; requests to more privacy-respecting, or just less javascript-ridden, sites |