Mercurial > hg > xemacs-beta

comparison lisp/modes/mail-abbrevs.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children 49a24b4fd526
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; Abbrev-expansion of mail aliases. 1 ;;; Abbrev-expansion of mail aliases.
2 ;;; Copyright (C) 1985-1994 Free Software Foundation, Inc. 2 ;;; Copyright (C) 1985-1994 Free Software Foundation, Inc.
3 ;;; Created: 19 oct 90, Jamie Zawinski <jwz@lucid.com> 3 ;;; Created: 19 oct 90, Jamie Zawinski <jwz@netscape.com>
4 ;;; Modified: 5 apr 92, Roland McGrath <roland@gnu.ai.mit.edu> 4 ;;; Modified: 5 apr 92, Roland McGrath <roland@gnu.ai.mit.edu>
5 ;;; Last change 4-may-94. jwz 5 ;;; Last change 4-may-94. jwz
6 6
7 ;; This file is part of XEmacs. 7 ;; This file is part of XEmacs.
8 8
402 "The syntax table used in send-mail mode when in a mail-address header. 402 "The syntax table used in send-mail mode when in a mail-address header.
403 mail-mode-syntax-table is used when the cursor is in the message body or in 403 mail-mode-syntax-table is used when the cursor is in the message body or in
404 non-address headers.") 404 non-address headers.")
405 405
406 (defvar mail-abbrev-syntax-table 406 (defvar mail-abbrev-syntax-table
407 (let* ((tab (copy-syntax-table mail-mode-header-syntax-table)) 407 (if (fboundp 'map-syntax-table)
408 (i (1- (length tab))) 408 (let ((tab (copy-syntax-table mail-mode-header-syntax-table)))
409 (_ (aref (standard-syntax-table) ?_)) 409 (if (vectorp tab)
410 (w (aref (standard-syntax-table) ?w))) 410 (let ((i (1- (length tab)))
411 (while (>= i 0) 411 (_ (aref (standard-syntax-table) ?_))
412 (if (= (aref tab i) _) (aset tab i w)) 412 (w (aref (standard-syntax-table) ?w)))
413 (setq i (1- i))) 413 (while (>= i 0)
414 tab) 414 (if (= (aref tab i) _) (aset tab i w))
415 (setq i (1- i))))
416 (map-syntax-table
417 #'(lambda (key val)
418 (if (eq (char-syntax-from-code val) ?_)
419 (put-char-table key (set-char-syntax-in-code val ?w) tab)
420 ))
421 tab))
422 tab)
423 (let* ((tab (copy-syntax-table mail-mode-header-syntax-table))
424 (i (1- (length tab)))
425 (_ (aref (standard-syntax-table) ?_))
426 (w (aref (standard-syntax-table) ?w)))
427 (while (>= i 0)
428 (if (= (aref tab i) _) (aset tab i w))
429 (setq i (1- i)))
430 tab))
415 "The syntax-table used for abbrev-expansion purposes; this is not actually 431 "The syntax-table used for abbrev-expansion purposes; this is not actually
416 made the current syntax table of the buffer, but simply controls the set of 432 made the current syntax table of the buffer, but simply controls the set of
417 characters which may be a part of the name of a mail-alias.") 433 characters which may be a part of the name of a mail-alias.")
418 434
419 435