diff options
| author | Richard M. Stallman | 1997-07-24 04:21:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-24 04:21:34 +0000 |
| commit | 2be5fefb8655a1349c9c6a0b03a8bf2da0df1d07 (patch) | |
| tree | 92c93361c69dd5dd08b49f0ffd7cfd58f9511b6a | |
| parent | ecf38857f9959775d7baa4b8d064e1c55676f078 (diff) | |
| download | emacs-2be5fefb8655a1349c9c6a0b03a8bf2da0df1d07.tar.gz emacs-2be5fefb8655a1349c9c6a0b03a8bf2da0df1d07.zip | |
(tex-categorize-whitespace): Use eq, not eql.
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 606205404e9..509b7fd4556 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -723,10 +723,10 @@ Entering SliTeX mode runs the hook `text-mode-hook', then the hook | |||
| 723 | (while not-finished | 723 | (while not-finished |
| 724 | (cond ((looking-at "[ \t]+") | 724 | (cond ((looking-at "[ \t]+") |
| 725 | (goto-char (match-end 0)) | 725 | (goto-char (match-end 0)) |
| 726 | (if (eql category 'null) | 726 | (if (eq category 'null) |
| 727 | (setq category 'space))) | 727 | (setq category 'space))) |
| 728 | ((looking-at "\n") | 728 | ((looking-at "\n") |
| 729 | (cond ((eql category 'newline) | 729 | (cond ((eq category 'newline) |
| 730 | (setq category 'par) | 730 | (setq category 'par) |
| 731 | (setq not-finished nil)) | 731 | (setq not-finished nil)) |
| 732 | (t | 732 | (t |
| @@ -738,7 +738,7 @@ Entering SliTeX mode runs the hook `text-mode-hook', then the hook | |||
| 738 | (t | 738 | (t |
| 739 | (setq not-finished nil)))) | 739 | (setq not-finished nil)))) |
| 740 | (skip-chars-forward " \t\n\f") | 740 | (skip-chars-forward " \t\n\f") |
| 741 | (if (eql category 'newline) | 741 | (if (eq category 'newline) |
| 742 | 'space ;TeX doesn't distinguish | 742 | 'space ;TeX doesn't distinguish |
| 743 | category))) | 743 | category))) |
| 744 | 744 | ||