diff options
| author | Noah Friedman | 1995-10-09 04:49:15 +0000 |
|---|---|---|
| committer | Noah Friedman | 1995-10-09 04:49:15 +0000 |
| commit | 8beb051325fd63d7d526e2e2917def6a7753e1f0 (patch) | |
| tree | 12a914f81d53e82d8f1aaf6e2e7a2c465c7badf9 | |
| parent | dcf804a0a921a0bbc4d4747d9804bcf6b37036d8 (diff) | |
| download | emacs-8beb051325fd63d7d526e2e2917def6a7753e1f0.tar.gz emacs-8beb051325fd63d7d526e2e2917def6a7753e1f0.zip | |
(mail-abbrev-syntax-table): Use `equal' instead of `=', in case elts
of syntax table are lists, not integers.
| -rw-r--r-- | lisp/mail/mailabbrev.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 84debb0bd95..4491e097af0 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el | |||
| @@ -372,7 +372,7 @@ non-address headers.") | |||
| 372 | (_ (aref (standard-syntax-table) ?_)) | 372 | (_ (aref (standard-syntax-table) ?_)) |
| 373 | (w (aref (standard-syntax-table) ?w))) | 373 | (w (aref (standard-syntax-table) ?w))) |
| 374 | (while (>= i 0) | 374 | (while (>= i 0) |
| 375 | (if (= (aref tab i) _) (aset tab i w)) | 375 | (if (equal (aref tab i) _) (aset tab i w)) |
| 376 | (setq i (1- i))) | 376 | (setq i (1- i))) |
| 377 | tab) | 377 | tab) |
| 378 | "The syntax-table used for abbrev-expansion purposes; this is not actually | 378 | "The syntax-table used for abbrev-expansion purposes; this is not actually |