diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-24 04:21:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-24 04:21:34 +0000 |
| commit | 89e2f39486bfec5a32508a8124862af1ef0cba27 (patch) | |
| tree | a109541122a0f3782bf39644cc9c54a665cbe74d /lisp/textmodes/tex-mode.el | |
| parent | 8296b716f64ee3b8eafe1f4413080b7b1257ecb6 (diff) | |
| download | emacs-89e2f39486bfec5a32508a8124862af1ef0cba27.tar.gz | |
(tex-categorize-whitespace): Use eq, not eql.
Diffstat (limited to 'lisp/textmodes/tex-mode.el')
| -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 (while not-finished (cond ((looking-at "[ \t]+") (goto-char (match-end 0)) - (if (eql category 'null) + (if (eq category 'null) (setq category 'space))) ((looking-at "\n") - (cond ((eql category 'newline) + (cond ((eq category 'newline) (setq category 'par) (setq not-finished nil)) (t @@ -738,7 +738,7 @@ Entering SliTeX mode runs the hook `text-mode-hook', then the hook (t (setq not-finished nil)))) (skip-chars-forward " \t\n\f") - (if (eql category 'newline) + (if (eq category 'newline) 'space ;TeX doesn't distinguish category))) |