(mail-abbrev-syntax-table): Rewrite using map-char-table.

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 4491e097af0f9e8b6faf89a2bb77025ebedc72af..5ff2f3cbaca93dad4c99a31eb6709a793dac1bcf 100644 (file)
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -368,16 +368,17 @@ non-address headers.")
 
 (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 ()