Mercurial > hg > xemacs-beta

comparison lisp/mule/latin.el @ 4490:67fbcaf3dbdc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
error-sequence -> invalid-sequence 2008-08-08 Aidan Kehoe <kehoea@parhasard.net> * unicode.el: * mule/mule-cmds.el: * mule/latin.el: * mule/cyrillic.el: Rework the various identifiers using error-sequence to use invalid-sequence instead.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 08 Aug 2008 21:17:08 +0200
parents b75b075a9041
children 1d74a1d115ee
comparison
equal deleted inserted replaced
4489:b75b075a9041 4490:67fbcaf3dbdc
955 ;; Language environments. 955 ;; Language environments.
956 (loop 956 (loop
957 for ((charset codesys default-input nice-charset-1 nice-charset-2 957 for ((charset codesys default-input nice-charset-1 nice-charset-2
958 ;; supported-langs is a list if the doc string is replaced 958 ;; supported-langs is a list if the doc string is replaced
959 ;; entirely 959 ;; entirely
960 supported-langs error-sequence-coding-system) 960 supported-langs invalid-sequence-coding-system)
961 langenvs) in 961 langenvs) in
962 '(((latin-iso8859-1 iso-8859-1 "latin-1-prefix" "Latin-1" "ISO-8859-1" 962 '(((latin-iso8859-1 iso-8859-1 "latin-1-prefix" "Latin-1" "ISO-8859-1"
963 " Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, 963 " Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
964 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish." 964 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish."
965 windows-1252) 965 windows-1252)
1023 nice-charset-1 1023 nice-charset-1
1024 `((charset ascii ,charset) 1024 `((charset ascii ,charset)
1025 (coding-system ,codesys) 1025 (coding-system ,codesys)
1026 (coding-priority ,codesys) 1026 (coding-priority ,codesys)
1027 (native-coding-system ,codesys) 1027 (native-coding-system ,codesys)
1028 (error-sequence-coding-system ,(or error-sequence-coding-system 1028 (invalid-sequence-coding-system ,(or invalid-sequence-coding-system
1029 codesys)) 1029 codesys))
1030 (documentation . ,(if (listp supported-langs) (car supported-langs) 1030 (documentation . ,(if (listp supported-langs) (car supported-langs)
1031 (format "\ 1031 (format "\
1032 Generic language environment for %s (%s)." nice-charset-1 nice-charset-2)))) 1032 Generic language environment for %s (%s)." nice-charset-1 nice-charset-2))))
1033 '("European")) 1033 '("European"))
1034 (loop for (name locale tutorial sample-text input-method) in langenvs 1034 (loop for (name locale tutorial sample-text input-method) in langenvs