;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:40:09 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/quail.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 "`quail.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÂÃ\fBÅÆ!„ÇÆ\fBÅÈ!„ ÉÈ\fBÀ‡" [require faces "2.2" quail-version current-load-list boundp quail-region-face underline quail-selection-face highlight] 2) #@55 Function(s) to call after inserting quail characters. (defvar quail-self-insert-after-hook nil (#$ . 663)) #@44 A character typed last time in Quail mode. (defvar quail-last-char nil (#$ . 776)) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ B‡" [boundp quail-completion-buf nil current-load-list quail-guidance-buf] 2) (defalias 'quail-buffer-alive-p '(macro . #[(buf) "ÀÁ\nDÃ\nDE‡" [and bufferp buf buffer-name] 4])) #@36 Non-nil if using Quail minor mode. (defvar quail-mode nil (#$ . 1078)) (make-variable-buffer-local (quote quail-mode)) #@45 Non-nil if in sub-mode of Quail minor mode. (defvar quail-sub-mode nil (#$ . 1203)) (byte-code "ÀÁ!ˆÂÃ!„\fÄà BÀÃ!ˆÂÆ!„ÄÆ BÀÆ!‡" [make-variable-buffer-local quail-sub-mode boundp quail-keep-state nil current-load-list quail-mode-string] 2) #@34 Overlay which covers quail zone. (defvar quail-overlay nil (#$ . 1456)) (make-variable-buffer-local (quote quail-overlay)) #@47 Within Quail mode, a key string typed so far. (defvar quail-current-key nil (#$ . 1585)) (make-variable-buffer-local (quote quail-current-key)) #@74 Within Quail mode, a string currently translated from quail-current-key. (defvar quail-current-str nil (#$ . 1735)) (byte-code "ÀÁ!ˆÂÃ!„\fÄà BÀÃ!‡" [make-variable-buffer-local quail-current-str boundp quail-previous-extra-mode-list nil current-load-list] 2) #@257 Assoc list of quail-packages. Each element is a list of: NAME, PROMPT, MAP, GUIDANCE, DOC, SUB-MODE-MAP, NOLEARN, DETERMINISTIC, TRANSLATE, LAYOUT, OBSOLETE, DECODE-MAP, and EXTRA-MODE-LIST. See the document of `quail-define-package' for more detail. (defvar quail-package-alist nil (#$ . 2003)) (defalias 'quail-package-name '(macro . #[nil "À‡" [(car quail-current-package)] 1])) (defalias 'quail-prompt '(macro . #[nil "À‡" [(nth 1 quail-current-package)] 1])) (defalias 'quail-map '(macro . #[nil "À‡" [(nth 2 quail-current-package)] 1])) (defalias 'quail-guidance '(macro . #[nil "À‡" [(nth 3 quail-current-package)] 1])) (defalias 'quail-document '(macro . #[nil "À‡" [(nth 4 quail-current-package)] 1])) (defalias 'quail-sub-mode-map '(macro . #[nil "À‡" [(nth 5 quail-current-package)] 1])) (defalias 'quail-nolearn '(macro . #[nil "À‡" [(nth 6 quail-current-package)] 1])) (defalias 'quail-deterministic '(macro . #[nil "À‡" [(nth 7 quail-current-package)] 1])) (defalias 'quail-translate '(macro . #[nil "À‡" [(nth 8 quail-current-package)] 1])) (defalias 'quail-layout '(macro . #[nil "À‡" [(nth 9 quail-current-package)] 1])) (defalias 'quail-decode-map '(macro . #[nil "À‡" [(nth 11 quail-current-package)] 1])) (defalias 'quail-extra-mode-list '(macro . #[nil "À‡" [(nth 12 quail-current-package)] 1])) (byte-code "ÀÁÂ\"ˆÀÃÂ\"‡" [defalias quail-showkey quail-guidance quail-dynamic-list] 3) #@24 Current quail-pacakge. (defvar quail-current-package nil (#$ . 3419)) (make-variable-buffer-local (quote quail-current-package)) #@21 Last quail-pacakge. (defvar quail-last-package nil (#$ . 3554)) #@34 Return quail-package named NAME. (defalias 'quail-package '(macro . #[(name) "À ÂE‡" [assoc name quail-package-alist] 3 (#$ . 3624)])) (defalias 'quail-add-package #[(package) "À @\n\"‰ƒ A¡‚ \nB‰)‡" [assoc package quail-package-alist pac] 4]) #@36 Set current quail package to NAME. (defalias 'quail-use-package #[(name) "À \n\"‰„ÄÅ \"ˆÆ 8„Ç A@!ˆ @˜„&À \n\"Èà \"‡" [assoc name quail-package-alist quail-current-package error "No such quail-pacakge: %s" 2 load-library set-default] 4 (#$ . 3880)]) (byte-code "À Á\nÄWƒÅ Æ\n!Ç#ˆ\nT‰‚Å ÈÉ#ˆÅ ÊËÌ$ˆ * ÍBÏž„>ÑBÏž„NÏ BBÓ !Ô\nÕXƒjÅ Æ\n!Ö#ˆ\nT‰‚VÅ ×Ø#ˆÅ ÙÚ#ˆÅ ÛÜ#ˆÅ ÝÞ#ˆÅ ßà#ˆÅ áâ#ˆÅ ãä#ˆÅ åæ#ˆ *'çBè)éBÀ‡" [make-keymap 32 i map 127 define-key char-to-string quail-self-insert-command "s" quail-select-package "z" quail-help t quail-mode-map current-load-list quail-mode minor-mode-alist (quail-mode " Quail") minor-mode-map-alist copy-keymap 48 57 quail-self-insert-or-index "n" quail-next-candidate "p" quail-prev-candidate "N" quail-next-candidate-block "P" quail-prev-candidate-block "i" quail-completion " " quail-select-current "g" quail-cancel-current "" quail-backward-delete-char quail-sub-mode-map ((">" . quail-next-candidate) ("<" . quail-prev-candidate) ("." . quail-next-candidate-block) ("," . quail-prev-candidate-block) (" " . quail-select-current)) quail-sub-mode-rich-bindings] 6) #@1288 Define NAME as a quail-package with initial quail map. The second argument PROMPT is a string to be displayed as a name of minor mode when NAME is selected as current package of quail-mode. Optional arguments are GUIDANCE, DOC, KEY-BINDINGS, NOLEARN, DETERMINISTIC, TRANSLATE, LAYOUT, OBSOLETE, DECODE-MAP, EXTRA-MODE-LIST. GUIDANCE is an alist of key and correspoing string to be shown in echo area, t means shows list of candidates, nil means shows typed key. DOC is a document shown by quail-help command. KEY-BINDINGS is an additional key-bindings for control in quail-sub-mode, the value should be a list of cons of KEY and COMMAND. NOLEARN non-nil means not remembering a candidate seleceted last time. DETERMINISTIC non-nil means deterministic translation and NOLEARN is automatically set to t. TRANSLATE non-nil means input characters are mapped to vt100 layout with quail-keyboard-translate-table. LAYOUT non-nil means translated keyboard layout to be displayed by quail-help. OBSOLETE is an obsolete argument, anything specified is ignored. DECODE-MAP non-nil means create decoding map. EXTRA-MODE-LIST is a list of symbols of minor-modes to be set. The current quail-package is set to this package and following quail-defrule defines translation rules in it. (defalias 'quail-define-package #[(name prompt &optional guidance doc key-bindings nolearn deterministic translate layout obsolete decode-map extra-mode-list) "ƒÁÃ\f Æ †É\n\n \fÍ…\"ϯ !ˆÑ\f!ˆÍ‡" [deterministic t nolearn quail-add-package name prompt make-sparse-keymap guidance doc "" key-bindings translate layout nil decode-map (0) extra-mode-list quail-use-package] 14 (#$ . 5043)]) (byte-code "ÀÁ\nBÁ‡" [("1234567890-=`qwertyuiop[]asdfghjkl;'\\zxcvbnm,./!@#$%^&*()_+~QWERTYUIOP{}ASDFGHJKL:\"|ZXCVBNM<>? " nil) quail-keyboard-standard-table current-load-list] 2) #@603 List of QUAIL-TRANSLATE-TABLE (first element) and QUAIL-ASSOC-TABLE (second element). QUAIL-TRANSLATE-TABLE is a string which represents the 'normalised' layout of a particular keyboard. QUAIL-ASSOC-TABLE is an a-list which describes 'unordinary' key locations. A key location is given by a vector of the form [x-position y-position shift-or-not]. For example, the '1' (one) key's location is [0 0 0], and 'W' (capital letter W) is [1 1 1]. The third element being 0 means unshifted, 1 means shifted. If QUAIL-ASSOC-TABLE is NIL, the first argument given to quail-defrule will not be translated. (defvar quail-keyboard-translate-table quail-keyboard-standard-table (#$ . 6924)) (byte-code "ÀÁ\nBÃÄ\nBÅÆ\nBÇÈ\nBÉ\nÊ\nBË\fÌ\nBÍÎ\nBÏÐ\nBÑÒ\nBÓÔ\nBÕÖ\nBÁ‡" [("1234567890-=\\qwertyuiop[]asdfghjkl;'`zxcvbnm,./!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:\"~ZXCVBNM<>? " ((96 [13 0 0]) (126 [13 0 1]))) quail-keyboard-translate-table-sun-type3 current-load-list ("1234567890-=\\qwertyuiop[]asdfghjkl;'`zxcvbnm,./!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:\"~ZXCVBNM<>? " ((92 [11 -1 0]) (124 [11 -1 1]))) quail-keyboard-translate-table-sun-type4 ("1234567890-=\\qwertyuiop[]asdfghjkl;'`zxcvbnm,./!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:\"~ZXCVBNM<>? " nil) quail-keyboard-translate-table-sony-nwp-411a ("1234567890-^\\qwertyuiop@[asdfghjkl;:]zxcvbnm,./!\"#$%&'()_=`|QWERTYUIOP~{ASDFGHJKL+*}ZXCVBNM<>? " ((95 [10 3 1]))) quail-keyboard-translate-table-jis ("1234567890-^\\qwertyuiop@[asdfghjkl;:]zxcvbnm,./!\"#$%&'()_=~|QWERTYUIOP`{ASDFGHJKL+*}ZXCVBNM<>? " ((95 [10 3 1]))) quail-keyboard-translate-table-fujitsu-sigma-230 ("1234567890-=\\qwertyuiop[]asdfghjkl;'`zxcvbnm,./!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:\"~ZXCVBNM<>? " ((96 [-1 0 0]) (126 [-1 0 1]))) quail-keyboard-translate-table-ibm-at ("1234567890-=`qwertyuiop[]asdfghjkl;'\\zxcvbnm,./!@#$%^&*()_+~QWERTYUIOP{}ASDFGHJKL:\"|ZXCVBNM<>? " ((96 [-1 0 0]) (126 [-1 0 1]) (92 [12 1 0]) (124 [12 1 1]))) quail-keyboard-translate-table-ibm-rt/pc ("1234567890-=`qwertyuiop[]asdfghjkl;'\\zxcvbnm,./!@#$%^&*()_+~QWERTYUIOP{}ASDFGHJKL:\"|ZXCVBNM<>? " ((96 [-1 3 0]) (126 [-1 3 1]))) quail-keyboard-translate-table-decstation ("1234567890-=`qwertyuiop[]asdfghjkl;'\\zxcvbnm,./!@#$%^&*()_+~QWERTYUIOP{}ASDFGHJKL:\"|ZXCVBNM<>? " ((96 [7 4 0]) (126 [7 4 1]) (92 [1 4 0]) (124 [1 4 1]))) quail-keyboard-translate-table-dynabook ("1234567890-=`qwertyuiop[]asdfghjkl;'\\zxcvbnm,./!@#$%^&*()_+~QWERTYUIOP{}ASDFGHJKL:\"|ZXCVBNM<>? " ((96 [-1 0 0]) (126 [-1 0 1]) (92 [8 4 0]) (124 [8 4 1]))) quail-keyboard-translate-table-mac-mo110 ("1234567890-=`qwertyuiop[]asdfghjkl;'\\zxcvbnm,./!@#$%^&*()_+~QWERTYUIOP{}ASDFGHJKL:\"|ZXCVBNM<>? " ((96 [1 4 0]) (126 [1 4 1]) (92 [7 4 0]) (124 [7 4 1]))) quail-keyboard-translate-table-mac-mo116] 2) #@462 Define KEY (string) to produce CANDIDATE in the current quail-map. CANDIDATE is a string, a list of strings, a quail-map, a command, or a symbol. If the string contains only one character, the character code (integer) is also acceptable. The command should be a lisp function suitable for interactive calling (and called with no argument). The symbol's function definition should be a quail-map. Optional arg PACKAGE indicates the package name to be used. (defalias 'quail-defrule #[(key candidate &optional name) "ƒ Á\n\"‚\f Ä 8Æ !„ÇÈ \"ˆ‚¶Æ !„, 9ƒ7Ê   #ˆ‚€ ¨ƒCÌ ! Í  \"‰ƒrÆ !ƒrÎ A@!ƒeÊ Ï #ˆ‚€ Ð ! AB¡ˆ‚€ÊÄ 8 ÑÐ !D#ˆÎ !„¶Ò 8Ó‰ƒµÁ \"‰ƒ¨ ¡ˆ‚µÒ ›  BB ˆ**Ó‡" [name assoc quail-package-alist quail-current-package 2 map keymapp error "QUAIL: Invalid quail-map: %s" candidate define-key key char-to-string lookup-key vectorp "" vector keymap 11 nil tbl decode-map] 7 (#$ . 9710)]) (defalias (quote qd) (quote quail-defrule)) (defalias 'qdv '(macro . #[(key str) "À  DE‡" [quail-defrule key vector str] 4])) (defalias 'quail-message #[(msg) "pÀÁ !=† ÂÃ\f\"‡" [window-buffer minibuffer-window message "%s" msg] 3]) #@23 Select quail-package. (defalias 'quail-select-package #[(name) "À \n\"… Å !ˆ…Ç ˆÆ ‡" [assoc name quail-package-alist quail-current-package quail-last-package quail-use-package quail-mode quail-exit-mode] 3 (#$ . 10884) (byte-code "À\n…\n@ÄÅÆ \"ÈÀÈ%‰ GÊVƒ# C‚% C+‡" [t completion-ignore-case quail-last-package default completing-read format "Quail Package (%s): " quail-package-alist nil package-name 0] 7)]) #@272 Toggle Quail minor mode. With arg, turn Quail mode on if and only if arg is positive. The command key you can use in Quail mode depends on a quail package. Try \[describe-bindings] in quail-mode. The description about the current quail package is shown by \[quail-help]. (defalias 'quail-mode #[(&optional arg) "„ ?‚Â!ÃV‰ƒ&\fƒÅ ˆ‚)ÆÇÈ!ˆ‚)É ˆÊË!‡" [arg quail-mode prefix-numeric-value 0 quail-package-alist quail-enter-mode nil error "QUAIL: No quail-package, one should be loaded in advance." quail-exit-mode force-mode-line-update all] 3 (#$ . 11317) "P"]) (defalias 'quail-setup-guidance-buf #[nil "À !ƒ\f !„ÃÄ! A@p qˆÈ ž„(Ê B Ë\fÍ ˆÎ!„?Ðщ\"qˆ*Ò !†ŠpÓÔ !=„YÕÔ \"‡Ö × ZÑ؉ÝÞß\"ˆ×!‰àYƒ„áâZ\"Õ \",‡" [bufferp quail-guidance-buf buffer-name get-buffer-create " *Quail guide for minibuffer*" quail-current-package curbuf prompt quail-mode mode-line-format (quail-mode (mc-flag ("[" quail-mode-string "]"))) t quail-mode-string erase-buffer overlayp quail-overlay make-overlay 1 get-buffer-window window-buffer minibuffer-window set-window-buffer frame-height window-height nil height win window-min-height bottom walk-windows (lambda (w) (if (= bottom (nth 3 (window-edges w))) (setq win w))) no-minibuf 4 split-window 2] 5]) (defalias 'quail-delete-guidance-buf #[nil "À !…- !…-pÃÄ !=ƒ$Å !‰…\"Ç!)‡ÈÄ ÉÊË \"\"‡" [bufferp quail-guidance-buf buffer-name window-buffer minibuffer-window get-buffer-window win delete-window set-window-buffer format " *Minibuf-%d*" minibuffer-depth] 6]) (defalias 'quail-enter-mode #[nil "@@Á=„Á\nBBÃ\f@† @@!ˆ\fA@Áž„+ÈBÉ\n!„@Ë``\"\nÌ\nÍ#ˆÏÐ!ˆÑÐÒ\"ˆÓÕ\f8ƒ‡ÖÕ\f8!„‡Õ\f8×!‰ƒÛ@@@A#ˆA‰„iÕ\f› ˆ*Ü\f8ÝàGÓ\"!ƒÂ!›@J ˆ@J„´@â!ˆTA‰„œ*ã ˆäåæ!!ˆçè!‡" [minor-mode-map-alist quail-mode quail-mode-map quail-use-package quail-current-package quail-package-alist quail-mode-string mode-line-format (quail-mode (mc-flag ("[" quail-mode-string "]"))) overlayp quail-overlay make-overlay overlay-put face quail-region-face make-local-variable post-command-hook add-hook quail-reset-state nil quail-keep-state 5 keymapp copy-keymap quail-sub-mode-map map bindings define-key 12 0 i modes make-list quail-previous-extra-mode-list 1 quail-init-state quail-message substitute-command-keys "\\[quail-help] for help." run-hooks quail-mode-hook] 5]) (defalias 'quail-exit-mode #[nil "ÀÁ!ˆÂ !ˆÄ ˆÅ8lj ƒ4\n8„& @Ë!ˆT A‰ „*̉ ‡" [kill-local-variable post-command-hook delete-overlay quail-overlay quail-delete-guidance-buf 12 quail-current-package 0 i modes quail-previous-extra-mode-list -1 nil quail-mode] 3 nil nil]) (defalias 'quail-enter-sub-mode #[nil "ÀÁ\n\"Ã\f8† ¡ˆÆ‰‡" [assoc quail-mode minor-mode-map-alist 5 quail-current-package quail-sub-mode-map t quail-sub-mode] 3]) (defalias 'quail-exit-sub-mode #[nil "ÀÁ\n\" ¡ˆÄ‰‡" [assoc quail-mode minor-mode-map-alist quail-mode-map nil quail-sub-mode] 3]) (defalias 'quail-reset-state #[nil "… ƒ\f‰‡Ã ‡" [quail-mode quail-keep-state nil quail-init-state] 2]) (defalias 'quail-init-state #[nil "À !ƒ ``#ˆ‚Ã``\"Äă!È ˆÉ ‡" [overlayp quail-overlay move-overlay make-overlay nil quail-current-key quail-current-str quail-sub-mode quail-exit-sub-mode quail-setup-guidance-buf] 4]) (defalias 'quail-check-state #[nil "À !ƒ` !Uƒ ‡Ä ˆÅ‡" [overlay-buffer quail-overlay overlay-end quail-current-key quail-init-state nil] 3]) (defalias 'quail-delete-region #[nil "À ! !|‡" [overlay-start quail-overlay overlay-end] 3]) (defalias 'quail-insert #[(str) "À ˆ ƒ+\n;ƒ$Ã\n!‰ƒ Å\f@!ˆ\fA‰„)‚.Å\n!ˆ‚.\ncˆƒ>iVƒ>ÈÆ!ˆ\n¨ƒIÉ\n!‚K\nG\nË\f`\nZ`#ˆ)Í ‡" [quail-delete-region visual-mode str string-to-char-list l visual-insert-1-char auto-fill-function fill-column run-hooks char-bytes len move-overlay quail-overlay quail-show-guidance] 5]) (defalias 'quail-get-candidates #[(def) "A@Á!…:ÂHÁ !ƒ$ÂÄ ÂH!B Iˆ‚8 <ƒ8 @;ƒ8 B Iˆ )‡" [def vectorp 0 candidates string-to-char-list] 4]) (defalias 'quail-get-candidate #[(def &optional nolearn) "À !‰…C\n<„6\n¨ƒ\n‚C\n9ƒ2Ã\n!ƒ2Ä\nK!ƒ-\nK‚C\n ‚C\n‚C ƒ>\nÆ ˆ\n@\nA8)‡" [quail-get-candidates def candidates fboundp keymapp nolearn 0] 3]) (defalias 'quail-show-guidance #[nil "À ˆÁ\n8‰Ä=ƒÅ ˆ‚fŠŠqˆ „(cˆ‚eÉGʉ \f ‰ WƒdH\fÏ\f \"A‰ ƒU ‚YÐ\f!cˆT‰‚7,+)Ñ!…åÓ!…åÔ!…åp;ƒˆ‚’§…’Ð!ØÔ!!ˆebˆÙÚÛQÊÄ#ƒ×ƒÌÙÜPÊÄ#ƒÌÝÉ”T`#ˆ‚ÞÝÉ”`#ˆ‚ÞÝ߉#ˆØÔ!!+‡" [quail-setup-guidance-buf 3 quail-current-package guidance t quail-list-dynamically quail-current-key key quail-guidance-buf 0 nil show ch len i assoc char-to-string bufferp quail-completion-buf buffer-name get-buffer-window quail-current-str str buf select-window search-forward " " ":" "." move-overlay quail-overlay 1] 5]) (defalias 'quail-translate-char #[(ch) "@‰GÃÃ\nWƒ \fHU„\fT‰‚ \f\nUƒ(ÆÇ \"ˆ@\fH+‡" [quail-keyboard-translate-table str len 0 i ch error "'%c' not found in quail-keyboard-translate-table" quail-keyboard-standard-table] 4]) #@31 Select the current candidate. (defalias 'quail-select-current #[nil "ÀÁ!‡" [quail-self-insert-command t] 2 (#$ . 16404) "*"]) #@61 Select a character from the current 10 candidates by digit. (defalias 'quail-self-insert-or-index #[nil "À ÂZ!‡" [quail-self-insert-command last-command-char 48] 3 (#$ . 16536) "*"]) (defalias 'quail-lookup-key #[(key) "ÀÁ\n8 \"‰9ƒÅ\f!ƒ\fK\f)‡" [lookup-key 2 quail-current-package key def fboundp] 4]) (defalias 'quail-self-insert-command #[(&optional arg) "À ˆ Å8ƒÇ\f!‚\fÉ!\n ƒ,ÌÍ #‚.\nÏ!Ñ!ƒ” ÒÓ8\"Õ†S !ˆƒSAA„SA@ÖH‰ƒS<ƒ{G×UƒS GØYƒŽÙ×8\n\"„SÚ ˆ‚SÛ!ƒº ÑK!ƒ²ÜÕ !ˆ‚SÝ!ˆ‚S§ƒÔƒÔß8„Ôà!ˆ‚SÀ=ƒáÚ ˆ‚S ƒLGÜ!‰\"ãYƒBÑÙ×8äÜO\"!ƒBÏÖäO!‰ƒBÑ!ƒBÒÓ8\"‰!ƒBå ˆ!cˆÚ ˆ\"×ZH&BB&‚HÚ ˆç ˆ*‚SÚ ˆèé!ˆêë!ˆ, …e,?…eí ‡" [t quail-keep-state quail-check-state last-command-char quail-last-char 8 quail-current-package quail-translate-char ch char-to-string chstr quail-current-key format "%s%c" key quail-lookup-key def keymapp quail-get-candidate 6 quail-current-str quail-insert 0 2 3 lookup-key quail-init-state commandp nil call-interactively arg 7 quail-indexed-candidate str len 4 -2 quail-delete-region unread-command-events quail-self-insert-command self-insert-command 1 run-hooks quail-self-insert-after-hook quail-sub-mode quail-enter-sub-mode] 7 nil "*"]) #@24 Select next candidate. (defalias 'quail-next-candidate #[nil "À ƒ ƒÄÅÀ\"‡Æ ‡" [t quail-keep-state quail-check-state quail-current-str quail-select-candidate 1 beep] 3 (#$ . 17823) nil]) #@28 Select previous candidate. (defalias 'quail-prev-candidate #[nil "À ƒ ƒÄÅÀ\"‡Æ ‡" [t quail-keep-state quail-check-state quail-current-str quail-select-candidate -1 beep] 3 (#$ . 18021) nil]) (defalias 'quail-indexed-candidate #[(idx) "ÁUƒ\n‚\fSÃÄÅ#ˆÆ ‡" [idx 0 9 quail-select-candidate nil t quail-init-state] 4]) #@43 Select candidate in next 10 alternatives. (defalias 'quail-next-candidate-block #[nil "À ƒ ƒÄÅÀ‰#‡Æ ‡" [t quail-keep-state quail-check-state quail-current-str quail-select-candidate 10 beep] 4 (#$ . 18354) nil]) #@47 Select candidate in previous 10 alternatives. (defalias 'quail-prev-candidate-block #[nil "À ƒ ƒÄÅÀ‰#‡Æ ‡" [t quail-keep-state quail-check-state quail-current-str quail-select-candidate -10 beep] 4 (#$ . 18578) nil]) (defalias 'quail-select-candidate #[(idx &optional relative block) "À !Ã\n!‰<…\fGÅZ\f@ƒ& \\ ‚6\nƒ6Ë¥Ë_ \\ \nƒs Vƒ`˥˥U„V ‚ŒÌ ˆ ‚Œ ÍWƒŒÌ ˆ Ë\\ ‚Œ VƒÍ ‚Œ ÍWƒŒ \f  ˆ\f@\fA8Ï!**‡" [quail-lookup-key quail-current-key def quail-get-candidates candidates 2 current-idx maxidx relative idx block 10 beep 0 quail-current-str quail-insert] 4]) #@34 Cancel the current key sequence. (defalias 'quail-cancel-current #[nil "À ˆÁ ‡" [quail-delete-region quail-init-state] 1 (#$ . 19205) nil]) #@43 Delete characters backward in quail-mode. (defalias 'quail-backward-delete-char #[(arg) "GÁUƒ  ˆÃ ‡ÄÆÇOÈ! ‰GSH\nË Ì 8\"φ1!)‡" [quail-current-key 1 quail-delete-region quail-init-state t quail-keep-state 0 -1 quail-lookup-key def quail-last-char quail-get-candidate 6 quail-current-package quail-current-str quail-insert] 4 (#$ . 19351) "*p"]) (byte-code "ÀÁ!„ ÂÃÄ\"Á BÀ‡" [boundp quail-work-str make-string 128 0 current-load-list] 3) #@38 Show list of candidates dynamically. (defalias 'quail-list-dynamically #[nil "À !Ã\n! ŠqˆÇ ˆ cˆ\nAA„\"\nA@<ƒ„È\nA ‰\nËWƒ?\f\nÍIˆ\nT‰\n‚* ƒ] @<ƒT\f @@ÎIˆ A‰ „DÏcˆÈ\nÈËWƒ€\f\nHÎUƒw\ncˆ\nT‰\n‚dÐcˆ*\f:… \f@\fAGSÑ¥TÍÒ‰‰‰ÑjˆÚÛÑ¥T#cˆÑ¥Ñ_\fA›‰ƒÑWƒTÚÜÑWƒÜ‚ÝÍ\"cˆ`\f@cˆѦTUƒù`\fA‰„ÂÝÞ$.,‡" [quail-lookup-key quail-current-key def quail-get-candidates candidates key quail-guidance-buf erase-buffer 32 l i 127 quail-work-str 0 1 "[" "]" 10 nil str p2 p1 p num maxidx idx format "(%d/%d)" " %d." put-text-property face quail-selection-face] 8 (#$ . 19814)]) (defalias 'quail-display-buffer #[(buf) "À !?…, ÃÄÈÉ!ˆÊË!Ì¥Vƒ% ‚)Í! \"+‡" [get-buffer-window buf selected-window 0 nil largest height curwin walk-windows (lambda (win) (if (and (null (eq curwin win)) (> (window-height win) height)) (setq height (window-height win) largest win))) set-window-buffer window-height 2 split-window] 4]) #@26 Show list of candidates. (defalias 'quail-completion #[nil "À ! Ä !„ÅÆ!‚NÇŠÉ\n!ƒ$Ë\n!„)ÌÍ!\n\nqˆÎ ˆÏЉ\"ÒÓ#ˆÕcˆÖ\n Ð#ˆ×p!ˆ)Ø *‡" [quail-lookup-key quail-current-key key def keymapp quail-message "No macth." t quail-keep-state bufferp quail-completion-buf buffer-name get-buffer-create "*Completions*" erase-buffer make-overlay 1 quail-overlay overlay-put face quail-selection-face "Current candidates:\n" quail-completion-list quail-display-buffer quail-show-guidance] 4 (#$ . 20806) nil]) (defalias 'quail-completion-list #[(key def indent) "À ! jˆ\fűˆ\nƒ\"Æ\n:ƒ\nA‚\n\f\"ˆ‚%Çcˆ È\\ A‰…]É @!<ƒU @A‰\n9ƒG\nK\nËÌÍ\f @@#\n #ˆ) A‰„0Î)‡" [quail-get-candidates def candidates indent key ":" quail-candidate-with-indent " none\n" 2 vectorp map quail-completion-list format "%s%c" nil] 6]) (defalias 'quail-candidate-with-indent #[(candidates key) ":ƒfiÁƒb\fƦÁUƒ ÇÈ\fÆ¥T\"cˆÉ\fƦÊUƒ-Ë‚2\fƦÌ\\ͱˆ@;ƒA@‚EÎ@!cˆ\fTA‰ƒ \fƦÁUƒ Æcˆ jˆ‚ +‚„9ƒÏ!ƒÐ )±ˆ‚„бˆÆc‡" [candidates 0 nil num i clm 10 format "(%d)" " " 9 "0" 49 "." char-to-string fboundp " (1) 0." key quail-current-key] 5]) #@54 Show brief description of the current quail-pacakge. (defalias 'quail-help #[nil "À\nÃÄ!ÀŠ†ÈÄ!qˆƒ(\n=ƒ(É‚ŽpÊ ˆË\n8cˆÌ\n8ƒ?Í ˆÎcˆÏ\n8†JÑÔWƒfÕ\"ˆT‰‚QÖ×!\"ÑÑÔWƒŠÕÙ#ˆT‰‚tebˆ*)Ú!‰ƒÊŠqˆ „ÆdÜ!Vƒ·ÝÜ!\"ˆ‚ÆeÞ!WƒÆÝß\"ˆ)‚Ïà!ˆÉ‰!\"ŠãÑ!ˆqˆdÜ!VƒíÀ\"‚ùeÞ!WƒùÀ!)\"ƒäåæ!!‚!…äåç!!.‡" [t quail-keep-state quail-current-package get-buffer "*Quail-Help*" first buf package get-buffer-create nil erase-buffer 4 9 quail-show-layout "\n--- Key bindinds ---\n" 5 quail-sub-mode-map 0 i map 256 quail-describe-binding lookup-key vector meta-prefix-char meta get-buffer-window win window-end set-window-start window-start 1 quail-display-buffer down up sit-for quail-message substitute-command-keys "\\[quail-help] to scroll up *Quail-Help* buffer." "\\[quail-help] to show top of *Quail-Help* buffer."] 5 (#$ . 21960) nil]) (defalias 'quail-show-layout #[nil "ÀÂÄ`Ç @‰\nG  A@\fÍÍÍÍÍÍÔcˆŠ W…kbˆ\nHÕ\f\"A@‰ƒq ÖH\\yˆ ÇH_\\ÖH\\×H\\uˆ‚.ØWƒ‚Ç‚ÙWƒ•ØZÖ‚ÚWƒ¨ÙZׂÛWƒ»ÚZ‚ÜWƒÎÛZÇ‚ÝWƒáÜZÖ‚ÞWƒôÝZׂßWƒÞZ‚àZÄ \\yˆ _\\\\ÛWƒ*Ç‚+Ö\\uˆáÖ!ˆâ#8ƒ?ä!åæ!!‰…Sçè#8\"‰ƒ^‚`cˆT‰‚3.‡" [10 xoff 3 yoff 4 space p 0 i quail-keyboard-translate-table str len alist nil pos x y ch ch1 kmp "\n \n \n \n \n \n \n \n \n" assoc 1 2 13 25 37 47 60 72 84 94 90 delete-char 8 quail-current-package quail-translate-char quail-lookup-key char-to-string quail-get-candidate 6] 5]) (defalias 'quail-describe-binding #[(map i &optional meta) "À  !\"‰9…1Å\f!…1\fÆ>?…1ƒ!ÈcˆÉ !ʱˆËjˆÌ\f!ͱ)‡" [lookup-key map vector i cmd fboundp (quail-self-insert-command quail-self-insert-or-index) meta "ESC " single-key-description ":" 8 documentation "\n"] 5]) (byte-code "ÀÁÂ\"ˆÃ\fÅÆ#ˆÇÈÉÊ#ˆÇËÉÊ#ˆÇÌÉÊ#ˆÇÍÉÊ#‡" [global-set-key "" quail-mode define-key mule-keymap "M" quail-select-package put quail-defrule byte-hunk-handler eval qdv qd quail-define-package] 4) (defalias 'quail-setup-current-package #[nil "À‡" [nil] 1]) (defalias 'quail-setup-current-package-handler #[(ignore) "ÀÁ\nDD‡" [quail-add-package quote quail-current-package] 3]) (byte-code "ÀÁÂÃ#ˆÄÅ!‡" [put quail-setup-current-package byte-hunk-handler quail-setup-current-package-handler provide quail] 4)