* lisp/htmlfontify.el (hfy-which-etags): Fix it.

This commit is contained in:
Glenn Morris 2017-12-13 13:55:29 -05:00
parent 52d2a690f6
commit 7e2f4d3d41

View file

@ -370,8 +370,8 @@ commands in `hfy-etags-cmd-alist'."
(when (eq (call-process hfy-etags-bin nil t nil "--version") 0)
(goto-char (point-min))
(cond
((looking-at-p "exube") "exuberant ctags")
((looking-at-p "GNU E") "emacs etags")))
((search-forward "exube" nil t) "exuberant ctags")
((search-forward "GNU E" nil t) "emacs etags")))
;; Return nil if the etags binary isn't executable (Bug#25468).
(file-error nil))))