;ELC ;;; compiled by nk@localhost.localdomain on Fri Dec 1 22:48:57 2006 ;;; from file /home/nk/pkg-build/test/mule-packages/mule-base/mule-keyboard.el ;;; emacs version 21.4 (patch 19) "Constant Variable" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`mule-keyboard.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) #@80 If non-nil, "ESC , Fe" and "ESC - Fe" are used for inputting Latin characters. (defvar keyboard-allow-latin-input nil (#$ . 612)) #@60 Character buffer for the first byte of two-byte character. (defvar _keyboard-first-byte_ nil (#$ . 748)) #@36 Flag to indicate Single Shift SS2. (defvar _keyboard-SS2_ nil (#$ . 859)) #@36 Flag to indicate Single Shift SS3. (defvar _keyboard-SS3_ nil (#$ . 939)) #@21 Saved local keymap. (defvar _keyboard-saved-local-map_ nil (#$ . 1019)) #@31 Saved single shift local map. (defvar _saved-local-map-single-shift_ nil (#$ . 1097)) (byte-code "B!\"B!\"B!\"B!\"Ƈ" [current-load-list _current-g0_ default-boundp set-default 0 _current-g1_ nil _current-g2_ _current-g3_] 3) #@57 Local keymap used while inputing ISO2022 code directly. (defconst local-map-iso nil (#$ . 1373)) #@59 Local keymap used while inputing Shift-JIS code directly. (defconst local-map-shift-jis nil (#$ . 1476)) #@54 Local keymap used while inputing Big5 code directly. (defconst local-map-big5 nil (#$ . 1587)) #@39 Keys to designate 94n or 96n charset. (defconst esc-dol-map nil (#$ . 1688)) #@37 Keys to designate 94 charset to GL. (defconst esc-openpar-map nil (#$ . 1771)) #@37 Keys to designate 94 charset to GR. (defconst esc-closepar-map nil (#$ . 1856)) #@37 Keys to designate 96 charset to GL. (defconst esc-comma-map nil (#$ . 1942)) #@37 Keys to designate 96 charset to GR. (defconst esc-minus-map nil (#$ . 2025)) #@38 Keys to designate 94n charset to GL. (defconst esc-dol-openpar-map nil (#$ . 2108)) #@38 Keys to designate 94n charset to GR. (defconst esc-dol-closepar-map nil (#$ . 2198)) #@38 Keys to designate 96n charset to GL. (defconst esc-dol-comma-map nil (#$ . 2289)) #@38 Keys to designate 96n charset to GR. (defconst esc-dol-minus-map nil (#$ . 2377)) #@74 Set variable keyboard-coding-system to CODESYS and modify keymap for it. (defalias 'set-keyboard-coding-system #[(codesys) " !a a !a \")" [type codesys coding-system-type shift-jis set-keyboard-coding-system-shift-jis iso2022 set-keyboard-coding-system-iso2022 big5 set-keyboard-coding-system-big5 error "Direct input of code %s is not supported."] 4 (#$ . 2465) "zKeyboard-coding-system: "]) (defalias 'keyboard-define-key #[(map key command) "\n !$" [command key map define-key char-to-string t] 5]) (byte-code "Ns\"#" [keyboard-define-key byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'keyboard-set-input-mode #[(value) " AA \")" [value mode current-input-mode apply set-input-mode] 4]) (defalias 'keyboard-select-keymap #[(&rest maps) " !8!" [maps keyboard-coding-system get-code-type error "invalid keyboard-coding-system"] 2]) (defalias 'keyboard-self-insert-do-insert #[(char) "! " [char self-insert-internal check-auto-fill] 2]) (put 'keyboard-self-insert-do-insert 'pending-delete t) (defalias 'keyboard-use-local-map-do-insert #[(map) "!" [map use-local-map] 2]) (defalias 'keyboard-current-local-map-do-insert #[nil " " [current-local-map] 1]) (defalias 'keyboard-local-map-do-insert #[nil "\n $" [local-map-big5 local-map-iso local-map-shift-jis keyboard-select-keymap nil] 5]) (byte-code " B B B BÇ" [keyboard-local-map-function keyboard-current-local-map-function keyboard-use-local-map-function keyboard-self-insert-function current-load-list keyboard-self-insert-do-insert keyboard-use-local-map-do-insert keyboard-current-local-map-do-insert keyboard-local-map-do-insert] 2) (defalias 'keyboard-self-insert #[(char) " !" [char keyboard-self-insert-function] 2]) (defalias 'keyboard-current-local-map #[nil " " [keyboard-current-local-map-function] 1]) (defalias 'keyboard-use-local-map #[(map) " !" [map keyboard-use-local-map-function] 2]) (defalias 'keyboard-local-map #[nil " " [keyboard-local-map-function] 1]) (defalias 'keyboard-reset-state #[nil "ÉÉ" [_keyboard-SS3_ _keyboard-SS2_ _keyboard-first-byte_ nil] 3]) (defalias 'keyboard-define-global-map-iso #[(map) "ʼnW  !\n$+ Tf) $ $ # # # # #" [keyboard-allow-latin-input key command i map 160 256 self-insert-iso define-key char-to-string t "" keyboard-SS2 "" keyboard-SS3 "(" esc-openpar-prefix ")" esc-closepar-prefix "," esc-comma-prefix "-" esc-minus-prefix "$" esc-dol-prefix] 6]) (defalias 'keyboard-define-local-map-iso #[(map) "ĉW\n \n! $+ Tf)" [key command map i 33 127 self-insert-iso define-key char-to-string t] 6]) (defalias 'set-keyboard-coding-system-iso2022 #[(code) "\"D\"C\"E\"FC!!ΉW:  \n! $+ Te)9 9͉ԉW9  \n! $+ Te ׉W  \n! $+ Tf*9#   ; < = > ? @ A B M;MM?M@MAMBM # # # #W;  \n! $+<  \n! $+=  \n! $+>  \n! $+  \n! $+?  \n! $+@  \n! $+A  \n! $+B  \n! $+ T ):$:$8#8#G8#8#8# H" [code esc-dol-map key command map i coding-system-charset 0 1 2 3 keyboard-set-input-mode t nil 160 256 self-insert-iso define-key char-to-string make-keymap 33 127 current-global-map 161 255 "" mule-keyboard-quit esc-dol-prefix esc-openpar-prefix esc-closepar-prefix esc-comma-prefix esc-minus-prefix esc-dol-openpar-prefix esc-dol-closepar-prefix esc-dol-comma-prefix esc-dol-minus-prefix "(" ")" "," "-" ?0 ?\` keyboard-designate-94-GL keyboard-designate-94-GR keyboard-designate-96-GL keyboard-designate-96-GR keyboard-designate-94n-GL keyboard-designate-94n-GR keyboard-designate-96n-GL keyboard-designate-96n-GR "" keyboard-SS2 "" keyboard-SS3 "$" keyboard-reset-state esc-map local-map-iso global-map esc-openpar-map esc-closepar-map esc-comma-map esc-minus-map esc-dol-openpar-map esc-dol-closepar-map esc-dol-comma-map esc-dol-minus-map _current-g1_ _current-g0_ _current-g2_ _current-g3_ keyboard-allow-latin-input keyboard-coding-system] 6]) (defalias 'mule-keyboard-quit #[nil " ! " [_keyboard-saved-local-map_ keyboard-reset-state keyboard-use-local-map keyboard-quit] 2 nil nil]) (defalias 'keyboard-change-local-map-for-iso #[nil " a?  !" [_keyboard-saved-local-map_ keyboard-current-local-map keyboard-local-map keyboard-use-local-map] 2]) (defalias 'keyboard-designate-94-GL #[nil " !\n#a\n# a! " [_keyboard-saved-local-map_ keyboard-coding-system last-command-char _current-g0_ coding-system-use-japanese-jisx0201-roman charset-from-attributes 1 94 japanese-jisx0201-roman ascii keyboard-use-local-map keyboard-change-local-map-for-iso] 4 nil nil]) (defalias 'keyboard-designate-94-GR #[nil " #" [_current-g1_ last-command-char charset-from-attributes 1 94] 4 nil nil]) (defalias 'keyboard-designate-96-GL #[nil " # " [_current-g0_ last-command-char charset-from-attributes 1 96 keyboard-change-local-map-for-iso] 4 nil nil]) (defalias 'keyboard-designate-96-GR #[nil " #" [_current-g1_ last-command-char charset-from-attributes 1 96] 4 nil nil]) (defalias 'keyboard-designate-94n-GL #[nil "!\n#a\n# " [keyboard-coding-system _current-g0_ last-command-char coding-system-use-japanese-jisx0208-1978 charset-from-attributes 2 94 japanese-jisx0208-1978 japanese-jisx0208 keyboard-change-local-map-for-iso] 4 nil nil]) (defalias 'keyboard-designate-94n-GR #[nil " #" [_current-g1_ last-command-char charset-from-attributes 2 94] 4 nil nil]) (defalias 'keyboard-designate-96n-GL #[nil " # " [_current-g0_ last-command-char charset-from-attributes 2 96 keyboard-change-local-map-for-iso] 4 nil nil]) (defalias 'keyboard-designate-96n-GR #[nil " #" [_current-g1_ last-command-char charset-from-attributes 2 96] 4 nil nil]) (defalias 'keyboard-SS2 #[nil "  " [_saved-local-map-single-shift_ _keyboard-SS2_ t keyboard-current-local-map keyboard-change-local-map-for-iso] 1 nil nil]) (defalias 'keyboard-SS3 #[nil "  " [_saved-local-map-single-shift_ _keyboard-SS3_ t keyboard-current-local-map keyboard-change-local-map-for-iso] 1 nil nil]) (defalias 'self-insert-iso #[nil " \n W !U \"! \n! #! \n! )" [_saved-local-map-single-shift_ _keyboard-first-byte_ _keyboard-SS3_ _keyboard-SS2_ charset last-command-char 128 mule-keyboard-quit charset-dimension 1 keyboard-self-insert make-char keyboard-use-local-map keyboard-reset-state _current-g2_ _current-g3_ _current-g0_ _current-g1_] 6 nil nil]) (defalias 'keyboard-define-global-map-shift-jis #[(map) "ĉW\n \n! $+ Tf W\n \n! $+ Tf W\n \n! $+ Tf)" [key command map i 128 160 self-insert-shift-jis-japanese define-key char-to-string t 224 self-insert-shift-jis-kana 256] 6]) (defalias 'keyboard-define-local-map-shift-jis #[(map) "ĉW\n \n! $+ Tf)" [key command map i 64 256 self-insert-shift-jis-japanese2 define-key char-to-string t] 6]) (defalias 'set-keyboard-coding-system-shift-jis #[nil "!\n!  ! #͉" [keyboard-coding-system _keyboard-first-byte_ global-map local-map-shift-jis keyboard-set-input-mode 0 keyboard-define-global-map-shift-jis make-keymap keyboard-define-local-map-shift-jis define-key "" mule-keyboard-quit nil shift-jis] 4]) (defalias 'self-insert-shift-jis-japanese #[nil "\n  !" [_keyboard-saved-local-map_ _keyboard-first-byte_ last-command-char keyboard-current-local-map keyboard-use-local-map keyboard-local-map] 2 nil nil]) (defalias 'self-insert-shift-jis-japanese2 #[nil " \"\n!)!" [_keyboard-saved-local-map_ last-command-char char _keyboard-first-byte_ decode-shift-jis-char keyboard-self-insert nil keyboard-use-local-map] 3 nil nil]) (defalias 'self-insert-shift-jis-kana #[nil "\"!" [last-command-char keyboard-self-insert make-char japanese-jisx0201-kana] 4 nil nil]) (defalias 'keyboard-define-global-map-big5 #[(map) "ĉW\n \n! $+ Tf)" [key command map i ? ? self-insert-big5-1 define-key char-to-string t] 6]) (defalias 'keyboard-define-local-map-big5 #[(map) "ĉW\n \n! $+ TfʉW\n \n! $+ Tf)" [key command map i ?@ ?\^? self-insert-big5-2 define-key char-to-string t ? ?] 6]) (defalias 'set-keyboard-coding-system-big5 #[nil "!!\n!  ! #Ή" [keyboard-coding-system _keyboard-first-byte_ global-map local-map-big5 require chinese keyboard-set-input-mode 0 keyboard-define-global-map-big5 make-keymap keyboard-define-local-map-big5 define-key "" mule-keyboard-quit big5] 4]) (defalias 'self-insert-big5-1 #[nil "\n  !" [_keyboard-saved-local-map_ _keyboard-first-byte_ last-command-char keyboard-current-local-map keyboard-use-local-map keyboard-local-map] 2 nil nil]) (defalias 'self-insert-big5-2 #[nil "\n\n #!!" [_keyboard-saved-local-map_ last-command-char _keyboard-first-byte_ keyboard-self-insert decode-big5-char character nil keyboard-use-local-map] 5 nil nil]) (defalias 'check-auto-fill #[nil " iV " [fill-column auto-fill-function] 2])