;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:51:09 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/iso-acc.el ;;; emacs version 19.22.92.2. ;;; bytecomp version FSF 2.10 ;;; 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 "`/gd/gnu/emacs/19.0/lisp/iso-acc.el' was compiled for Emacs 19")) (provide (quote iso-acc)) (defvar iso-accents-list (quote (((39 65) 193) ((39 69) 201) ((39 73) 205) ((39 79) 211) ((39 85) 218) ((39 89) 221) ((39 97) 225) ((39 101) 233) ((39 105) 237) ((39 111) 243) ((39 117) 250) ((39 121) 253) ((39 39) 180) ((39 32) 39) ((96 65) 192) ((96 69) 200) ((96 73) 204) ((96 79) 210) ((96 85) 217) ((96 97) 224) ((96 101) 232) ((96 105) 236) ((96 111) 242) ((96 117) 249) ((96 32) 96) ((96 96) 96) ((94 65) 194) ((94 69) 202) ((94 73) 206) ((94 79) 212) ((94 85) 219) ((94 97) 226) ((94 101) 234) ((94 105) 238) ((94 111) 244) ((94 117) 251) ((94 32) 94) ((94 94) 94) ((34 65) 196) ((34 69) 203) ((34 73) 207) ((34 79) 214) ((34 85) 220) ((34 97) 228) ((34 101) 235) ((34 105) 239) ((34 111) 246) ((34 115) 223) ((34 117) 252) ((34 121) 255) ((34 32) 34) ((34 34) 168) ((126 65) 195) ((126 67) 199) ((126 68) 208) ((126 78) 209) ((126 79) 213) ((126 97) 227) ((126 99) 231) ((126 100) 240) ((126 110) 241) ((126 111) 245) ((126 62) 187) ((126 60) 171) ((126 32) 126) ((126 126) 184) ((47 65) 197) ((47 69) 198) ((47 79) 216) ((47 97) 229) ((47 101) 230) ((47 111) 248) ((47 32) 47) ((47 47) 176))) "\ Association list for ISO accent combinations.") (defvar iso-accents-minor-mode nil "\ *Non-nil enables ISO Accents mode. Setting this variable makes it local to the current buffer. See `iso-accents-mode'.") (make-variable-buffer-local (quote iso-accents-minor-mode)) (defalias 'iso-accents-accent-key #[(prompt) "ƒÁ\n!‡Ã\f!‡" [iso-accents-minor-mode iso-accents-compose prompt char-to-string last-input-char] 2 "\ Modify the following character by adding an accent to it."]) (defalias 'iso-accents-compose-key #[(prompt) "À ! ƒ ÅÆÇÈ\nÉH!È\f@!#ˆ)\n)‡" [iso-accents-compose prompt combined unread-command-events unread nil error "Characters %s and %s cannot be composed" single-key-description 0] 5 "\ Modify the following character by adding an accent to it."]) (defalias (quote iso-accents-compose) #[(prompt) "\n„ÃÄ!Å=„ÆÇ\n†È #ˆÉ ‚' cˆÉ `S`|ˆ\nË \nD\f\"‰ ƒA A@C°‚I\nCÏ !+‡" [last-input-char first-char prompt key-binding "a" self-insert-command message "%s%c" "Compose with " read-event second-char assoc iso-accents-list entry unread-command-events vector] 5]) (defvar iso-accents-enable (quote (39 96 94 34 126 47)) "\ *List of accent keys that become prefixes in ISO Accents mode. The default is (?' ?` ?^ ?\" ?~ ?/), which contains all the supported accent keys. For certain languages, you might want to remove some of those characters that are not actually used.") (byte-code "„Á  >ƒÄÅÆ#ˆÇ >ƒÄÈÆ#ˆÉ >ƒ+ÄÊÆ#ˆË >ƒ7ÄÌÆ#ˆÍ >ƒCÄÎÆ#ˆÏ >ƒOÄÐÆ#ˆÁ‡" [key-translation-map make-sparse-keymap 39 iso-accents-enable define-key "'" iso-accents-accent-key 96 "`" 94 "^" 34 "\"" 126 "~" 47 "/"] 4) (defalias 'iso-accents-mode #[(&optional arg) "ƒ\fÁ!ÂX‚ ƒĉ‡Å‰‡" [arg prefix-numeric-value 0 iso-accents-minor-mode nil t] 2 "\ 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. The variable `iso-accents-enable' specifies the list of characters to enable as accents. If you don't need all of them, remove the ones you don't need from that list. Special combinations: ~c gives a c with cedilla, ~d gives a d with dash. \"s gives German sharp s. /a gives a with ring. /e gives an a-e ligature. ~< and ~> give guillemets. With an argument, a positive argument enables ISO Accents mode, and a negative argument disables it." "P"])