Mercurial > emacs
comparison lisp/mail/mailabbrev.el @ 44393:6ae0e3db6a85
(mail-abbrev-make-syntax-table): Use (syntax-table), not old-syntax-table.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Apr 2002 20:48:10 +0000 |
| parents | 5e64981e7abd |
| children | c94319aaffb8 |
comparison
equal
deleted
inserted
replaced
| 44392:4c958bb71cb6 | 44393:6ae0e3db6a85 |
|---|---|
| 406 of a mail alias. The value is set up, buffer-local, when first needed.") | 406 of a mail alias. The value is set up, buffer-local, when first needed.") |
| 407 | 407 |
| 408 (defun mail-abbrev-make-syntax-table () | 408 (defun mail-abbrev-make-syntax-table () |
| 409 (make-local-variable 'mail-abbrev-syntax-table) | 409 (make-local-variable 'mail-abbrev-syntax-table) |
| 410 (unless mail-abbrev-syntax-table | 410 (unless mail-abbrev-syntax-table |
| 411 (let ((tab (copy-syntax-table old-syntax-table)) | 411 (let ((tab (copy-syntax-table (syntax-table))) |
| 412 (_ (aref (standard-syntax-table) ?_)) | 412 (_ (aref (standard-syntax-table) ?_)) |
| 413 (w (aref (standard-syntax-table) ?w))) | 413 (w (aref (standard-syntax-table) ?w))) |
| 414 (map-char-table | 414 (map-char-table |
| 415 (function (lambda (key value) | 415 (function (lambda (key value) |
| 416 (if (equal value _) | 416 (if (equal value _) |