;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:07 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/iso-acc.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\301\303\304\305\306\307\310&\210\311\312\313\314\315\316\307\301&\207" [provide iso-acc custom-declare-group nil "Minor mode providing electric accent keys." :prefix "iso-accents-" :group i18n custom-declare-variable iso-accents-insert-offset nonascii-insert-offset "Offset added by ISO Accents mode to character codes 0200 and above." :type integer] 8)
#@595 List of language-specific customizations for the ISO Accents mode.

Each element of the list is of the form

    (LANGUAGE [CHARSET]
     (PSEUDO-ACCENT MAPPINGS)
     (PSEUDO-ACCENT MAPPINGS)
     ...)

LANGUAGE is a string naming the language.
CHARSET (which may be omitted) is the symbol name
 of the character set used in this language.
 If CHARSET is omitted, latin-iso8859-1 is the default.
PSEUDO-ACCENT is a char specifying an accent key.
MAPPINGS are cons cells of the form (CHAR . ISO-CHAR).

The net effect is that the key sequence PSEUDO-ACCENT CHAR is mapped
to ISO-CHAR on input.
(defvar iso-languages '(("catalan" (39 (65 . 193) (69 . 201) (73 . 205) (79 . 211) (85 . 218) (97 . 225) (101 . 233) (105 . 237) (111 . 243) (117 . 250) (32 . 39)) (96 (65 . 192) (69 . 200) (79 . 210) (97 . 224) (101 . 232) (111 . 242) (32 . 96)) (34 (73 . 207) (85 . 220) (105 . 239) (117 . 252) (32 . 34)) (126 (67 . 199) (78 . 209) (99 . 231) (110 . 241) (62 . 187) (60 . 171) (33 . 161) (63 . 191) (32 . 126))) ("esperanto" (94 (72 . 166) (74 . 172) (104 . 182) (106 . 188) (67 . 198) (71 . 216) (83 . 222) (99 . 230) (103 . 248) (115 . 254) (94 . 94) (32 . 94)) (126 (85 . 221) (117 . 253) (32 . 126))) ("french" (39 (69 . 201) (67 . 199) (101 . 233) (99 . 231) (32 . 39)) (96 (65 . 192) (69 . 200) (85 . 217) (97 . 224) (101 . 232) (117 . 249) (32 . 96)) (94 (65 . 194) (69 . 202) (73 . 206) (79 . 212) (85 . 219) (97 . 226) (101 . 234) (105 . 238) (111 . 244) (117 . 251) (32 . 94)) (34 (69 . 203) (73 . 207) (101 . 235) (105 . 239) (32 . 34)) (126 (60 . 171) (62 . 187) (67 . 199) (99 . 231) (32 . 126)) (44 (67 . 199) (99 . 231) (32 . 44))) ("german" (34 (65 . 196) (79 . 214) (85 . 220) (97 . 228) (111 . 246) (117 . 252) (115 . 223) (32 . 34))) ("irish" (39 (65 . 193) (69 . 201) (73 . 205) (79 . 211) (85 . 218) (97 . 225) (101 . 233) (105 . 237) (111 . 243) (117 . 250) (32 . 39))) ("portuguese" (39 (65 . 193) (69 . 201) (73 . 205) (79 . 211) (85 . 218) (67 . 199) (97 . 225) (101 . 233) (105 . 237) (111 . 243) (117 . 250) (99 . 231) (32 . 39)) (96 (65 . 192) (97 . 224) (32 . 96)) (94 (65 . 194) (69 . 202) (79 . 212) (97 . 226) (101 . 234) (111 . 244) (32 . 94)) (34 (85 . 220) (117 . 252) (32 . 34)) (126 (65 . 195) (79 . 213) (97 . 227) (111 . 245) (67 . 199) (78 . 209) (99 . 231) (110 . 241) (32 . 126)) (44 (99 . 231) (67 . 199) (44 . 44))) ("spanish" (39 (65 . 193) (69 . 201) (73 . 205) (79 . 211) (85 . 218) (97 . 225) (101 . 233) (105 . 237) (111 . 243) (117 . 250) (32 . 39)) (34 (85 . 220) (117 . 252) (32 . 34)) (126 (78 . 209) (110 . 241) (62 . 187) (60 . 171) (33 . 161) (63 . 191) (32 . 126))) ("latin-1" (39 (65 . 193) (69 . 201) (73 . 205) (79 . 211) (85 . 218) (89 . 221) (97 . 225) (101 . 233) (105 . 237) (111 . 243) (117 . 250) (121 . 253) (39 . 180) (32 . 39)) (96 (65 . 192) (69 . 200) (73 . 204) (79 . 210) (85 . 217) (97 . 224) (101 . 232) (105 . 236) (111 . 242) (117 . 249) (96 . 96) (32 . 96)) (94 (65 . 194) (69 . 202) (73 . 206) (79 . 212) (85 . 219) (97 . 226) (101 . 234) (105 . 238) (111 . 244) (117 . 251) (94 . 94) (32 . 94)) (34 (65 . 196) (69 . 203) (73 . 207) (79 . 214) (85 . 220) (97 . 228) (101 . 235) (105 . 239) (111 . 246) (115 . 223) (117 . 252) (121 . 255) (34 . 168) (32 . 34)) (126 (65 . 195) (67 . 199) (68 . 208) (78 . 209) (79 . 213) (84 . 222) (97 . 227) (99 . 231) (100 . 240) (110 . 241) (111 . 245) (116 . 254) (62 . 187) (60 . 171) (33 . 161) (63 . 191) (126 . 184) (32 . 126)) (47 (65 . 197) (69 . 198) (79 . 216) (97 . 229) (101 . 230) (111 . 248) (47 . 176) (32 . 47))) ("latin-2" latin-iso8859-2 (39 (65 . 193) (67 . 198) (68 . 208) (69 . 201) (73 . 205) (76 . 197) (78 . 209) (79 . 211) (82 . 192) (83 . 166) (85 . 218) (89 . 221) (90 . 172) (97 . 225) (99 . 230) (100 . 240) (101 . 233) (105 . 237) (108 . 229) (110 . 241) (111 . 243) (114 . 224) (115 . 182) (117 . 250) (121 . 253) (122 . 188) (39 . 180) (32 . 39)) (96 (65 . 161) (67 . 199) (69 . 202) (76 . 163) (83 . 170) (84 . 222) (90 . 175) (97 . 177) (108 . 179) (99 . 231) (101 . 234) (115 . 186) (116 . 254) (122 . 191) (96 . 170) (46 . 255) (32 . 96)) (94 (65 . 194) (73 . 206) (79 . 212) (97 . 226) (105 . 238) (111 . 244) (94 . 94) (32 . 94)) (34 (65 . 196) (69 . 203) (79 . 214) (85 . 220) (97 . 228) (101 . 235) (111 . 246) (115 . 223) (117 . 252) (34 . 168) (32 . 34)) (126 (65 . 195) (67 . 200) (68 . 207) (76 . 165) (78 . 210) (79 . 213) (82 . 216) (83 . 169) (84 . 171) (85 . 219) (90 . 174) (97 . 227) (99 . 232) (100 . 239) (108 . 181) (110 . 242) (111 . 245) (114 . 248) (115 . 185) (116 . 187) (117 . 251) (122 . 190) (118 . 162) (126 . 162) (46 . 184) (32 . 126))) ("latin-3" latin-iso8859-3 (39 (65 . 193) (69 . 201) (73 . 205) (79 . 211) (85 . 218) (97 . 225) (101 . 233) (105 . 237) (111 . 243) (117 . 250) (39 . 180) (32 . 39)) (96 (65 . 192) (69 . 200) (73 . 204) (79 . 210) (85 . 217) (97 . 224) (101 . 232) (105 . 236) (111 . 242) (117 . 249) (96 . 96) (32 . 96)) (94 (65 . 194) (67 . 198) (69 . 202) (71 . 216) (72 . 166) (73 . 206) (74 . 172) (79 . 212) (83 . 222) (85 . 219) (97 . 226) (99 . 230) (101 . 234) (103 . 248) (104 . 182) (105 . 238) (106 . 188) (111 . 244) (115 . 254) (117 . 251) (94 . 94) (32 . 94)) (34 (65 . 196) (69 . 203) (73 . 207) (79 . 214) (85 . 220) (97 . 228) (101 . 235) (105 . 239) (111 . 246) (117 . 252) (115 . 223) (34 . 168) (32 . 34)) (126 (65 . 195) (67 . 199) (68 . 208) (78 . 209) (79 . 213) (97 . 227) (99 . 231) (100 . 240) (110 . 241) (111 . 245) (36 . 165) (83 . 170) (115 . 186) (71 . 171) (103 . 187) (85 . 221) (117 . 253) (96 . 162) (126 . 184) (32 . 126)) (47 (67 . 197) (71 . 213) (72 . 161) (73 . 169) (90 . 175) (99 . 229) (103 . 245) (104 . 177) (105 . 185) (122 . 191) (114 . 174) (46 . 255) (35 . 163) (36 . 164) (47 . 176) (32 . 47)) (46 (67 . 197) (71 . 213) (73 . 169) (90 . 175) (99 . 229) (103 . 245) (122 . 191)))) (#$ . 946))
#@115 Language for which ISO Accents mode is currently customized.
Change it with the `iso-accents-customize' function.
(defvar iso-language nil (#$ . 6792))
#@72 Association list for ISO accent combinations, for the chosen language.
(defvar iso-accents-list nil (#$ . 6950))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\301!\210\300\311\312\313\304\314\306\307&\207" [custom-declare-variable iso-accents-mode nil "Non-nil enables ISO Accents mode.\nSetting this variable makes it local to the current buffer.\nSee the function `iso-accents-mode'." :type boolean :group iso-acc make-variable-buffer-local iso-accents-enable '(39 96 94 34 126 47) "List of accent keys that become prefixes in ISO Accents mode.\nThe default is (?' ?` ?^ ?\" ?~ ?/), which contains all the supported\naccent keys.  If you set this variable to a list in which some of those\ncharacters are missing, the missing ones do not act as accents.\n\nNote that if you specify a language with `iso-accents-customize',\nthat can also turn off certain prefixes (whichever ones are not needed in\nthe language you choose)." (repeat character)] 8)
#@59 Modify the following character by adding an accent to it.
(defalias 'iso-accents-accent-key #[(prompt) "\203	\n>\203\304!\207\305	!\207" [iso-accents-mode last-input-event iso-accents-enable prompt iso-accents-compose vector] 2 (#$ . 7917)])
(defalias 'iso-accents-compose #[(prompt) "\211\n\236\f\204\306\307!\310=\203\311 G\312V\204
\203-\313\314\f\206%\315	#\210\316 \202<	c\210\316 `S`|\210\317\320 !\210\211\236A\211\203c\321\203]\322Y\203]\\\202_!\202mB\321	!,\207" [last-input-event first-char iso-accents-list list prompt this-command key-binding "a" self-insert-command this-single-command-keys 1 message "%s%c" "Compose with " read-event force-window-update selected-window vector 128 second-char entry enable-multibyte-characters iso-accents-insert-offset unread-command-events] 5])
#@835 Toggle ISO Accents mode, in which accents modify the following letter.
This permits easy insertion of accented characters according to ISO-8859-1.
When Iso-accents mode is enabled, accent character keys
(`, ', ", ^, / and ~) do not self-insert; instead, they modify the following
letter key so that it inserts an ISO accented letter.

You can customize ISO Accents mode to a particular language
with the command `iso-accents-customize'.

Special combinations: ~c gives a c with cedilla,
~d gives an Icelandic eth (d with dash).
~t gives an Icelandic thorn.
"s gives German sharp s.
/a gives a with ring.
/e gives an a-e ligature.
~< and ~> give guillemots.
~! gives an inverted exclamation mark.
~? gives an inverted question mark.

With an argument, a positive argument enables ISO Accents mode,
and a negative argument disables it.
(defalias 'iso-accents-mode #[(&optional arg) "\203\f\302!\303X\202
	\203\304\211\207\305\211\207" [arg iso-accents-mode prefix-numeric-value 0 nil t] 2 (#$ . 8762) "P"])
#@154 Customize the ISO accents machinery for a particular language.
It selects the customization based on the specifications in the
`iso-languages' variable.
(defalias 'iso-accents-customize #[(language) "\306	\"A\307\211\211\204\310\311\"\202b\312\f@9\203!\f@\202\"\313!\314Z\f@9\203/\fA\f\203D\315\316\307#\210\202H\317 \211\205b\320\321\n@@!\316#\210\nA\211\204O\307+\207" [language iso-languages tail all-accents table iso-accents-insert-offset assoc nil error "Unknown language `%s'" make-char latin-iso8859-1 128 substitute-key-definition iso-accents-accent-key make-sparse-keymap define-key vector iso-language iso-accents-list key-translation-map] 5 (#$ . 9782) (list (completing-read "Language: " iso-languages nil t))])
#@198 Convert two-character sequences in region into accented characters.
Noninteractively, this operates on text from START to END.
This uses the same conversion that ISO Accents mode uses for type-in.
(defalias 'iso-accentuate #[(start end) "\212\214	}\210b\210\305u\210\306`	W\205;h>\2035gh\f\236\236A\211\2035\307u\210\310\311!\210\nc\210	S\202\305u\210\202+\207" [start end entry iso-accents-enable iso-accents-list 1 nil -1 delete-char 2] 3 (#$ . 10548) "r"])
(defalias 'iso-accent-rassoc-unit #[(value alist) "\304\211\n\203	\204\n@@\305\n@A\"@\nA\211\204	\205&	B*\207" [acc elt alist value nil rassq] 4])
#@211 Convert accented characters in the region into two-character sequences.
Noninteractively, this operates on text from START to END.
This uses the opposite of the conversion done by ISO Accents mode for type-in.
(defalias 'iso-unaccentuate #[(start end) "\212\214	}\210b\210\304`	W\2057g\305V\2031\306g\"\211\2031\307\310!\210\n@\nA\261\210	T\202\310u\210\202+\207" [start end entry iso-accents-list nil 127 iso-accent-rassoc-unit delete-char 1] 3 (#$ . 11189) "r"])
#@130 Convert accented characters in the region into unaccented characters.
Noninteractively, this operates on text from START to END.
(defalias 'iso-deaccentuate #[(start end) "\212\214	}\210b\210\304`	W\2051g\305V\203+\306g\"\211\203+\307\310!\210\nAc\210\202\310u\210\202+\207" [start end entry iso-accents-list nil 127 iso-accent-rassoc-unit delete-char 1] 3 (#$ . 11675) "r"])
(iso-accents-customize "latin-1")
(defalias 'iso-acc-minibuf-setup #[nil "r\302!q\210	)\211\207" [minibuffer-scroll-window iso-accents-mode window-buffer] 2])
(add-hook 'minibuffer-setup-hook 'iso-acc-minibuf-setup)