diff options
| author | Roland McGrath <roland@gnu.org> | 1992-12-24 22:33:11 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1992-12-24 22:33:11 +0000 |
| commit | e4fc4f587d06c57f430313f203b5fae0810ba03a (patch) | |
| tree | d878aa1c8565c65bc23b2d3bc7dc152145f51fd6 /lisp/progmodes | |
| parent | 0783dc9abe202789d51c38cea2f894589af633d4 (diff) | |
| download | emacs-e4fc4f587d06c57f430313f203b5fae0810ba03a.tar.gz | |
(etags-verify-tags-table): Use eq instead of = in case char-after returns
nil.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/etags.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 04932d29c4e..acd9c3a995a 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -816,7 +816,8 @@ See documentation of variable `tags-file-name'." ;; Return non-nil iff the current buffer is a valid etags TAGS file. (defun etags-verify-tags-table () - (= (char-after 1) ?\f)) + ;; Use eq instead of = in case char-after returns nil. + (eq (char-after 1) ?\f)) (defun etags-file-of-tag () (save-excursion |