;ELC ;;; compiled by nk@redqueen.bytechase.cx on Fri Oct 31 18:20:41 2003 ;;; from file /usr/local/users/nk/pkg-build/test/mule-packages/egg-its/egg-quail.el ;;; emacs version 21.4 (patch 14) "Reasonable Discussion" 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 "`egg-quail.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (require 'mule) ;;;###coding system: escape-quoted (byte-code "ÅÆ!ˆÇÈ!¬„ÉÊ!ˆÂ BË Ì\n C\"ˆÍ\nÎÏ#ˆÐ BÑÐ!¬…ÒÐÓ\"ˆÔÐ!ˆÕ BÑÕ!¬…ÒÕÖ\"ˆÄ BË Ì C\"ˆ×ØÙ #ˆÍ ÚÛ#ˆÍ ÜÛ#ˆÍ ÝÛ#ˆÍ Þß#ˆÍ àß#ˆÍ áß#ˆÍ âß#‡" [henkan-mode-map quail-mode-map quail-mode-egg-map current-load-list quail-henkan-mode-map require quail featurep egg error "You don't have EGG feature." make-keymap set-keymap-parents define-key " " quail-henkan-region quail-henkan-start default-boundp set-default nil make-variable-buffer-local quail-henkan-start-char ?$(B!~(B substitute-key-definition self-insert-command quail-henkan-kakutei-and-self-insert " " quail-henkan-kakutei " " " " "" quail-henkan-quit "" "" "g"] 4) (defalias 'quail-henkan-mark #[nil "Ã\n!«ˆÃ\n!Ä\n!|ˆÅ ˆÆ c‡" [quail-henkan-start-char quail-henkan-start quail-overlay overlay-start overlay-end quail-init-state point-marker] 3 "\ Set mark at the current position to indicate starting point of henkan." nil]) (defalias 'quail-henkan-region #[nil "Æ !«ˆÆ !Ç !|ˆÈ ˆ ­¥É  bˆg\nU«“ÊË!ˆ W«Š Ì \"ˆ)ªƒ bˆÍ‰)‡" [henkan-mode-map quail-henkan-mode-map quail-henkan-start-char quail-overlay pos quail-henkan-start overlay-start overlay-end quail-init-state point-marker delete-char 1 henkan-region nil] 3 nil nil]) (defalias 'quail-henkan-kakutei-and-self-insert #[nil " C ‡" [unread-command-events last-command-event quail-henkan-kakutei] 1 nil nil]) (defalias 'quail-henkan-reset #[nil "Æ !ˆÇ ˆ bˆ \nGZ G\\|ˆ ȉ“ˆ ȉ“ˆÈÉ ˆÊË !ˆÌ ‡" [quail-henkan-start egg:henkan-close egg:henkan-open bunsetu-number egg:region-end egg:region-start egg:bunsetu-attribute-off egg:henkan-attribute-off nil quail-init-state use-local-map quail-mode-map egg:mode-line-display] 3]) (defalias 'quail-henkan-kakutei #[nil "à ˆÄÅ ‰ W«’Æ\n!@cˆ¬ƒÇ ˆ\nT‰ªj*È ˆÉ ‡" [overwrite-mode max i quail-henkan-reset 0 wnn-server-bunsetu-suu wnn-server-bunsetu-kanji undo-boundary wnn-server-hindo-update egg:mode-line-display] 3 nil nil]) (defalias 'quail-henkan-quit #[nil "Á ˆcˆÂ ˆÃ ‡" [egg:kanji-kanabuff quail-henkan-reset wnn-server-henkan-quit egg:mode-line-display] 1 nil nil])