From: Mattias Engdegård <mattiase@acm.org>
Date: Tue, 9 Jul 2024 16:30:48 +0000 (+0200)
Subject: ; * lisp/net/shr.el (shr-image-zoom-levels): Fix wrong type.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49949af016555b386c5c75baa23b33da5e353a51;p=emacs.git

; * lisp/net/shr.el (shr-image-zoom-levels): Fix wrong type.

(cherry picked from commit ac797f60160848fb625db4855befc68352d6cbd2)
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 4ccd8a5a85a..39271cc5296 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -233,10 +233,10 @@ can be one of the following symbols:
 * `fill-height': Display the image zoomed to fill the height of the
 current window."
   :version "31.1"
-  :type '(set (choice (const :tag "Fit to window size" fit)
-                      (const :tag "Original size" original)
-                      (const :tag "Full image size" image)
-                      (const :tag "Fill window height" fill-height))))
+  :type '(set (const :tag "Fit to window size" fit)
+              (const :tag "Original size" original)
+              (const :tag "Full image size" image)
+              (const :tag "Fill window height" fill-height)))
 
 (defvar shr-content-function nil
   "If bound, this should be a function that will return the content.