Mercurial > emacs
changeset 13258:2a96bf08bccb
(mail-abbrev-syntax-table): Rewrite using map-char-table.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 20 Oct 1995 20:57:42 +0000 |
| parents | 679fc0917c11 |
| children | 11899bfa541c |
| files | lisp/mail/mailabbrev.el |
| diffstat | 1 files changed, 9 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mailabbrev.el Fri Oct 20 20:48:00 1995 +0000 +++ b/lisp/mail/mailabbrev.el Fri Oct 20 20:57:42 1995 +0000 @@ -368,16 +368,17 @@ (defvar mail-abbrev-syntax-table (let* ((tab (copy-syntax-table mail-mode-header-syntax-table)) - (i (1- (length tab))) (_ (aref (standard-syntax-table) ?_)) (w (aref (standard-syntax-table) ?w))) - (while (>= i 0) - (if (equal (aref tab i) _) (aset tab i w)) - (setq i (1- i))) - tab) - "The syntax-table used for abbrev-expansion purposes; this is not actually -made the current syntax table of the buffer, but simply controls the set of -characters which may be a part of the name of a mail alias.") + (map-char-table + (function (lambda (key value) + (if (equal value _) + (set-char-table-range tab key w)))) + tab)) + "The syntax-table used for abbrev-expansion purposes. +This is not actually made the current syntax table of the buffer, but +simply controls the set of characters which may be a part of the name +of a mail alias.") (defun mail-abbrev-in-expansion-header-p ()