diff options
author | Case Duckworth | 2022-05-09 20:37:17 -0500 |
---|---|---|
committer | Case Duckworth | 2022-05-09 20:37:17 -0500 |
commit | 4c4dd0e7824d4bf634923de19e14bbb9274c9408 (patch) | |
tree | 0928862fe65aa99249acf42c2168160a18088a21 /lisp/+browse-url.el | |
parent | meh (diff) | |
parent | Further modeline changes (diff) | |
download | emacs-4c4dd0e7824d4bf634923de19e14bbb9274c9408.tar.gz emacs-4c4dd0e7824d4bf634923de19e14bbb9274c9408.zip |
Merged
Diffstat (limited to 'lisp/+browse-url.el')
-rw-r--r-- | lisp/+browse-url.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/+browse-url.el b/lisp/+browse-url.el index dbbfef2..fc479e4 100644 --- a/lisp/+browse-url.el +++ b/lisp/+browse-url.el | |||
@@ -120,9 +120,9 @@ ARGS are ignored here, but passed on for later processing." | |||
120 | ;; along with the rest of the args, in a list to the original caller (probably | 120 | ;; along with the rest of the args, in a list to the original caller (probably |
121 | ;; `browse-url'.) | 121 | ;; `browse-url'.) |
122 | (apply 'list | 122 | (apply 'list |
123 | (cl-loop with url = (substring-no-properties | 123 | (cl-loop with url = (substring-no-properties |
124 | (if (consp url) (car url) url)) | 124 | (if (consp url) (car url) url)) |
125 | for (regex . transformation) in +browse-url-transformations | 125 | for (regex . transformation) in +browse-url-transformations |
126 | if (string-match regex url) | 126 | if (string-match regex url) |
127 | return (replace-match transformation nil nil url) | 127 | return (replace-match transformation nil nil url) |
128 | ;; else | 128 | ;; else |