[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 743a533 4/4: Encode urls more before using in browse-url
From: |
Lars Ingebrigtsen |
Subject: |
master 743a533 4/4: Encode urls more before using in browse-url |
Date: |
Tue, 7 Sep 2021 11:47:02 -0400 (EDT) |
branch: master
commit 743a53343c38fab5d1ff7f384b080def1ad2a2ef
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Encode urls more before using in browse-url
* lisp/net/browse-url.el (browse-url-default-windows-browser)
(browse-url-default-macosx-browser): Encode the URL before using
(in case it contains spaces) (bug#50435).
---
lisp/net/browse-url.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index b8e1f1b..bf77ecc 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -966,6 +966,7 @@ click but point is not changed."
"Invoke the MS-Windows system's default Web browser.
The optional NEW-WINDOW argument is not used."
(interactive (browse-url-interactive-arg "URL: "))
+ (setq url (browse-url-encode-url url))
(cond ((eq system-type 'ms-dos)
(if dos-windows-version
(shell-command (concat "start " (shell-quote-argument url)))
@@ -995,6 +996,7 @@ The optional NEW-WINDOW argument is not used."
"Invoke the macOS system's default Web browser.
The optional NEW-WINDOW argument is not used."
(interactive (browse-url-interactive-arg "URL: "))
+ (setq url (browse-url-encode-url url))
(start-process (concat "open " url) nil "open" url))
(function-put 'browse-url-default-macosx-browser 'browse-url-browser-kind