# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 725236391 0
# Node ID 4023bea27d64ceb380ce1a91c51f07b0e579e409
# Parent  e5e26318e6e58cce5eb766b61fc6cc89d97f95d9
(etags-verify-tags-table): Use eq instead of = in case char-after returns
nil.

diff -r e5e26318e6e5 -r 4023bea27d64 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Thu Dec 24 06:49:45 1992 +0000
+++ b/lisp/progmodes/etags.el	Thu Dec 24 22:33:11 1992 +0000
@@ -816,7 +816,8 @@
 
 ;; 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