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:
parent
909591a4b2
commit
0d861f25b2
1 changed files with 5 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue