From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 29 May 2022 14:40:53 +0000 (+0200)
Subject: Fix hfy-etags-cmd type
X-Git-Tag: emacs-29.0.90~1910^2~351
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e06d600b4963fc6ccc69fb0bbbc725350a80c9fc;p=emacs.git

Fix hfy-etags-cmd type

* lisp/htmlfontify.el (hfy-etags-cmd): Fix the type -- this
variable usually ends up being nil.
---

diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index a809e61da73..89cacdff21b 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -364,7 +364,7 @@ the etags output on stdout.
 Two canned commands are provided - they drive Emacs's etags and
 exuberant-ctags' etags respectively."
   :tag   "etags-command"
-  :type (let ((clist (list '(string))))
+  :type (let ((clist (list '(string) '(const :tag "None" nil))))
           (dolist (C hfy-etags-cmd-alist)
             (push (list 'const :tag (car C) (cdr C)) clist))
           (cons 'choice clist)))