# HG changeset patch # User Eli Zaretskii # Date 999876956 0 # Node ID 44a2e1c9db0c98c6d8f558be52b491bf86eccb35 # Parent a40d495520d29227e672d0d76a43443dd1a37faf (ispell-dictionary-alist-4): Add "german" and "german8", for the new German orthography dictionaries, (ispell-dictionary-alist-5, ispell-dictionary-alist-6): Rearrange the entries, to keep the line length balanced for loaddefs.el. diff -r a40d495520d2 -r 44a2e1c9db0c lisp/textmodes/ispell.el --- a/lisp/textmodes/ispell.el Fri Sep 07 13:33:09 2001 +0000 +++ b/lisp/textmodes/ispell.el Fri Sep 07 15:35:56 2001 +0000 @@ -564,35 +564,37 @@ "[A-Za-z\300\302\306\307\310\311\312\313\316\317\324\331\333\334\340\342\347\350\351\352\353\356\357\364\371\373\374\\]" "[^A-Za-z\300\302\306\307\310\311\312\313\316\317\324\331\333\334\340\342\347\350\351\352\353\356\357\364\371\373\374\\]" "[-'^`\"]" t nil "~tex" iso-8859-1) + ("german" ; german.aff + "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1) + ("german8" + "[a-zA-Z\304\326\334\344\366\337\374]" + "[^a-zA-Z\304\326\334\344\366\337\374]" + "[']" t ("-C" "-d" "german") "~latin1" iso-8859-1) ("italiano" ; Italian.aff "[A-Z\300\301\310\311\314\315\322\323\331\332a-z\340\341\350\351\354\355\363\371\372]" "[^A-Z\300\301\310\311\314\315\322\323\331\332a-z\340\341\350\351\354\355\363\371\372]" - "[-]" nil ("-B" "-d" "italian") "~tex" iso-8859-1) - ("nederlands" ; Nederlands.aff + "[-]" nil ("-B" "-d" "italian") "~tex" iso-8859-1))) + + +;;; Fifth part of dictionary, shortened for loaddefs.el +;;;###autoload +(setq + ispell-dictionary-alist-5 + '(("nederlands" ; Nederlands.aff "[A-Za-z\300-\305\307\310-\317\322-\326\331-\334\340-\345\347\350-\357\361\362-\366\371-\374]" "[^A-Za-z\300-\305\307\310-\317\322-\326\331-\334\340-\345\347\350-\357\361\362-\366\371-\374]" "[']" t ("-C") nil iso-8859-1) ("nederlands8" ; Dutch8.aff "[A-Za-z\300-\305\307\310-\317\322-\326\331-\334\340-\345\347\350-\357\361\362-\366\371-\374]" "[^A-Za-z\300-\305\307\310-\317\322-\326\331-\334\340-\345\347\350-\357\361\362-\366\371-\374]" - "[']" t ("-C") nil iso-8859-1))) - - -;;; Fifth part of dictionary, shortened for loaddefs.el -;;;###autoload -(setq - ispell-dictionary-alist-5 - '(("norsk" ; 8 bit Norwegian mode + "[']" t ("-C") nil iso-8859-1) + ("norsk" ; 8 bit Norwegian mode "[A-Za-z\305\306\307\310\311\322\324\330\345\346\347\350\351\362\364\370]" "[^A-Za-z\305\306\307\310\311\322\324\330\345\346\347\350\351\362\364\370]" "[\"]" nil ("-d" "norsk") "~list" iso-8859-1) ("norsk7-tex" ; 7 bit Norwegian TeX mode "[A-Za-z{}\\'^`]" "[^A-Za-z{}\\'^`]" - "[\"]" nil ("-d" "norsk") "~plaintex" iso-8859-1) - ("polish" ; polish mode - "[A-Za-z\241\243\246\254\257\261\263\266\274\277\306\312\321\323\346\352\361\363]" - "[^A-Za-z\241\243\246\254\257\261\263\266\274\277\306\312\321\323\346\352\361\363]" - "" nil ( "-d" "polish") nil iso-8859-2))) + "[\"]" nil ("-d" "norsk") "~plaintex" iso-8859-1))) ;;; Sixth part of dictionary, shortened for loaddefs.el @@ -601,7 +603,11 @@ ispell-dictionary-alist-6 ;; include Russian iso character set too? ;; "[']" t ("-d" "russian") "~latin1" iso-8859-1 - '(("russian" ; Russian.aff (KOI8-R charset) + '(("polish" ; polish mode + "[A-Za-z\241\243\246\254\257\261\263\266\274\277\306\312\321\323\346\352\361\363]" + "[^A-Za-z\241\243\246\254\257\261\263\266\274\277\306\312\321\323\346\352\361\363]" + "" nil ( "-d" "polish") nil iso-8859-2) + ("russian" ; Russian.aff (KOI8-R charset) "[\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]" "[^\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]" "" nil ("-d" "russian") nil koi8-r)