From: Tassilo Horn <tsdh@gnu.org>
Date: Fri, 8 May 2020 19:07:56 +0000 (+0200)
Subject: Fix reading kind argument in browse-url-with-browser-kind.
X-Git-Tag: emacs-28.0.90~7409
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d861f25b288d23368cc7522eb56654724fd758d;p=emacs.git

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