diff options
| author | Case Duckworth | 2022-05-06 10:23:02 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-05-06 10:23:02 -0500 |
| commit | fcd47a9c3a10b6028045773ff5b197a080ac345c (patch) | |
| tree | 0c01200c1a80723467fb43b7a7f6b97560eec6f9 /lisp/+browse-url.el | |
| parent | Add +sort-lines (diff) | |
| download | emacs-fcd47a9c3a10b6028045773ff5b197a080ac345c.tar.gz emacs-fcd47a9c3a10b6028045773ff5b197a080ac345c.zip | |
meh
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 |