diff options
| author | Glenn Morris | 2017-12-13 13:55:29 -0500 |
|---|---|---|
| committer | Glenn Morris | 2017-12-13 13:55:29 -0500 |
| commit | 7e2f4d3d416fc06a4462c8c4c38ec1b54b02611a (patch) | |
| tree | af89c9bc638078f88a6d8f4d8880b83f70edebda | |
| parent | 52d2a690f66de135fbfbcf5a195014e24be64170 (diff) | |
| download | emacs-7e2f4d3d416fc06a4462c8c4c38ec1b54b02611a.tar.gz emacs-7e2f4d3d416fc06a4462c8c4c38ec1b54b02611a.zip | |
* lisp/htmlfontify.el (hfy-which-etags): Fix it.
| -rw-r--r-- | lisp/htmlfontify.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index 0c5a2477e5d..aa7cf430a4d 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el | |||
| @@ -370,8 +370,8 @@ commands in `hfy-etags-cmd-alist'." | |||
| 370 | (when (eq (call-process hfy-etags-bin nil t nil "--version") 0) | 370 | (when (eq (call-process hfy-etags-bin nil t nil "--version") 0) |
| 371 | (goto-char (point-min)) | 371 | (goto-char (point-min)) |
| 372 | (cond | 372 | (cond |
| 373 | ((looking-at-p "exube") "exuberant ctags") | 373 | ((search-forward "exube" nil t) "exuberant ctags") |
| 374 | ((looking-at-p "GNU E") "emacs etags"))) | 374 | ((search-forward "GNU E" nil t) "emacs etags"))) |
| 375 | ;; Return nil if the etags binary isn't executable (Bug#25468). | 375 | ;; Return nil if the etags binary isn't executable (Bug#25468). |
| 376 | (file-error nil)))) | 376 | (file-error nil)))) |
| 377 | 377 | ||