diff options
| -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 |