Fix reading kind argument in browse-url-with-browser-kind.

* lisp/net/browse-url.el (browse-url-with-browser-kind): Convert KIND
argument queried from the user to a symbol.
This commit is contained in:
Tassilo Horn 2020-05-08 21:07:56 +02:00
parent 909591a4b2
commit 0d861f25b2

View file

@ -950,11 +950,11 @@ opposite of the browser kind of `browse-url-browser-function'."
'internal)
'external
'internal))
(k (completing-read
(format "Browser kind (default %s): " default)
'(internal external)
nil t nil nil
default)))
(k (intern (completing-read
(format "Browser kind (default %s): " default)
'(internal external)
nil t nil nil
default))))
(cons k url-arg)))
(let ((function (browse-url-select-handler url kind)))
(unless function