# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 814222662 0
# Node ID 2a96bf08bccb2f161ae965a52656de1c736a52af
# Parent  679fc0917c1141d16266bf7ba25778a06397dbe4
(mail-abbrev-syntax-table): Rewrite using map-char-table.

diff -r 679fc0917c11 -r 2a96bf08bccb lisp/mail/mailabbrev.el
--- 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 ()