diff options
| author | Tassilo Horn | 2020-05-08 21:07:56 +0200 |
|---|---|---|
| committer | Tassilo Horn | 2020-05-08 21:07:56 +0200 |
| commit | 0d861f25b288d23368cc7522eb56654724fd758d (patch) | |
| tree | e7af20da543228c30eea50d6f210c0e709d2a556 | |
| parent | 909591a4b25901392686f1cf68870260d3016afe (diff) | |
| download | emacs-0d861f25b288d23368cc7522eb56654724fd758d.tar.gz emacs-0d861f25b288d23368cc7522eb56654724fd758d.zip | |
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'." | |||
| 950 | 'internal) | 950 | 'internal) |
| 951 | 'external | 951 | 'external |
| 952 | 'internal)) | 952 | 'internal)) |
| 953 | (k (completing-read | 953 | (k (intern (completing-read |
| 954 | (format "Browser kind (default %s): " default) | 954 | (format "Browser kind (default %s): " default) |
| 955 | '(internal external) | 955 | '(internal external) |
| 956 | nil t nil nil | 956 | nil t nil nil |
| 957 | default))) | 957 | default)))) |
| 958 | (cons k url-arg))) | 958 | (cons k url-arg))) |
| 959 | (let ((function (browse-url-select-handler url kind))) | 959 | (let ((function (browse-url-select-handler url kind))) |
| 960 | (unless function | 960 | (unless function |