diff options
| author | Tassilo Horn <tsdh@gnu.org> | 2020-05-08 21:07:56 +0200 |
|---|---|---|
| committer | Tassilo Horn <tsdh@gnu.org> | 2020-05-08 21:07:56 +0200 |
| commit | 0d861f25b288d23368cc7522eb56654724fd758d (patch) | |
| tree | e7af20da543228c30eea50d6f210c0e709d2a556 | |
| parent | 909591a4b25901392686f1cf68870260d3016afe (diff) | |
| download | emacs-0d861f25b288d23368cc7522eb56654724fd758d.tar.gz | |
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.
| -rw-r--r-- | lisp/net/browse-url.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 9073f896831..f88de98fca7 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -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 |