Mercurial > emacs

comparison lisp/mail/mailabbrev.el @ 46354:ff0c68e547f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-abbrev-make-syntax-table): Check the inherited table entry.
author Andreas Schwab <schwab@suse.de>
date Sat, 13 Jul 2002 21:40:05 +0000
parents c94319aaffb8
children 29a49406ad9d
comparison
equal deleted inserted replaced
46353:c6a6286bc21a 46354:ff0c68e547f7
411 (let ((tab (copy-syntax-table (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 (null value)
417 ;; Fetch the inherited value
418 (setq value (aref tab key)))
416 (if (equal value _) 419 (if (equal value _)
417 (set-char-table-range tab key w)))) 420 (set-char-table-range tab key w))))
418 tab) 421 tab)
419 (modify-syntax-entry ?@ "w" tab) 422 (modify-syntax-entry ?@ "w" tab)
420 (setq mail-abbrev-syntax-table tab)))) 423 (setq mail-abbrev-syntax-table tab))))