;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 02:09:39 1993 ;;; from file /th/jwz/emacs19/lisp/x11/x-compose.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "ÀÁ!ˆÂÃ!¬ƒÄ ÂÅ!¬ƒÆ ÂÇ!¬„Æ ÂÈ!¬„Æ ÂÉ!¬„Æ  ÂÊ!¬„Æ \nÂË!¬„Æ  ÂÌ!¬„Æ  ÍÎ \"ˆÏÑÎ#ˆÏÒ #ˆÏÓ#ˆÏÔ #ˆÏÕ #ˆÏ Ö #ˆÏ ×#ˆÏ Ø #ˆÏ Ù #ˆÏ Ú #ˆÏ Û#ˆÏ Ü#ˆÏ Ý #ˆÏ Þ\n#ˆÏ ß #ˆÏ à #ˆáâ!«ØÏã #ˆÏ ä #ˆÏå#ˆÏ æ#ˆÏç#ˆÏ è#ˆÏé #ˆÏ ê #ˆÏë\n#ˆÏ ì\n#ˆÏí #ˆÏ î #ˆáï!«­Ïð#ˆÏ ñ#ˆÏò\n#ˆÏ ó\n#ˆÏô #ˆÏ õ #ˆáö!«ÞÏ÷ #ˆÏ ø #ˆÏù#ˆÏ ú#ˆÏû#ˆÏ ü#ˆÏý #ˆÏ þ #ˆÏÿ\n#ˆÏ @\n#ˆÏA #ˆÏ B #ˆáC!«ðÏD #ˆÏ E #ˆÏF#ˆÏ G#ˆÏH#ˆÏ I#ˆÏJ\n#ˆÏ K\n#ˆÏL #ˆÏ M #ˆÏN #ˆÏ O #ˆáP!«ðÏQ #ˆÏ R #ˆÏS#ˆÏ T#ˆÏU#ˆÏ V#ˆÏW\n#ˆÏ X\n#ˆÏY #ˆÏ Z #ˆÏ[ #ˆÏ \\ #ˆá]!«ÝÏ^ #ˆÏ _ #ˆÏ`#ˆÏ a#ˆÏb #ˆÏ c #ˆÏd\n#ˆÏ e\n#ˆÏf #ˆÏ g #ˆáh!«ÝÏi #ˆÏ j #ˆÏk#ˆÏ l#ˆÏm #ˆÏ n #ˆÏo\n#ˆÏ p\n#ˆÏq #ˆÏ r #ˆás!«ÝÏt #ˆÏ u #ˆÏv#ˆÏ w#ˆÏx #ˆÏ y #ˆÏz\n#ˆÏ {\n#ˆÏ| #ˆÏ } #ˆ~ Å\"ˆÏ Ú#ˆÏ Ú€#ˆÏ ‚#ˆÏ ƒ„#ˆÏ …†#ˆÏ ‡ˆ#ˆÏ ‰Š#ˆÏ ‹Œ#ˆÏ Ž#ˆÏ #ˆÏ ‘’#ˆÏ “”#ˆÏ •–#ˆÏ —˜#ˆ~Ç\"ˆÏ™#ˆÏš#ˆÏƒ›#ˆÏ…œ#ˆÏ‡#ˆÏ‰ž#ˆÏŸ#ˆÏ #ˆÏ‘¡#ˆÏ“¢#ˆÏ•£#ˆ~È\"ˆÏܤ#ˆÏ¥¦#ˆÏ§¨#ˆ~ É\"ˆÏ ©#ˆÏ ݪ#ˆÏ «#ˆÏ ƒ¬#ˆÏ …­#ˆÏ ‡®#ˆÏ ‰¯#ˆÏ °#ˆÏ ±#ˆÏ ‘²#ˆÏ “³#ˆÏ •´#ˆÏ —µ#ˆ~\nÊ\"ˆÏ\nÞ#ˆÏ\n¶·#ˆÏ\n¸¹#ˆÏ\nº»#ˆÏ\n¼½#ˆÏ\n¾¿#ˆÏ\nÀÁ#ˆÏ\nÂÃ#ˆÏ\nÄÅ#ˆÏ\nÆÇ#ˆÏ\nÈ#ˆÏ\nƒÉ#ˆÏ\n…Ê#ˆÏ\n‡Ë#ˆÏ\n‰Ì#ˆÏ\nÍ#ˆÏ\nÎ#ˆÏ\n‘Ï#ˆÏ\n“Ð#ˆÏ\n•Ñ#ˆ~ Ë\"ˆÏ ß#ˆÏ Ò#ˆÏ ÓÔ#ˆÏ ‡Õ#ˆÏ Ö#ˆÏ ×Ø#ˆÏ “Ù#ˆ~ Ì\"ˆÏ Ú#ˆÏ Û#ˆÏ Ü#ˆ~ Ã\"ˆÏ ÝÚ#ˆÏ ÞÞ#ˆÏ ßÛ#ˆÏ àß#ˆÏ áâ#ˆÏ ãä#ˆÏ åæ#ˆÏ çè#ˆÏ éê#ˆÏ ëì#ˆÏ íî#ˆÏ ïð#ˆÏ ñò#ˆÏ óô#ˆÏ õö#ˆÏ ÷ø#ˆÏ ùú#ˆÏ ûü#ˆÏ ýþ#ˆÏ ÿö#ˆÏ ú#ˆÏ º#ˆÏ #ˆÏ #ˆÏ #ˆÏ  #ˆÏ \n #ˆÏ  #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ ·#ˆÏ !#ˆÏ \"##ˆÏ $%#ˆÏ &'#ˆÏ ()#ˆÏ *+#ˆÏ ,-#ˆÏ ./#ˆÏ 01#ˆÏ 23#ˆÏ 45#ˆÏ 67#ˆÏ 89#ˆÏ :;#ˆÏ <=#ˆÏ >?#ˆÏ @A#ˆÏ BC#ˆÏ DE#ˆÏ FG#ˆÏ HI#ˆÏ JK#ˆÏ L#ˆÏ MN#ˆÏ OP#ˆÏ QR#ˆÏ ST#ˆÏ UV#ˆÏ WX#ˆÏ YZ#ˆÏ [\\#ˆÏ ]\\#ˆÏ ^_#ˆÏ `a#ˆÏ bc#ˆÏ de#ˆÏ fg#ˆÏ hi#ˆÏ jk#ˆÏ lm#ˆÏ no#ˆÏ pq#ˆÏ rs#ˆÏ tu#ˆÏ vw#ˆÏ xy#ˆÏ z{#ˆÏ |}#ˆÏ ~#ˆÏ €#ˆÏ ‚ƒ#ˆÏ „…#ˆÏ †‡#ˆÏ ˆ‰#ˆÏ Š‹#ˆÏ Œ#ˆÏ Ž#ˆÏ ‘#ˆÏ ’“#ˆÏ ”•#ˆÏ –—#ˆÏ ˜™#ˆÏ š›#ˆÏ œ#ˆÏ žŸ#ˆÏ  ¡#ˆÏ ¢£#ˆÏ ¤¥#ˆÏ ¦§#ˆÏ ¨©#ˆÏ ª«#ˆÏ ¬­#ˆÏ ®¯#ˆÏ °±#ˆÏ ²³#ˆÏ ´µ#ˆÏ ¶·#ˆÏ ¸¹#ˆÏ º»#ˆÏ ¼½#ˆÏ ¾¿#ˆÏ ÀÁ#ˆÏ ÂÃ#ˆÏ ÄÅ#ˆÏ ÆÇ#ˆÏ ÈÉ#ˆÏ ÊË#ˆÏ ÌÍ#ˆÏ ÎÏ#ˆÏ ÐÑ#ˆÏ ÒÓ#ˆÏ ÔÕ#ˆÏ Ö×#ˆÏ ØÙ#ˆÏ ÚÛ#ˆÏ ÜÝ#ˆÏ Þß#ˆÏ àá#ˆÏ â\\#ˆÏ ã\\#ˆÏ äå#ˆÏ æç#ˆÏ èé#ˆÏ êë#ˆÏ ìí#ˆÏ îï#ˆÏ ðñ#ˆÏ òó#ˆÏ ôõ#ˆÏ ö÷#ˆÏ øù#ˆÏ úû#ˆÏ üý#ˆÏ þÿ#ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ  #ˆÏ \n #ˆÏ  #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ #ˆÏ !#ˆÏ \"##ˆÏ $%#ˆÏ &'#ˆÏ ()#ˆÏ *+#ˆÏ ,-#ˆÏ ./#ˆÏ 01#ˆÏ 23#ˆÏ 45#ˆÏ 67#ˆÏ 89#ˆÏ :;#ˆÏ <=#ˆÏ >?#ˆÏ @A#ˆÏ BC#ˆÏ DE#ˆÏ FG#ˆÏ HI#ˆÏ JK#ˆÏ LM#ˆÏ NO#ˆÏ PQ#ˆÏ RS#ˆÏ TU#ˆÏ VW#ˆÏ XY#ˆÏ Z[#ˆÏ \\]#ˆÏ ^_#ˆÏ `a#ˆÏ bc#ˆÏ de#ˆÏ fg#ˆÏ hi#ˆÏ jk#‡" [require x-iso8859-1 boundp compose-map make-keymap compose-acute-map make-sparse-keymap compose-grave-map compose-cedilla-map compose-diaeresis-map compose-circumflex-map compose-tilde-map compose-ring-map define-function compose-key define-key global-map [multi_key] [acute] [cedilla] [diaeresis] [degree] [acute] [cedilla] [diaeresis] [degree] "'" "`" "," "\"" "^" "~" "*" x-valid-keysym-name-p "SunFA_Acute" [SunFA_Acute] [SunFA_Acute] [SunFA_Grave] [SunFA_Grave] [SunFA_Cedilla] [SunFA_Cedilla] [SunFA_Diaeresis] [SunFA_Diaeresis] [SunFA_Circum] [SunFA_Circum] [SunFA_Tilde] [SunFA_Tilde] "Dead_Grave" [Dead_Grave] [Dead_Grave] [Dead_Circum] [Dead_Circum] [Dead_Tilde] [Dead_Tilde] "SunXK_FA_Acute" [SunXK_FA_Acute] [SunXK_FA_Acute] [SunXK_FA_Grave] [SunXK_FA_Grave] [SunXK_FA_Cedilla] [SunXK_FA_Cedilla] [SunXK_FA_Diaeresis] [SunXK_FA_Diaeresis] [SunXK_FA_Circum] [SunXK_FA_Circum] [SunXK_FA_Tilde] [SunXK_FA_Tilde] "Dacute_accent" [Dacute_accent] [Dacute_accent] [Dgrave_accent] [Dgrave_accent] [Dcedilla_accent] [Dcedilla_accent] [Dcircumflex_accent] [Dcircumflex_accent] [Dtilde] [Dtilde] [Dring_accent] [Dring_accent] "DXK_acute_accent" [DXK_acute_accent] [DXK_acute_accent] [DXK_grave_accent] [DXK_grave_accent] [DXK_cedilla_accent] [DXK_cedilla_accent] [DXK_circumflex_accent] [DXK_circumflex_accent] [DXK_tilde] [DXK_tilde] [DXK_ring_accent] [DXK_ring_accent] "hpmute_acute" [hpmute_acute] [hpmute_acute] [hpmute_grave] [hpmute_grave] [hpmute_diaeresis] [hpmute_diaeresis] [hpmute_asciicircum] [hpmute_asciicircum] [hpmute_asciitilde] [hpmute_asciitilde] "hpXK_mute_acute" [hpXK_mute_acute] [hpXK_mute_acute] [hpXK_mute_grave] [hpXK_mute_grave] [hpXK_mute_diaeresis] [hpXK_mute_diaeresis] [hpXK_mute_asciicircum] [hpXK_mute_asciicircum] [hpXK_mute_asciitilde] [hpXK_mute_asciitilde] "XK_mute_acute" [XK_mute_acute] [XK_mute_acute] [XK_mute_grave] [XK_mute_grave] [XK_mute_diaeresis] [XK_mute_diaeresis] [XK_mute_asciicircum] [XK_mute_asciicircum] [XK_mute_asciitilde] [XK_mute_asciitilde] set-keymap-name " " [acute] "A" [Aacute] "E" [Eacute] "I" [Iacute] "O" [Oacute] "U" [Uacute] "Y" [Yacute] "a" [aacute] "e" [eacute] "i" [iacute] "o" [oacute] "u" [uacute] "y" [yacute] [grave] [Agrave] [Egrave] [Igrave] [Ograve] [Ugrave] [agrave] [egrave] [igrave] [ograve] [ugrave] [cedilla] "C" [Ccedilla] "c" [ccedilla] [diaeresis] [diaeresis] [Adiaeresis] [Ediaeresis] [Idiaeresis] [Odiaeresis] [Udiaeresis] [adiaeresis] [ediaeresis] [idiaeresis] [odiaeresis] [udiaeresis] [ydiaeresis] "/" "|" "!" [brokenbar] "-" [macron] "_" [macron] "0" [degree] "1" [onesuperior] "2" [twosuperior] "3" [threesuperior] "." [periodcentered] [Acircumflex] [Ecircumflex] [Icircumflex] [Ocircumflex] [Ucircumflex] [acircumflex] [ecircumflex] [icircumflex] [ocircumflex] [ucircumflex] [Atilde] "N" [Ntilde] [Otilde] [atilde] "n" [ntilde] [otilde] [degree] [Aring] [aring] " '" " ^" " `" " ~" " " [nobreakspace] " \"" [diaeresis] " *" [degree] "!!" [exclamdown] "!^" [brokenbar] "!S" [section] "!s" [section] "!P" [paragraph] "!p" [paragraph] "((" "[" "(-" "{" "))" "]" ")-" "}" "++" "#" "+-" [plusminus] "-(" "-)" "--" "-L" [sterling] "-l" [sterling] "-Y" [yen] "-y" [yen] "-," [notsign] "-|" [notsign] "-^" [macron] "-+" [plusminus] "-:" [division] "-D" [ETH] "-d" [eth] "-a" [ordfeminine] ".^" [periodcentered] "//" "\\" "/<" "/^" "/C" [cent] "/c" [cent] "/U" [mu] "/u" [mu] "/O" [Ooblique] "/o" [oslash] "0X" [currency] "0x" [currency] "0S" [section] "0s" [section] "0C" [copyright] "0c" [copyright] "0R" [registered] "0r" [registered] "0^" [degree] "1^" [onesuperior] "14" [onequarter] "12" [onehalf] "2^" [twosuperior] "3^" [threesuperior] "34" [threequarters] ":-" [division] ">" [guillemotright] "??" [questiondown] "AA" "@" "Aa" "A_" [ordfeminine] "A`" [Agrave] "A'" [Aacute] "A^" [Acircumflex] "A~" [Atilde] "A\"" [Adiaeresis] "A*" [Aring] "AE" [AE] "C/" [cent] "C|" [cent] "C0" [copyright] "CO" [copyright] "Co" [copyright] "C," [Ccedilla] "D-" [ETH] "E`" [Egrave] "E'" [Eacute] "E^" [Ecircumflex] "E\"" [Ediaeresis] "I`" [Igrave] "I'" [Iacute] "I^" [Icircumflex] "I\"" [Idiaeresis] "L-" [sterling] "L=" [sterling] "N~" [Ntilde] "OX" [currency] "Ox" [currency] "OS" [section] "Os" [section] "OC" [copyright] "Oc" [copyright] "OR" [registered] "Or" [registered] "O_" [masculine] "O`" [Ograve] "O'" [Oacute] "O^" [Ocircumflex] "O~" [Otilde] "O\"" [Odiaeresis] "O/" [Ooblique] "P!" [paragraph] "R0" [registered] "RO" [registered] "Ro" [registered] "S!" [section] "S0" [section] "SO" [section] "So" [section] "SS" [ssharp] "TH" [THORN] "U`" [Ugrave] "U'" [Uacute] "U^" [Ucircumflex] "U\"" [Udiaeresis] "X0" [currency] "XO" [currency] "Xo" [currency] "Y-" [yen] "Y=" [yen] "Y'" [Yacute] "_A" [ordfeminine] "_a" [ordfeminine] "_^" [macron] "_O" [masculine] "_o" [masculine] "aA" "aa" "a_" [ordfeminine] "a-" [ordfeminine] "a`" [agrave] "a'" [aacute] "a^" [acircumflex] "a~" [atilde] "a\"" [adiaeresis] "a*" [aring] "ae" [ae] "c/" [cent] "c|" [cent] "c0" [copyright] "cO" [copyright] "co" [copyright] "c," [ccedilla] "d-" [eth] "e`" [egrave] "e'" [eacute] "e^" [ecircumflex] "e\"" [ediaeresis] "i`" [igrave] "i'" [iacute] "i^" [icircumflex] "i\"" [idiaeresis] "l-" [sterling] "l=" [sterling] "n~" [ntilde] "oX" [currency] "ox" [currency] "oC" [copyright] "oc" [copyright] "oR" [registered] "or" [registered] "oS" [section] "os" [section] "o_" [masculine] "o`" [ograve] "o'" [oacute] "o^" [ocircumflex] "o~" [otilde] "o\"" [odiaeresis] "o/" [oslash] "p!" [paragraph] "r0" [registered] "rO" [registered] "ro" [registered] "s!" [section] "s0" [section] "sO" [section] "so" [section] "ss" [ssharp] "th" [thorn] "u`" [ugrave] "u'" [uacute] "u^" [ucircumflex] "u\"" [udiaeresis] "u/" [mu] "x0" [currency] "xO" [currency] "xo" [currency] "xx" [multiply] "y-" [yen] "y=" [yen] "y'" [yacute] "y\"" [ydiaeresis] "|C" [cent] "|c" [cent] "||" [brokenbar]] 4) (fset 'electric-diacritic #[(&optional count) "¬‚Á\nÃ=¬„Ã!‡Ã!ˆÄ ˆÅ[!ˆ‰È=«„ ªÂÊ=«„ ª¸Ì=«„ ª®Î=«„ª¤Ð=«„ªšÒ=«„ªÔ=«„ª†Ö׉#h‰—ÚY­—ÛX­‰ÜÝÁ\"\"ß!«GÁU«†àH«9«‹!N®‚«‹àV«†Åâ!ˆª„àV­ŠcˆS‰ªr,‡" [count 1 last-command self-insert-command undo-boundary delete-char last-command-char c 39 compose-acute-map 96 compose-grave-map 44 compose-cedilla-map 58 compose-diaeresis-map 94 compose-circumflex-map 126 compose-tilde-map 46 compose-ring-map error "unknown diacritic: %s (%c)" map base-char 97 122 lookup-key make-string mod-char vectorp 0 character-set-property -1] 6 "\ Modify the previous character with an accent. For example, if `:' is bound to this command, then typing `a:' will first insert `a' and then turn it into `ä' (adiaeresis.) The keys to which this command may be bound (and the accents which it understands) are: ' (acute) ÁÉÍÓÚÝ áéíóúý ` (grave) ÀÈÌÒÙ àèìòù : (diaeresis) ÄËÏÖÜ äëïöüÿ ^ (circumflex) ÂÊÎÔÛ âêîôû , (cedilla) Çç . (ring) Åå" "p"]) (byte-code "ÀÁMˆÂÀÃÄ#ˆÅÆMˆÇÉÀ#ˆÇÊÀ#ˆËÌÍ#ˆÎÏ!Ð>«…ÑÏÒ\"ˆÓÔ!‡" [compose-help #[nil "ÀÁÂà Ä\"ŸAŸ\"Æ !®‡ÇÈÉà \"!\nÄ ÌÌqˆÍ ˆÎÏ!ˆÐÒcˆÓ !cˆÔcˆÕÖ\n×#ˆÎØ!‘ˆÄÚ Û\nÁ!\"\nÜ\n!¬l\n«†Ý\n!ª…‰,‡" [apply vector append this-command-keys nil keys key-binding error format "can't find map? %s" map old-ctl-arrow "*Help*" erase-buffer message "Working..." compose ctl-arrow "You are typing a compose sequence. So far you have typed: " key-description "\nCompletions from here are:\n\n" map-keymap compose-help-mapper t "? " event next-command-event lookup-key keymapp command-execute unread-command-event] 5 nil nil] put isearch-command t compose-help-mapper #[(key binding) "9«‰ N«„ N\nÃ=?…›Ä\n!«ª`ÆÇ\nÈ#ˆ bˆm¬™§«ˆÉÊ\"cˆª…Ë!cˆÌcˆÊyˆªd)ªÖ§«ˆÉÊ\"cˆª…Ë!cˆÍjˆÎ\n!­‹\nGÊU­…\nÏH N‰«‰ÉÊ\"cˆªŽ\n;«…\ncˆª…Ñ\n!cˆ)Î\n!«\nGÊU«ŠÒjˆÓ\nÏH!cˆÔc‡" [key character-set-property binding compose-help keymapp p map-keymap compose-help-mapper t make-string 1 single-key-description " " 16 vectorp 0 code prin1-to-string 32 symbol-name "\n"] 5] define-key compose-map (control h) help map-keymap #[(key binding) "À !­‹Â ÃÄ#ˆÂ ÅÄ#‡" [keymapp binding define-key (control h) compose-help help] 4] nil default-value ctl-arrow (t nil) set-default iso-8859/1 provide x-compose] 4)