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.

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 9073f8968314e8360be1608890570ccb24f155fa..f88de98fca7fc2c846d76138c236cbfc30366af4 100644 (file)
--- 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