diff options
| author | Roland McGrath | 1992-12-24 22:33:11 +0000 |
|---|---|---|
| committer | Roland McGrath | 1992-12-24 22:33:11 +0000 |
| commit | e4fc4f587d06c57f430313f203b5fae0810ba03a (patch) | |
| tree | d878aa1c8565c65bc23b2d3bc7dc152145f51fd6 /lisp | |
| parent | 0783dc9abe202789d51c38cea2f894589af633d4 (diff) | |
| download | emacs-e4fc4f587d06c57f430313f203b5fae0810ba03a.tar.gz emacs-e4fc4f587d06c57f430313f203b5fae0810ba03a.zip | |
(etags-verify-tags-table): Use eq instead of = in case char-after returns
nil.
Diffstat (limited to 'lisp')
| -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'." | |||
| 816 | 816 | ||
| 817 | ;; Return non-nil iff the current buffer is a valid etags TAGS file. | 817 | ;; Return non-nil iff the current buffer is a valid etags TAGS file. |
| 818 | (defun etags-verify-tags-table () | 818 | (defun etags-verify-tags-table () |
| 819 | (= (char-after 1) ?\f)) | 819 | ;; Use eq instead of = in case char-after returns nil. |
| 820 | (eq (char-after 1) ?\f)) | ||
| 820 | 821 | ||
| 821 | (defun etags-file-of-tag () | 822 | (defun etags-file-of-tag () |
| 822 | (save-excursion | 823 | (save-excursion |