Mercurial > emacs
comparison lisp/mail/mail-extr.el @ 92148:f991f10f15ec
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1074
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 24 Feb 2008 10:09:07 +0000 |
parents | 107ccd98fa12 86418444e2d1 |
children | 1e3a407766b9 |
comparison
equal
deleted
inserted
replaced
92147:773ae07da318 | 92148:f991f10f15ec |
---|---|
848 (narrow-to-region (point-min) (1+ (point))) | 848 (narrow-to-region (point-min) (1+ (point))) |
849 (delete-char 1) | 849 (delete-char 1) |
850 (setq char ?\() ; HAVE I NO SHAME?? | 850 (setq char ?\() ; HAVE I NO SHAME?? |
851 ) | 851 ) |
852 ;; record the position of various interesting chars, determine | 852 ;; record the position of various interesting chars, determine |
853 ;; legality later. | 853 ;; validity later. |
854 ((setq record-pos-symbol | 854 ((setq record-pos-symbol |
855 (cdr (assq char | 855 (cdr (assq char |
856 '((?< . <-pos) (?> . >-pos) (?@ . @-pos) | 856 '((?< . <-pos) (?> . >-pos) (?@ . @-pos) |
857 (?: . colon-pos) (?, . comma-pos) (?! . !-pos) | 857 (?: . colon-pos) (?, . comma-pos) (?! . !-pos) |
858 (?% . %-pos) (?\; . \;-pos))))) | 858 (?% . %-pos) (?\; . \;-pos))))) |
860 (cons (point) (symbol-value record-pos-symbol))) | 860 (cons (point) (symbol-value record-pos-symbol))) |
861 (forward-char 1)) | 861 (forward-char 1)) |
862 ((eq char ?.) | 862 ((eq char ?.) |
863 (forward-char 1)) | 863 (forward-char 1)) |
864 ((memq char '( | 864 ((memq char '( |
865 ;; comment terminator illegal | 865 ;; comment terminator invalid |
866 ?\) | 866 ?\) |
867 ;; domain literal terminator illegal | 867 ;; domain literal terminator invalid |
868 ?\] | 868 ?\] |
869 ;; \ allowed only within quoted strings, | 869 ;; \ allowed only within quoted strings, |
870 ;; domain literals, and comments | 870 ;; domain literals, and comments |
871 ?\\ | 871 ?\\ |
872 )) | 872 )) |