;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:39:42 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/keyboard.el ;;; emacs version 19.34. ;;; 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.29"))) (error "`keyboard.el' was compiled for Emacs 19.29 or later")) #@80 If non-nil, "ESC , Fe" and "ESC - Fe" are used for inputting Latin characters. (defvar keyboard-allow-latin-input nil (#$ . 491)) #@60 Character buffer for the first byte of two-byte character. (defvar _keyboard-first-byte_ nil (#$ . 627)) #@36 Flag to indicate Single Shift SS2. (defvar _keyboard-SS2_ nil (#$ . 738)) #@36 Flag to indicate Single Shift SS3. (defvar _keyboard-SS3_ nil (#$ . 818)) #@21 Saved local keymap. (defvar _keyboard-saved-local-map_ nil (#$ . 898)) #@31 Saved single shift local map. (defvar _saved-local-map-single-shift_ nil (#$ . 975)) (byte-code "! B! B!! B!. BŇ" [boundp _current-g0_ 0 current-load-list _current-g1_ nil _current-g2_ _current-g3_] 2) #@57 Local keymap used while inputing ISO2022 code directly. (defconst local-map-iso nil (#$ . 1220)) #@59 Local keymap used while inputing Shift-JIS code directly. (defconst local-map-sjis nil (#$ . 1323)) #@54 Local keymap used while inputing Big5 code directly. (defconst local-map-big5 nil (#$ . 1429)) #@39 Keys to designate 94n or 96n charset. (defconst esc-dol-map nil (#$ . 1530)) #@37 Keys to designate 94 charset to GL. (defconst esc-openpar-map nil (#$ . 1613)) #@37 Keys to designate 94 charset to GR. (defconst esc-closepar-map nil (#$ . 1698)) #@37 Keys to designate 96 charset to GL. (defconst esc-comma-map nil (#$ . 1784)) #@37 Keys to designate 96 charset to GR. (defconst esc-minus-map nil (#$ . 1867)) #@38 Keys to designate 94n charset to GL. (defconst esc-dol-openpar-map nil (#$ . 1950)) #@38 Keys to designate 94n charset to GR. (defconst esc-dol-closepar-map nil (#$ . 2040)) #@38 Keys to designate 96n charset to GL. (defconst esc-dol-comma-map nil (#$ . 2131)) #@38 Keys to designate 96n charset to GR. (defconst esc-dol-minus-map nil (#$ . 2219)) #@71 Set variable keyboard-coding-system to CODE and modify keymap for it. (defalias 'set-keyboard-coding-system #[(code) " != !7 = ; =% !; =0 ; \";̉ )̉ " [check-coding-system code get-code-type type 1 set-keyboard-coding-system-sjis 2 set-keyboard-coding-system-iso2022 3 set-keyboard-coding-system-big5 error "Direct input of code %s is not supported." nil keyboard-coding-system] 4 (#$ . 2307) "zKeyboard-coding-system: "]) (defalias 'keyboard-define-key #[(map key command) " !\f$" [define-key map char-to-string key command t] 5]) (put (quote keyboard-define-key) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'keyboard-set-input-mode #[(value) " AA\n \")" [current-input-mode mode value apply set-input-mode] 4]) (defalias 'keyboard-select-keymap #[(&rest maps) " !\n8 !" [get-code-type keyboard-coding-system maps error "invalid keyboard-coding-system"] 2]) (defalias 'keyboard-self-insert-do-insert #[(char) " ! " [self-insert-internal char check-auto-fill] 2]) (defalias 'keyboard-use-local-map-do-insert #[(map) " !" [use-local-map map] 2]) (defalias 'keyboard-current-local-map-do-insert #[nil " " [current-local-map] 1]) (defalias 'keyboard-local-map-do-insert #[nil "\n \f$" [keyboard-select-keymap nil local-map-sjis local-map-iso local-map-big5] 5]) (byte-code "\nB\nB\nB\nB" [keyboard-self-insert-do-insert keyboard-self-insert-function current-load-list keyboard-use-local-map-do-insert keyboard-use-local-map-function keyboard-current-local-map-do-insert keyboard-current-local-map-function keyboard-local-map-do-insert keyboard-local-map-function] 2) (defalias 'keyboard-self-insert #[(char) " !" [keyboard-self-insert-function char] 2]) (defalias 'keyboard-current-local-map #[nil " " [keyboard-current-local-map-function] 1]) (defalias 'keyboard-use-local-map #[(map) " !" [keyboard-use-local-map-function map] 2]) (defalias 'keyboard-local-map #[nil " " [keyboard-local-map-function] 1]) (defalias 'keyboard-reset-state #[nil "" [nil _keyboard-first-byte_ _keyboard-SS2_ _keyboard-SS3_] 2]) (defalias 'keyboard-define-global-map-iso #[(map) "W!  ! $+ T) $ $ # #M # # #" [160 i 256 map self-insert-iso command key define-key char-to-string t "" keyboard-SS2 "" keyboard-SS3 "(" esc-openpar-prefix ")" esc-closepar-prefix keyboard-allow-latin-input "," esc-comma-prefix "-" esc-minus-prefix "$" esc-dol-prefix] 6]) (defalias 'keyboard-define-local-map-iso #[(map) "W!  ! $+ T)" [33 i 127 map self-insert-iso command key define-key char-to-string t] 6]) (defalias 'set-keyboard-coding-system-iso2022 #[(code) " !H\nH\nH\nH\n) ='!+!WX!$+T2) ΉW!$+Tl W!$+T*#\", \" # $ % & ' ( ) *\"M#M$M%M&M'M(M)M*M\"#\"#\"#\"#W+#!$+$!$+%!$+&!$+\"!$+'!$+(!$+)@!$+*A!$+TA)BC$DE$F#F#GeF#F#FH#I J" [get-code-flags code flags 0 _current-g0_ 1 _current-g1_ 2 _current-g2_ 3 _current-g3_ lc-invalid keyboard-set-input-mode t nil i 160 256 global-map self-insert-iso command key map define-key char-to-string local-map-iso make-keymap 33 127 current-global-map 161 255 "" mule-keyboard-quit esc-dol-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 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 "(" ")" "," "-" 48 96 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 esc-map keyboard-allow-latin-input "$" keyboard-reset-state keyboard-coding-system] 6]) (defalias 'mule-keyboard-quit #[nil " ! " [keyboard-reset-state _keyboard-saved-local-map_ keyboard-use-local-map keyboard-quit] 2 nil nil]) (defalias 'keyboard-change-local-map-for-iso #[nil " =?  !" [keyboard-current-local-map keyboard-local-map _keyboard-saved-local-map_ keyboard-use-local-map] 2]) (defalias 'keyboard-designate-94-GL #[nil " !H \"U \"U-\n! " [get-code-flags keyboard-coding-system 9 lc-roman leading-char 0 last-command-char lc-ascii _current-g0_ keyboard-use-local-map _keyboard-saved-local-map_ keyboard-change-local-map-for-iso] 4 nil nil]) (defalias 'keyboard-designate-94-GR #[nil "\n\"" [leading-char 0 last-command-char _current-g1_] 3 nil nil]) (defalias 'keyboard-designate-96-GL #[nil "\n\" " [leading-char 1 last-command-char _current-g0_ keyboard-change-local-map-for-iso] 3 nil nil]) (defalias 'keyboard-designate-96-GR #[nil "\n\"" [leading-char 1 last-command-char _current-g1_] 3 nil nil]) (defalias 'keyboard-designate-94n-GL #[nil " !H \"U \" " [get-code-flags keyboard-coding-system 10 lc-jpold leading-char 2 last-command-char lc-jp _current-g0_ keyboard-change-local-map-for-iso] 4 nil nil]) (defalias 'keyboard-designate-94n-GR #[nil "\n\"" [leading-char 2 last-command-char _current-g1_] 3 nil nil]) (defalias 'keyboard-designate-96n-GL #[nil "\n\" " [leading-char 3 last-command-char _current-g0_ keyboard-change-local-map-for-iso] 3 nil nil]) (defalias 'keyboard-designate-96n-GR #[nil "\n\"" [leading-char 3 last-command-char _current-g1_] 3 nil nil]) (defalias 'keyboard-SS2 #[nil "  " [t _keyboard-SS2_ keyboard-current-local-map _saved-local-map-single-shift_ keyboard-change-local-map-for-iso] 1 nil nil]) (defalias 'keyboard-SS3 #[nil "  " [t _keyboard-SS3_ keyboard-current-local-map _saved-local-map-single-shift_ keyboard-change-local-map-for-iso] 1 nil nil]) (defalias 'self-insert-iso #[nil " \n \fW& !XI\f\"!?\nD! qj\f#!`\ne! q\f\")" [_keyboard-SS2_ _current-g2_ _keyboard-SS3_ _current-g3_ last-command-char 128 _current-g0_ _current-g1_ lc mule-keyboard-quit char-bytes 2 keyboard-self-insert make-character keyboard-use-local-map _saved-local-map-single-shift_ keyboard-reset-state _keyboard-first-byte_ logior] 6 nil nil]) (defalias 'keyboard-define-global-map-sjis #[(map) "W!  ! $+ T W@  ! $+ T\" W_  ! $+ TA)" [128 i 160 map self-insert-sjis-japanese command key define-key char-to-string t 224 self-insert-sjis-kana 256] 6]) (defalias 'keyboard-define-local-map-sjis #[(map) "W!  ! $+ T)" [64 i 256 map self-insert-sjis-japanese2 command key define-key char-to-string t] 6]) (defalias 'set-keyboard-coding-system-sjis #[nil "! !\f \f!\f# ̉ " [keyboard-set-input-mode 0 keyboard-define-global-map-sjis global-map local-map-sjis make-keymap keyboard-define-local-map-sjis define-key "" mule-keyboard-quit nil _keyboard-first-byte_ *sjis* keyboard-coding-system] 4]) (defalias 'self-insert-sjis-japanese #[nil "  !" [last-command-char _keyboard-first-byte_ keyboard-current-local-map _keyboard-saved-local-map_ keyboard-use-local-map keyboard-local-map] 2 nil nil]) (defalias 'self-insert-sjis-japanese2 #[nil "\n\" @ A#!) !" [_keyboard-first-byte_ s2e last-command-char bytes keyboard-self-insert make-character lc-jp nil keyboard-use-local-map _keyboard-saved-local-map_] 5 nil nil]) (defalias 'self-insert-sjis-kana #[nil "\n \"!" [keyboard-self-insert make-character lc-kana last-command-char] 4 nil nil]) (defalias 'keyboard-define-global-map-big5 #[(map) "W!  ! $+ T)" [161 i 254 map self-insert-big5-1 command key define-key char-to-string t] 6]) (defalias 'keyboard-define-local-map-big5 #[(map) "W!  ! $+ TWB  ! $+ T$)" [64 i 127 map self-insert-big5-2 command key define-key char-to-string t 161 255] 6]) (defalias 'set-keyboard-coding-system-big5 #[nil "!\n!!!( !#ω" [featurep chinese error "Please load chinese.el at first." keyboard-set-input-mode 0 keyboard-define-global-map-big5 global-map local-map-big5 make-keymap keyboard-define-local-map-big5 define-key "" mule-keyboard-quit _keyboard-first-byte_ *big5* keyboard-coding-system] 4]) (defalias 'self-insert-big5-1 #[nil "  !" [last-command-char _keyboard-first-byte_ keyboard-current-local-map _keyboard-saved-local-map_ keyboard-use-local-map keyboard-local-map] 2 nil nil]) (defalias 'self-insert-big5-2 #[nil " #!!" [_keyboard-first-byte_ keyboard-self-insert b2g last-command-char character nil keyboard-use-local-map _keyboard-saved-local-map_] 5 nil nil]) (defalias 'check-auto-fill #[nil "\fi V\f " [auto-fill-function fill-column] 2])