From 4d2795c3e2390e088e5378c84eb9f1a191517c76 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 20 Oct 1995 20:57:42 +0000 Subject: [PATCH] (mail-abbrev-syntax-table): Rewrite using map-char-table. --- lisp/mail/mailabbrev.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 4491e097af0..5ff2f3cbaca 100644 --- 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 () -- 2.39.2