;ELC ;;; compiled by handa@mule on Thu Oct 22 11:09:30 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/wnn-egg.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 "`wnn-egg.el' was compiled for Emacs 19.29 or later")) (byte-code "!!" [make-variable-buffer-local wnn-server-type cwnn-zhuyin] 2) #@49 *ʸɽ˒ђ face ޒ nil (defvar egg:*sho-bunsetu-face* nil (#$ . -558)) (byte-code "! \fB#!" [make-variable-buffer-local boundp egg:*sho-bunsetu-overlay* nil current-load-list put variable-documentation "ʸᒤΒɽ˒Ȓ overlay"] 5) #@42 *ʸᒤΒڒ꒤򒼨ʸ (defvar egg:*sho-bunsetu-kugiri* "-" (#$ . -849)) #@49 *ʸɽ˒ђ face ޒ nil (defvar egg:*dai-bunsetu-face* nil (#$ . -946)) (byte-code "! \fB#!" [make-variable-buffer-local boundp egg:*dai-bunsetu-overlay* nil current-load-list put variable-documentation "ʸᒤΒɽ˒Ȓ overlay"] 5) #@42 *ʸᒤΒڒ꒤򒼨ʸ (defvar egg:*dai-bunsetu-kugiri* " " (#$ . -1237)) #@49 *ђΒ蒤ɽ face ޒ nil (defvar egg:*henkan-face* nil (#$ . -1335)) (byte-code "! \fB#!" [make-variable-buffer-local boundp egg:*henkan-overlay* nil current-load-list put variable-documentation "ђΒ蒤Βɽ˒Ȓ overlay"] 5) #@36 *ђΒϒ򒼨ʸ (defvar egg:*henkan-open* "|" (#$ . -1620)) #@36 *ђΒ򒼨ʸ (defvar egg:*henkan-close* "|" (#$ . -1705)) (byte-code "! B‡" [boundp egg:henkan-mode-in-use nil current-load-list] 2) (defalias 'its:select-mode #[(name) " ! ! ! " [its:get-mode-map name its:*current-map* egg:mode-line-display run-hooks its:select-mode-hook beep] 2 nil (list (completing-read "ITS mode: " its:*mode-alist*))]) (defalias 'its:select-mode-from-menu #[nil "AA ! !" [its:*select-mode-menu* its:*mode-alist* menu:select-from-menu its:*current-map* egg:mode-line-display run-hooks its:select-mode-hook] 2 nil nil]) (byte-code "! B" [boundp its:select-mode-hook #[nil "!=\fÉ!=lj!=*ʉ!=5̉" [its:*current-map* its:get-mode-map "roma-kana" jserver wnn-server-type "PinYin" cserver nil cwnn-zhuyin "zhuyin" t "hangul" kserver] 3] current-load-list] 2) (defalias 'its:next-mode #[nil " \n\"T\nG\n8 !)" [its:find its:*current-map* its:*standard-modes* pos egg:mode-line-display run-hooks its:select-mode-hook] 4 nil nil]) (defalias 'its:previous-mode #[nil " \n\"U\nG S\n8 !)" [its:find its:*current-map* its:*standard-modes* pos 0 egg:mode-line-display run-hooks its:select-mode-hook] 4 nil nil]) (defalias 'read-current-its-string #[(prompt &optional initial-input henkan) " ! q\f!A@! \f ?(#+" [its:*current-map* window-buffer minibuffer-window minibuff old-its-map t egg:*input-mode* egg:*mode-on* mode-line-egg-mode-update its:get-mode-indicator read-from-minibuffer prompt initial-input henkan egg:*minibuffer-local-hiragana-map*] 4]) #@39 Jserver host name currently connected (defvar wnn-host-name nil (#$ . 3327)) #@39 Cserver host name currently connected (defvar cwnn-host-name nil (#$ . 3410)) #@39 Kserver host name currently connected (defvar kwnn-host-name nil (#$ . 3494)) #@28 *List of jserver host name (defvar jserver-list nil (#$ . -3578)) #@28 *List of cserver host name (defvar cserver-list nil (#$ . -3650)) #@28 *List of kserver host name (defvar kserver-list nil (#$ . -3722)) (byte-code "! B! B!  B!- B‡" [boundp jserver-host-name nil current-load-list egg:*sai-henkan-start* egg:*sai-henkan-end* egg:*old-bunsetu-suu*] 2) (defalias 'wnn-egg:kill-emacs-function #[nil "   )" [nil wnn-server-type jserver close-wnn cserver kserver] 1]) (add-hook (quote kill-emacs-hook) (quote wnn-egg:kill-emacs-function)) (defalias 'egg:error #[(form &rest mesg) "\n\f#\n\f#" [apply notify form "%s" mesg error] 4]) (defalias 'egg:msg-get #[(message) " \n \"A@\"A@\n #" [assoc message wnn-server-type *egg-message-alist* format "No message. Check *egg-message-alist* %s %s"] 5]) (byte-code "! B" [boundp *egg-message-alist* ((jserver ((open-wnn "ے %s Wnn 򒵯ưޒ") (no-rcfile "%s 咤 egg-startup-file ꒤ޒ󒡣") (file-saved "WnnΒђْ󒡦򒤷ޒ") (henkan-mode-indicator "") (begin-henkan "ђϒʸ: ") (end-henkan "ђλʸ: ") (kugiri-dai "ʸᒶڒʸ: ") (kugiri-sho "ʸᒶڒʸ: ") (face-henkan "ђ蒴֒ɽ°: ") (face-dai "ʸᒶ蒴֒ɽ°: ") (face-sho "ʸᒶ蒴֒ɽ°: ") (jikouho ":") (off-msg "%s %s(%s:%s) off ޒ") (henkan-help "ђ⒡:\nʸᒰܒư\n \\[henkan-first-bunsetu] Ƭʸ \\[henkan-last-bunsetu] ʸ \n \\[henkan-backward-bunsetu] ľʸ \\[henkan-forward-bunsetu] ľʸ\nђђ\n ʸᒼ \\[henkan-next-kouho-dai] ʸᒼ \\[henkan-next-kouho-sho]\n \\[henkan-previous-kouho] \\[henkan-next-kouho]\n ʸᒿ \\[henkan-bunsetu-nobasi-dai] ʸᒽ̒ \\[henkan-bunsetu-chijime-dai]\n ʸᒿ \\[henkan-bunsetu-nobasi-sho] ʸᒽ̒ \\[henkan-bunsetu-chijime-sho]\n ʸђ \\[henkan-select-kouho-dai] ʸђ \\[henkan-select-kouho-sho]\nђΒ\n ʸᒳΒ \\[henkan-kakutei] ľʸᒤޒǒΒ \\[henkan-kakutei-before-point]\nђ撻 \\[henkan-quit]\n") (hinsimei "ʒ̾:") (jishotouroku-yomi "ВϿ%s ɒ :") (touroku-jishomei "ВϿ̾:") (registerd "ܒ%s(%s: %s)%s˒ВϿޒ") (yomi "蒤ߒ") (no-yomi "ܒ%sْϒ꒤ޒ󒡣") (jisho "񒡧") (hindo " ђْ") (kanji "") (register-notify "ܒ%s(%s: %s)%s˒ВϿޒ") (cannot-remove "ƒܒϒǒޒ󒡣") (enter-hindo "ђْ쒤ƒ: ") (remove-notify "%s(%s)%s钺ޒ") (removed "%s(%s)%s钺ޒ") (jishomei "̾:") (comment "ᒥ: ") (jisho-comment ":%s: ᒥ:%s") (param (" ( ) ʸᒲϒΒ" "ʸ撤ΒʸᒤΒǒ璿" "쒤ΒђْΒђ钥ᒡ" "ʸĹΒђ钥ᒡ" "ĹΒђ钥ᒡ" "ȒÒ蒥ӒÒȒΒђ钥ᒡ" "Βђ钥ᒡ" "ʸᒤΒɾ͒Βђ钥ᒡ" "ʸĹΒђ钥ᒡ" "ʸᒿΒђ钥ᒡ" "ʒ Βђ" "ʒ ʒΒђ" "ʒ ђΒђ" "ʒ 撤Βђ" "ʒ Ē璸̒Βђ" "ʒ Ւ°쒤Βђ" "ʒ 璸̒Βђ")))) (cserver ((open-wnn "Host %s ϑ cWnn ё𑶯") (no-rcfile "%s ϑû egg-startup-file") (file-saved "WnnđƵȑđ͑ǑőϢёˑ") (henkan-mode-indicator "") (begin-henkan "䑻ʼ֑: ") (end-henkan "䑻֑: ") (kugiri-dai "ʑ鑷֑֑: ") (kugiri-sho "ʑ֑֑: ") (face-henkan "䑻䑱ʾ: ") (face-dai "ʑ䑱ʾ: ") (face-sho "ʑ䑱ʾ: ") (jikouho "Αѡ:") (off-msg "%s %s(%s:%s)ё off ") (henkan-help "֑䑻ģʽ:\nʑƑ\n \\[henkan-first-bunsetu] ȑͷʑ \\[henkan-last-bunsetu] βʑ\n \\[henkan-backward-bunsetu] ǰһʑ \\[henkan-forward-bunsetu] ‘һʑ\n䑻䑸\n ʑ鑴Αѡ \\[henkan-next-kouho-dai] ʑΑѡ \\[henkan-next-kouho-sho]\n ǰѡ \\[henkan-previous-kouho] Αѡ \\[henkan-next-kouho]\n ʑչ \\[henkan-bunsetu-nobasi-dai] ʑՑ \\[henkan-bunsetu-chijime-dai]\n ʑչ \\[henkan-bunsetu-nobasi-sho] ʑՑ \\[henkan-bunsetu-chijime-sho]\n ʑ鑱䑻򑲹đѡ \\[henkan-select-kouho-dai] ʑ䑻򑲹đѡ \\[henkan-select-kouho-sho]\n 䑻򑲹đѡ \\[henkan-select-kouho-dai]\n䑻ȷ\n ȫđȷ \\[henkan-kakutei] ϑһʑΪֹđȷ \\[henkan-kakutei-before-point]\nֹͣ䑻 \\[henkan-quit]\n") (hinsimei "ʑԑ:") (jishotouroku-yomi "Ǒ䑵Ǒ¼%sƴ :") (touroku-jishomei "Ǒ¼Ǒ:") (registerd "ǑĿ%s(%s: %s)ёǑ¼ %s Б") (yomi "ƴ") (no-yomi "ǑĿ%s") (jisho "Ǒ:") (hindo " ƵȒ") (kanji "֒") (register-notify "ǑĿ%s(%s: %s)ҪǑ¼ %s ") (cannot-remove "ϵͳǑܑ") (enter-hindo "Ƶ: ") (remove-notify "ǑĿ%s(%s)Ҫ %s Б") (removed "ǑĿ%s(%s)ё%sБ") (jishomei "Ǒ:") (comment "ע: ") (jisho-comment "Ǒ:%s: ע:%s") (param ("ʑ鑸" "ʑБʑđ" "ƵȑȨֵ" "ʑȑȨֵ" "đȷȑȨֵ" "ՑőÑȨֵ" "֑őȑȨֵ" "ʑۑֵȨֵ" "ʑ鑳Ȩֵ" "ʑБʑȨֵ" "֑đƵ" "Ӣđ֑ĸđƵ" "ǑőđƵ" "đƵ" "ՑđƵ" "򑲹" "")))) (kserver ((open-wnn "ȣƮ %s kWnn Ѧѓߓϓ.") (no-rcfile "%s egg-startup-file ϓ.") (file-saved "kWnn ޺דÓדÓ œϓ.") (henkan-mode-indicator "") (begin-henkan "ܨ ғ : ") (end-henkan "ܨ : ") (kugiri-dai "ޓ ϡܬ : ") (kugiri-sho "᳓ ϡܬ : ") (face-henkan "ܨ ϡ Փ: ") (face-dai "ޓ ϡ Փ: ") (face-sho "᳓ ϡ Փ: ") (jikouho "ٓ :") (off-msg "%s %s(%s:%s) off ߓϓ.") (henkan-help "ӓ ܨ :\n 칓\n \\[henkan-first-bunsetu] ໓ \\[henkan-last-bunsetu] ڭ \n \\[henkan-backward-bunsetu] \\[henkan-forward-bunsetu] \nܨ ܨ\n ޓ ٓ \\[henkan-next-kouho-dai] ᳓ ٓ \\[henkan-next-kouho-sho]\n \\[henkan-previous-kouho] ٓ \\[henkan-next-kouho]\n ޓ \\[henkan-bunsetu-nobasi-dai] ޓ \\[henkan-bunsetu-chijime-dai]\n ᳓ \\[henkan-bunsetu-nobasi-sho] ᳓ \\[henkan-bunsetu-chijime-sho]\n ޓ ܨ ٓ \\[henkan-select-kouho-dai] ᳓ ܨ ٓ \\[henkan-select-kouho-sho]\nܨ \n \\[henkan-kakutei] ｓ \\[henkan-kakutei-before-point]\nܨ \\[henkan-quit]\n") (hinsimei "٣: ") (jishotouroku-yomi " ⓡ%s ѓ: ") (touroku-jishomei " ٣: ") (registerd " ͓%s(%s: %s) %s ߓϓ.") (yomi "ѓ: ") (no-yomi " %s ϓ.") (jisho ": ") (hindo " ޺: ") (kanji "ӓ: ") (register-notify " %s(%s: %s) %s ϓړϓ.") (cannot-remove "Ó ͓ ἓۓ ϓ.") (enter-hindo "޺ ϓʓÓ: ") (remove-notify " %s(%s) %sΓ ἓۓϓړϓ.") (removed " %s(%s) %sΓ ἓۓߓϓ.") (jishomei "٣: ") (comment "ɓ: ") (jisho-comment ":%s: ɓ:%s") (param ("N () ఓ N" "ޓ ȓ ᳓ ̓ޓ" "ϓޓ ޺ Г̓" "᳓ Г̓" "ϓޓ Г̓" " œēߓϓ Ʈ Г̓" " Г̓" "᳓ｓ ēʤ Г̓" "ޓ Г̓" "᳓ Г̓" "ʣ : ⦓ ޺" "ʣ : ѓۓ ޺" "ʣ : ȓ⦓ ޺" "ʣ : ܓ ޺" "ʣ : ͓ ޺" "ʣ : ݾՓޓ ޺" "ʣ : ғ ޺"))))) current-load-list] 2) #@68 skip wnn environment setting when the same name environment exists (defvar skip-wnn-setenv-if-env-exist nil (#$ . 12681)) (defalias 'push-end '(macro . #[(val loc) " DE" [push-end-internal val quote loc] 4])) (defalias 'push-end-internal #[(val loc) "!!\nB\nBL" [loc eval val nil] 4]) (defalias 'is-wnn6-server #[nil " U" [wnn-server-version 61697] 2]) (defalias 'add-wnn-dict #[(dfile hfile priority dmode hmode &optional dpaswd hpaswd) "\n! !\f &? !" [wnn-server-dict-add substitute-in-file-name dfile hfile priority dmode hmode dpaswd hpaswd egg:error wnn-server-get-msg] 8]) (defalias 'set-wnn-fuzokugo #[(ffile) "\n!!? !" [wnn-server-fuzokugo-set substitute-in-file-name ffile egg:error wnn-server-get-msg] 3]) (defalias 'set-wnn-param #[(&rest param) " !?  @(\f@P@!\"!* @ BA\fA ; A\n \"+" [wnn-server-get-param nil egg:msg-get param message new-param current-param string-to-int read-from-minibuffer ": " int-to-string apply wnn-server-set-param] 5 nil nil]) (defalias 'add-wnn-fisys-dict #[(dfile hfile hmode &optional hpaswd) "\n! !\f $? !" [wnn-server-fisys-dict-add substitute-in-file-name dfile hfile hmode hpaswd egg:error wnn-server-get-msg] 5]) (defalias 'add-wnn-fiusr-dict #[(dfile hfile dmode hmode &optional dpaswd hpaswd) "\n! !\f &? !" [wnn-server-fiusr-dict-add substitute-in-file-name dfile hfile dmode hmode dpaswd hpaswd egg:error wnn-server-get-msg] 7]) (defalias 'add-wnn-notrans-dict #[(dfile priority dmode &optional dpaswd) "\n! \f $? !" [wnn-server-notrans-dict-add substitute-in-file-name dfile priority dmode dpaswd egg:error wnn-server-get-msg] 5]) (defalias 'add-wnn-bmodify-dict #[(dfile priority dmode &optional dpaswd) "\n! \f $? !" [wnn-server-bmodify-dict-add substitute-in-file-name dfile priority dmode dpaswd egg:error wnn-server-get-msg] 5]) (defalias 'set-last-is-first-mode #[(mode) " !? !" [wnn-server-set-last-is-first mode egg:error wnn-server-get-msg] 2]) (defalias 'set-complex-conv-mode #[(mode) " !? !" [wnn-server-set-complex-conv-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'set-okuri-learn-mode #[(mode) " !? !" [wnn-server-set-okuri-learn-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'set-okuri-flag #[(mode) " !? !" [wnn-server-set-okuri-flag mode egg:error wnn-server-get-msg] 2]) (defalias 'set-prefix-learn-mode #[(mode) " !? !" [wnn-server-set-prefix-learn-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'set-prefix-flag #[(mode) " !? !" [wnn-server-set-prefix-flag mode egg:error wnn-server-get-msg] 2]) (defalias 'set-suffix-learn-mode #[(mode) " !? !" [wnn-server-set-suffix-learn-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'set-common-learn-mode #[(mode) " !? !" [wnn-server-set-common-learn-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'set-freq-func-mode #[(mode) " !? !" [wnn-server-set-freq-func-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'set-numeric-mode #[(mode) " !? !" [wnn-server-set-numeric-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'set-alphabet-mode #[(mode) " !? !" [wnn-server-set-alphabet-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'set-symbol-mode #[(mode) " !? !" [wnn-server-set-symbol-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'set-yuragi-mode #[(mode) " !? !" [wnn-server-set-yuragi-mode mode egg:error wnn-server-get-msg] 2]) (defalias 'wnn6-reset-prev-info #[nil " ?\n !" [wnn-reset-previous-info egg:error wnn-server-get-msg] 2]) (defalias 'make-host-list '(macro . #[(name list) " EE" [cons name delete list] 5])) (defalias 'set-wnn-host-name #[(name) " ) !C\"B" [jserver wnn-server-type close-wnn name delete jserver-list wnn-host-name jserver-host-name getenv "JSERVER"] 5 nil "sHost name: "]) (byte-code "KM" [set-jserver-host-name set-wnn-host-name] 2) (defalias 'set-cwnn-host-name #[(name) " ) !C\"B" [cserver wnn-server-type close-wnn name delete cserver-list cwnn-host-name getenv "CSERVER"] 5 nil "sHost name: "]) (byte-code "KM" [set-cserver-host-name set-cwnn-host-name] 2) (defalias 'set-kwnn-host-name #[(name) " ) !C\"B" [kserver wnn-server-type close-wnn name delete kserver-list kwnn-host-name getenv "KSERVER"] 5 nil "sHost name: "]) (byte-code "KM" [set-kserver-host-name set-kwnn-host-name] 2) (defalias 'open-wnn-if-disconnected #[nil " ?T = J\f !CJ =6 J\n2!CJ =J JI!C ԍ*" [wnn-server-isconnect wnn-server-type jserver jserver-list wnn-host-name jserver-host-name getenv "JSERVER" cserver cserver-list cwnn-host-name "CSERVER" kserver kserver-list kwnn-host-name "KSERVER" user-login-name loginname hostlist succ (byte-code "<@ \"4\f= /\f=& /\f=/ \n \")A !" [hostlist hostname wnn-server-open loginname wnn-server-type jserver wnn-host-name cserver cwnn-host-name kserver kwnn-host-name throw succ egg:error wnn-server-get-msg] 4)] 2]) #@41 *Egg startup file name (system default) (defvar egg-default-startup-file "eggrc" (#$ . -17818)) #@25 *Egg startup file name. (defvar egg-startup-file ".eggrc" (#$ . -17920)) #@84 *List of directories to search for egg-startup-file whose name defaults to .eggrc. (defvar egg-startup-file-search-path (quote ("~" ".")) (#$ . -17999)) (defalias 'egg:search-file #[(filename searchpath) " ! !!\f!\f)Ǎ" [file-name-directory filename substitute-in-file-name expand-file-name file file-exists-p answer (byte-code "'@;\f \"! ! \"))Aɇ" [searchpath path substitute-in-file-name expand-file-name filename file file-exists-p throw answer nil] 5)] 3]) (defalias 'EGG:open-wnn #[nil " ! \f\"\"   \"%\f\" 1 M > !M )! \"!+" [open-wnn-if-disconnected host notify egg:msg-get open-wnn "local" append egg-startup-file-search-path load-path path egg:search-file egg-startup-file egg-default-startup-file eggrc skip-wnn-setenv-if-env-exist wnn-server-dict-list load-file nil wnnenv-sticky wnn-server-close egg:error no-rcfile run-hooks egg:open-wnn-hook] 3]) (defalias 'disconnect-wnn #[nil "  " [wnn-server-isconnect wnn-server-close] 1 nil nil]) (defalias 'close-wnn #[nil " A! !! !!! 2!!7 !! !" [wnn-server-isconnect wnn-server-set-rev nil wnn-server-dict-save message egg:msg-get file-saved wnn-server-get-msg sit-for 0 t wnn-server-close run-hooks egg:close-wnn-hook] 3 nil nil]) (defalias 'set-wnn-reverse #[(arg) " !" [wnn-server-set-rev arg] 2]) (byte-code "! B! B!! B!. B!; B‡" [boundp egg:*kanji-kanabuff* nil current-load-list egg:*dai* t *bunsetu-number* *zenkouho-suu* *zenkouho-offset*] 2) (defalias 'bunsetu-length-sho #[(number) " !A" [wnn-server-bunsetu-yomi number] 2]) (defalias 'bunsetu-length #[(number) " ! T !\f W \f!\\\fT\f +" [wnn-server-dai-end number bunsetu-length-sho l i max] 5]) (defalias 'bunsetu-position #[(number) "\n\fW) \n!G\\\nT!G G\\\nT *" [egg:*region-start* 0 i pos number bunsetu-kanji wnn-server-dai-top egg:*dai-bunsetu-kugiri* egg:*sho-bunsetu-kugiri*] 4]) (defalias 'bunsetu-kanji #[(number) " !@" [wnn-server-bunsetu-kanji number] 2]) (defalias 'bunsetu-yomi #[(number) " !@" [wnn-server-bunsetu-yomi number] 2]) (defalias 'bunsetu-kouho-suu #[(bunsetu-number init) " \nU\n\f\" " [init wnn-server-zenkouho-bun bunsetu-number wnn-server-zenkouho egg:*dai* *zenkouho-offset* wnn-server-zenkouho-suu *zenkouho-suu*] 3]) (defalias 'bunsetu-kouho-list #[(bunsetu-number init) " \nU\n\f\" S \n\nX3\n! B \nS\n *" [init wnn-server-zenkouho-bun bunsetu-number wnn-server-zenkouho egg:*dai* *zenkouho-offset* wnn-server-zenkouho-suu *zenkouho-suu* nil val i 0 wnn-server-get-zenkouho] 3]) (defalias 'bunsetu-kouho-number #[(bunsetu-number init) " \nU\n\f\" " [init wnn-server-zenkouho-bun bunsetu-number wnn-server-zenkouho egg:*dai* *zenkouho-offset*] 3]) (defalias 'egg:henkan-face-on #[nil "\n!ĉʼn%\n#\n\n #" [egg:*henkan-face* overlayp egg:*henkan-overlay* make-overlay 1 nil t overlay-put face move-overlay egg:*region-start* egg:*region-end*] 6]) (defalias 'egg:henkan-face-off #[nil " \n! \n!" [egg:*henkan-face* overlayp egg:*henkan-overlay* delete-overlay] 2]) #@72 Convert a text in the region between START and END from kana to kanji. (defalias 'henkan-region #[(start end) "t`!\n \"" [set-mark henkan-region-internal start end] 3 (#$ . 21237) "r"]) #@72 Convert a text in the region between START and END from kanji to kana. (defalias 'gyaku-henkan-region #[(start end) "t`!\n #" [set-mark henkan-region-internal start end t] 4 (#$ . 21436) "r"]) (defalias 'henkan-region-internal #[(start end &optional rev) "?Î  { , )\f, ! !I !\nV\n!!b!e !v \"! !!#|b$c`%cb 'GZ|(G\\|b$c`b`)%c))b|\" !/!!)ĉ*" [egg:henkan-mode-in-use nil finished ((byte-code "\f\f" [finished nil disable-undo egg:henkan-mode-in-use] 2)) t wnn-server-isconnect EGG:open-wnn start end egg:*kanji-kanabuff* is-wnn6-server egg:*henkan-fence-mode* *in-cont-flag* wnn6-reset-prev-info 0 *bunsetu-number* egg:*dai* wnn-server-set-rev rev wnn-server-henkan-begin result egg:error wnn-server-get-msg mode-line-egg-mode-update egg:msg-get henkan-mode-indicator markerp egg:*region-start* make-marker egg:*region-end* set-marker-insertion-type marker-position current-local-map egg:*local-map-backup* boundp disable-undo egg:*henkan-open* egg:*henkan-close* egg:fence-face-off egg:*fence-open* egg:*fence-close* point henkan-insert-kouho egg:henkan-face-on egg:bunsetu-face-on henkan-goto-bunsetu use-local-map henkan-mode-map run-hooks egg:henkan-start-hook] 4]) #@51 Convert the current paragraph from kana to kanji. (defalias 'henkan-paragraph #[nil " ` ` \")" [forward-paragraph end backward-paragraph henkan-region-internal] 3 (#$ . 22825) nil]) #@51 Convert the current paragraph from kanji to kana. (defalias 'gyaku-henkan-paragraph #[nil " ` ` #)" [forward-paragraph end backward-paragraph henkan-region-internal t] 4 (#$ . 23020) nil]) #@50 Convert the current sentence from kana to kanji. (defalias 'henkan-sentence #[nil " ` ` \")" [forward-sentence end backward-sentence henkan-region-internal] 3 (#$ . 23223) nil]) #@50 Convert the current sentence from kanji to kana. (defalias 'gyaku-henkan-sentence #[nil " ` ` #)" [forward-sentence end backward-sentence henkan-region-internal t] 4 (#$ . 23414) nil]) #@46 Convert the current word from kana to kanji. (defalias 'henkan-word #[nil "#`#\f`\")" [re-search-backward "\\<" nil t start re-search-forward "\\>" henkan-region-internal] 4 (#$ . 23613) nil]) #@46 Convert the current word from kanji to kana. (defalias 'gyaku-henkan-word #[nil "#`#\f`#)" [re-search-backward "\\<" nil t start re-search-forward "\\>" henkan-region-internal] 4 (#$ . 23825) nil]) #@541 ђ mode Βɽˡߒ꒤뒡OPEN ϒђΒϒ򒼨ʸޒ nil CLOSEϒђΒ򒼨ʸޒ nil KUGIRI-DAIϒʸᒤΒڒ꒤ɽʸޒ nil KUGIRI-SHOϒʸᒤΒڒ꒤ɽʸޒ nil optional HENKAN-FACE ϒђ蒴֒ɽ face ޒ nil optional DAI-BUNSETU-FACE ϒʸᒶ蒴֒ɽ face ޒ nil optional SHO-BUNSETU-FACE ϒʸᒶ蒴֒ɽ face ޒ nil (defalias 'set-egg-henkan-mode-format #[(open close kugiri-dai kugiri-sho &optional henkan-face dai-bunsetu-face sho-bunsetu-face) "; \"\f;\f!\f&\f\";1<7 B\" ;M X S\f^ \"k >!#\" >!#\" >!#\"" [open egg:*henkan-open* egg:error "Wrong type of arguments(open): %s" close egg:*henkan-close* "Wrong type of arguments(close): %s" kugiri-dai "" egg:*dai-bunsetu-kugiri* "Wrong type of arguments(kugiri-dai): %s" kugiri-sho egg:*sho-bunsetu-kugiri* "Wrong type of arguments(kugiri-sho): %s" henkan-face face-list egg:*henkan-face* overlayp egg:*henkan-overlay* overlay-put face "Wrong type of arguments(henkan-face): %s" dai-bunsetu-face egg:*dai-bunsetu-face* egg:*dai-bunsetu-overlay* "Wrong type of arguments(dai-bunsetu-face): %s" sho-bunsetu-face egg:*sho-bunsetu-face* egg:*sho-bunsetu-overlay* "Wrong type of arguments(sho-bunsetu-face): %s"] 4 (#$ . 24044) (list (read-string (egg:msg-get (quote begin-henkan))) (read-string (egg:msg-get (quote end-henkan))) (read-string (egg:msg-get (quote kugiri-dai))) (read-string (egg:msg-get (quote kugiri-sho))) (cdr (assoc (completing-read (egg:msg-get (quote face-henkan)) egg:*face-alist*) egg:*face-alist*)) (cdr (assoc (completing-read (egg:msg-get (quote face-dai)) egg:*face-alist*) egg:*face-alist*)) (cdr (assoc (completing-read (egg:msg-get (quote face-sho)) egg:*face-alist*) egg:*face-alist*)))]) (defalias 'henkan-insert-kouho #[(start number) "\nW/ !@ T\nUĂ% T!#% T)" [start i number wnn-server-bunsetu-kanji "" wnn-server-dai-top egg:*dai-bunsetu-kugiri* egg:*sho-bunsetu-kugiri*] 4]) (defalias 'henkan-kakutei #[nil " \n GZ\n|\n\f|\f G\\|\nb`  \n  \n WI\n!@c @ \nT\n+*`  !" [egg:bunsetu-face-off egg:henkan-face-off egg:*region-start* egg:*henkan-open* egg:*region-end* egg:*henkan-close* egg:*sai-henkan-start* 0 wnn-server-bunsetu-suu max i egg:*old-bunsetu-suu* wnn-server-bunsetu-kanji overwrite-mode undo-boundary egg:*sai-henkan-end* wnn-server-hindo-update nil egg:henkan-mode-in-use egg:quit-egg-mode run-hooks egg:henkan-end-hook] 4 nil nil]) #@59 ΒʸΒǒ钤Βʸޒ뒡 (defalias 'henkan-kakutei-first-char #[nil " \n GZ\n|\n\f|\f G\\|\nb!@c) \nbu`\f|  " [egg:bunsetu-face-off egg:henkan-face-off egg:*region-start* egg:*henkan-open* egg:*region-end* egg:*henkan-close* wnn-server-bunsetu-kanji 0 overwrite-mode undo-boundary 1 wnn-server-hindo-update nil egg:henkan-mode-in-use egg:quit-egg-mode] 3 (#$ . 26843) nil]) (defalias 'henkan-kakutei-before-point #[nil " \n |\nb W2!@c ) T* !\n\fGZ\n| c\n`Γ G\\| b`c Γ)\nb ` W!@cTsb+! " [egg:bunsetu-face-off egg:henkan-face-off egg:*region-start* egg:*region-end* 0 *bunsetu-number* max i wnn-server-bunsetu-kanji overwrite-mode undo-boundary wnn-server-hindo-update egg:*henkan-open* egg:*fence-open* nil egg:*henkan-close* point egg:*fence-close* egg:fence-face-on wnn-server-bunsetu-suu wnn-server-bunsetu-yomi t egg:*mode-on* egg:henkan-mode-in-use use-local-map fence-mode-map egg:mode-line-display] 4 nil nil]) (defalias 'sai-henkan #[nil "?^Î!!b \n!\"\f |bc`cb\" !!ĉ*" [egg:henkan-mode-in-use nil finished ((byte-code "\f\f" [finished nil disable-undo egg:henkan-mode-in-use] 2)) t mode-line-egg-mode-update egg:msg-get henkan-mode-indicator egg:*sai-henkan-start* current-local-map egg:*local-map-backup* boundp disable-undo egg:*sai-henkan-end* egg:*henkan-open* egg:*region-start* egg:*henkan-close* egg:*region-end* henkan-insert-kouho 0 egg:*old-bunsetu-suu* egg:henkan-face-on egg:bunsetu-face-on henkan-goto-bunsetu use-local-map henkan-mode-map] 3 nil nil]) (defalias 'egg:bunsetu-face-on #[nil " C!!ʉ\"#! !1 S% ! S! S!G\\#!]ʉ\"#T!=z!T\\|) S! S!G\\#+" [*bunsetu-number* bunsetu-begin nil bunsetu-end wnn-server-bunsetu-suu bunsetu-suu egg:*dai-bunsetu-face* overlayp egg:*dai-bunsetu-overlay* make-overlay 1 overlay-put face wnn-server-dai-end wnn-server-dai-top move-overlay bunsetu-position bunsetu-kanji egg:*sho-bunsetu-face* egg:*sho-bunsetu-overlay* point modeline char-boundary-p] 6]) (defalias 'egg:bunsetu-face-off #[nil "\n!\n!\f ! !" [egg:*dai-bunsetu-face* overlayp egg:*dai-bunsetu-overlay* delete-overlay egg:*sho-bunsetu-face* egg:*sho-bunsetu-overlay*] 2]) (defalias 'henkan-goto-bunsetu #[(number) " S#\f!b " [check-number-range number 0 wnn-server-bunsetu-suu *bunsetu-number* bunsetu-position egg:bunsetu-face-on] 4]) (defalias 'henkan-forward-bunsetu #[nil " T!" [henkan-goto-bunsetu *bunsetu-number*] 2 nil nil]) (defalias 'henkan-backward-bunsetu #[nil " S!" [henkan-goto-bunsetu *bunsetu-number*] 2 nil nil]) (defalias 'henkan-first-bunsetu #[nil "!" [henkan-goto-bunsetu 0] 2 nil nil]) (defalias 'henkan-last-bunsetu #[nil " S!" [henkan-goto-bunsetu wnn-server-bunsetu-suu] 2 nil nil]) (defalias 'check-number-range #[(i min max) " W\n\nW " [i min max] 2]) (defalias 'henkan-hiragana #[nil "\n\"Z!" [henkan-goto-kouho bunsetu-kouho-suu *bunsetu-number* nil 1] 4 nil nil]) (defalias 'henkan-katakana #[nil "\n\"Z!" [henkan-goto-kouho bunsetu-kouho-suu *bunsetu-number* nil 2] 4 nil nil]) (defalias 'henkan-next-kouho #[nil "\n\"T!" [henkan-goto-kouho bunsetu-kouho-number *bunsetu-number* nil] 4 nil nil]) (defalias 'henkan-next-kouho-dai #[nil "? \"T!)" [egg:*dai* init t henkan-goto-kouho bunsetu-kouho-number *bunsetu-number*] 4 nil nil]) (defalias 'henkan-next-kouho-sho #[nil " \"T!)" [egg:*dai* init nil henkan-goto-kouho bunsetu-kouho-number *bunsetu-number*] 4 nil nil]) (defalias 'henkan-previous-kouho #[nil "\n\"S!" [henkan-goto-kouho bunsetu-kouho-number *bunsetu-number* nil] 4 nil nil]) (defalias 'henkan-previous-kouho-dai #[nil "? \"S!)" [egg:*dai* init t henkan-goto-kouho bunsetu-kouho-number *bunsetu-number*] 4 nil nil]) (defalias 'henkan-previous-kouho-sho #[nil " \"S!)" [egg:*dai* init nil henkan-goto-kouho bunsetu-kouho-number *bunsetu-number*] 4 nil nil]) (defalias 'henkan-goto-kouho #[(kouho-number) "` !‰ \"GS#  \"  S] !| !b \f\"b, " [bunsetu-yomi *bunsetu-number* nil min max yomi point check-number-range kouho-number 0 bunsetu-kouho-list *zenkouho-offset* wnn-server-henkan-kakutei egg:*dai* wnn-server-bunsetu-suu bunsetu-position egg:*region-end* henkan-insert-kouho egg:bunsetu-face-on egg:henkan-face-on] 7]) (defalias 'henkan-bunsetu-chijime-dai #[nil " !U !S!" [t egg:*dai* bunsetu-length *bunsetu-number* 1 bunsetu-length-henko] 3 nil nil]) (defalias 'henkan-bunsetu-chijime-sho #[nil " !U !S!" [nil egg:*dai* bunsetu-length-sho *bunsetu-number* 1 bunsetu-length-henko] 3 nil nil]) (defalias 'henkan-bunsetu-nobasi-dai #[nil "\n \n! W+ !A\\ T U?9T!," [t egg:*dai* *bunsetu-number* wnn-server-bunsetu-suu bunsetu-length 0 maxlen len max i wnn-server-bunsetu-yomi bunsetu-length-henko] 5 nil nil]) (defalias 'henkan-bunsetu-nobasi-sho #[nil "\n \n! W+ !A\\ T U?9T!," [nil egg:*dai* *bunsetu-number* wnn-server-bunsetu-suu bunsetu-length-sho 0 maxlen len max i wnn-server-bunsetu-yomi bunsetu-length-henko] 5 nil nil]) (defalias 'henkan-saishou-bunsetu #[nil "!" [bunsetu-length-henko 1] 2 nil nil]) (defalias 'henkan-saichou-bunsetu #[nil " \f W \f!\\\fT !+" [wnn-server-bunsetu-suu *bunsetu-number* 0 l i max bunsetu-length-sho bunsetu-length-henko] 4 nil nil]) (defalias 'bunsetu-length-henko #[(length) "\n \f#\nS] !7V7 ! | !b \"\n!+" [0 wnn-server-bunsetu-henkou *bunsetu-number* length egg:*dai* start r i egg:error wnn-server-get-msg bunsetu-position egg:*region-end* henkan-insert-kouho henkan-goto-bunsetu] 5]) (defalias 'henkan-quit #[nil " \n GZ\n|\n\f|\f G\\|\nbc\n`Ǔc` \nc\f Ǔ)\fb ! " [egg:bunsetu-face-off egg:henkan-face-off egg:*region-start* egg:*henkan-open* egg:*region-end* egg:*henkan-close* egg:*fence-open* nil egg:*kanji-kanabuff* point egg:*fence-close* egg:fence-face-on wnn-server-henkan-quit t egg:*mode-on* egg:henkan-mode-in-use use-local-map fence-mode-map egg:mode-line-display] 3 nil nil]) (defalias 'henkan-select-kouho #[(init) " =P \f\"! \f < @ B\fB\f T  A #\f!+E \"\"!* " [selected-window minibuffer-window bunsetu-kouho-list *bunsetu-number* init nil menu kouho-list egg:msg-get jikouho 0 i r l reverse henkan-goto-kouho menu:select-from-menu bunsetu-kouho-number beep] 7]) (defalias 'henkan-select-kouho-dai #[nil "? !)" [egg:*dai* init t henkan-select-kouho] 2 nil nil]) (defalias 'henkan-select-kouho-sho #[nil " !)" [egg:*dai* init nil henkan-select-kouho] 2 nil nil]) (defalias 'henkan-word-off #[nil " ! !Z  !Y\n@\nA@\n8\n\n8\f\f\"8\f\n\"T!\n%X !-))" [wnn-server-inspect *bunsetu-number* info notify wnn-server-get-msg wnn-server-dict-list dic-list kanji yomi 3 serial 2 jisho-no assoc jisho-name wnn-server-word-use egg:msg-get off-msg egg:error] 7 nil nil]) (defalias 'henkan-kakutei-and-self-insert #[nil "C " [last-command-event unread-command-events henkan-kakutei] 1 nil nil]) (byte-code "!  B!  B #\f#\nXJ \n!#\f\n!#\nT\n*)\nWf \n!#\nT\nO) \f# \f# # # # # # # # # # # # # # # # # # # # # # # # # # # @A# B# CD# EF# GH# I# J# K# L# M# N# O# P# Q# R# S#" [boundp henkan-mode-map make-keymap current-load-list henkan-mode-esc-map define-key [t] undefined [t] 0 ch 127 char-to-string 32 henkan-kakutei-and-self-insert "" [escape] "i" henkan-bunsetu-chijime-sho "o" henkan-bunsetu-nobasi-sho "s" henkan-select-kouho-dai "h" henkan-hiragana "k" henkan-katakana "z" henkan-select-kouho-sho "<" henkan-saishou-bunsetu ">" henkan-saichou-bunsetu " " henkan-next-kouho "" henkan-kakutei-first-char [67108896] "" henkan-first-bunsetu "" henkan-backward-bunsetu "" henkan-quit "" henkan-last-bunsetu "" henkan-forward-bunsetu "" "" henkan-help-command " " henkan-bunsetu-chijime-dai " " henkan-kakutei-before-point "\f" henkan-kakutei " " [return] "" "" henkan-bunsetu-nobasi-dai "" henkan-previous-kouho "" toroku-henkan-mode "" "" henkan-inspect-bunsetu "" henkan-next-kouho-dai "" henkan-next-kouho-sho "" [delete] [backspace] [right] [left] [down] [up] [kp-right] [kp-left] [kp-down] [kp-up]] 5) #@40 Display documentation for henkan-mode. (defalias 'henkan-help-command #[nil " !p=  !!! )" ["*Help*" buf get-buffer henkan-quit princ substitute-command-keys egg:msg-get henkan-help print-help-return-message] 5 (#$ . 35636) nil]) (defalias 'remove-regexp-in-string #[(regexp string) " \n\" \nĉĕ\nOP \n #@ Ĕĕ\nOP \n OP," [string-match regexp string nil 0 nstart oend ostart str] 5]) (defalias 'hinsi-from-menu #[(dict-number name) " \n\" !5 =\n5!\n˘* - BE \f!\"*" [wnn-server-hinsi-list dict-number name nil menu result egg:error wnn-server-get-msg 0 egg:msg-get hinsimei "/" hinsi-from-menu menu:select-from-menu] 5]) (defalias 'wnn-dict-name #[(dict-number dict-list) " \n\" 8Ƙ A@! *" [assoc dict-number dict-list dict-info 2 dict-comment "" file-name-nondirectory] 4]) (defalias 'egg:toroku-word #[(yomi kanji interactive) " !!\f\"E!  \"! \"=!%_ %[!%_ !." [wnn-server-dict-list dic-list wnn-server-hinsi-dicts -1 writable-dic-list menu:select-from-menu menu egg:msg-get touroku-jishomei mapcar #[(x) " \n\"@ \n\" )B" [assoc x dic-list y wnn-dict-name] 3] dict-number hinsi-from-menu "/" hinsi-name wnn-server-hinsi-number hinsi-no wnn-dict-name dict-name interactive notify-yes-or-no-p register-notify kanji yomi wnn-server-word-add "" notify registerd egg:error wnn-server-get-msg] 6]) (defalias 'toroku-region #[(start end) "  !{\"!\"!  #*" [wnn-server-isconnect EGG:open-wnn wnn-server-set-rev nil remove-regexp-in-string "[-]" start end kanji read-current-its-string format egg:msg-get jishotouroku-yomi yomi egg:toroku-word] 4 nil "r"]) (defalias 'delete-space #[(string) "G= Â3H\"H\"(O!3OO!P)" [string len 0 "" char-equal 32 45 delete-space 1 nil] 6]) (defalias 'toroku-henkan-mode #[nil "!`\f{!\"!\n\" \n \f \nW8\f !@P\f T \f+\"\n#*" [read-current-its-string egg:msg-get kanji delete-space egg:*region-end* format jishotouroku-yomi "" *bunsetu-number* wnn-server-bunsetu-suu max i str wnn-server-bunsetu-yomi yomi egg:toroku-word nil] 6 nil nil]) (byte-code "! B! B!  B‡" [boundp *diced-window-configuration* nil current-load-list *diced-dict-info* *diced-yomi*] 2) (defalias 'edit-dict-item #[(yomi) "  ! !!! \"V  \f !  !Z]\"Q!!!*" [wnn-server-isconnect EGG:open-wnn wnn-server-set-rev nil wnn-server-word-search yomi current-wnn-server-type dict-info message egg:msg-get no-yomi wnn-server-type *diced-yomi* current-window-configuration *diced-window-configuration* pop-to-buffer "*Nihongo Dictionary Information*" diced-mode major-mode "Diced" mode-name "DictEd: " make-string 0 17 string-width 32 mode-line-buffer-identification sit-for use-local-map diced-mode-map diced-display] 8 nil (list (read-current-its-string (egg:msg-get (quote yomi))))]) (defalias 'diced-redisplay #[nil "! !! \" \f!)" [wnn-server-set-rev nil wnn-server-word-search *diced-yomi* dict-info message egg:msg-get no-yomi diced-quit diced-display] 4]) (defalias 'diced-display #[(dict-info) " \" \"\" \"\" ! @@ @A@! @8 @8\">? @8ghcc\\!Z\"c\\!Z\"!!!!! A.'eb," [sort dict-info #[(x y) "A@ A@W/A@ A@U/8 8V/8 8U/8 8W" [x y 2 3] 3] *diced-dict-info* nil buffer-read-only erase-buffer apply max mapcar #[(l) " @!" [string-width l] 2] #[(l) "\nA@!!" [string-width wnn-server-hinsi-name l] 3] wnn-server-dict-list wnn-server-hinsi-dicts -1 writable-dict-list dict-list l-bunpo l-kanji kanji bunpo wnn-server-hinsi-name hinshi 2 hindo 3 dict-number wnn-dict-name dict-name sys-dict-p 4 serial-number " *" " " insert-char 32 10 string-width egg:msg-get jisho file-name-nondirectory "/" int-to-string t] 8]) (defalias 'diced-add #[nil "!!!\f# )" [diced-execute t read-from-minibuffer egg:msg-get kanji egg:toroku-word *diced-yomi* diced-redisplay] 4 nil nil]) (defalias 'diced-delete #[nil "y`TfU!! gU(!c!)" [0 42 message egg:msg-get cannot-remove beep 32 nil buffer-read-only delete-char 1 "D" backward-char] 3 nil nil]) (defalias 'diced-undelete #[nil "ygU!c!) " [0 68 nil buffer-read-only delete-char 1 " " backward-char beep] 2 nil nil]) (defalias 'diced-redisplay-hindo #[(dict-number serial-number) "y!Ɣƕ| \n\"8Ɣb !cỷ)" [nil hindo buffer-read-only 0 re-search-forward "\\([0-9-]+\\)\\(\n\\)" 1 3 wnn-server-word-info dict-number serial-number int-to-string t] 4]) (defalias 'diced-use #[nil "e`\"iU‚\\\\\f8 8 8 8   \"2 !  \"," [count-lines 0 1 -1 *diced-dict-info* dict-item 2 hindo 3 dict-number 4 serial-number wnn-server-word-use egg:error wnn-server-get-msg diced-redisplay-hindo] 3 nil nil]) (defalias 'diced-hindo-set #[(&optional newhindo) "\n!!e`\"iUƂ\\\\8  8  8  8 #B ! \"," [newhindo read-minibuffer egg:msg-get enter-hindo count-lines 0 1 -1 *diced-dict-info* dict-item 2 hindo 3 dict-number 4 serial-number wnn-server-word-hindo-set egg:error wnn-server-get-msg diced-redisplay-hindo] 4 nil nil]) (defalias 'diced-quit #[nil " !!!" [nil buffer-read-only erase-buffer t bury-buffer get-buffer "*Nihongo Dictionary Information*" set-window-configuration *diced-window-configuration*] 3 nil nil]) (defalias 'diced-execute #[(&optional display) "ebmugUl 8@\fA@!\f8\n\f8\f\f \"\f!>?\f8! $j\f\"e! $j !. Ty)y? " [0 no 68 *diced-dict-info* dict-item kanji bunpo wnn-server-hinsi-name hinshi 2 hindo 3 dict-number wnn-dict-name wnn-server-dict-list dict-name wnn-server-hinsi-dicts -1 sys-dict-p 4 serial-number notify-yes-or-no-p egg:msg-get remove-notify wnn-server-word-delete notify removed egg:error wnn-server-get-msg 1 display diced-redisplay] 6 nil nil]) (defalias 'diced-next-line #[nil "yym y" [0 1 beep -1] 1 nil nil]) (defalias 'diced-end-of-buffer #[nil "dby" [-1] 1 nil nil]) (defalias 'diced-scroll-down #[nil " m y" [scroll-down -1] 1 nil nil]) #@511 Mode for "editing" dictionaries. In diced, you are "editing" a list of the entries in dictionaries. You can move using the usual cursor motion commands. Letters no longer insert themselves. Instead, Type a to Add new entry. Type d to flag an entry for Deletion. Type n to move cursor to Next entry. Type p to move cursor to Previous entry. Type q to Quit from DicEd. Type C-u to Toggle the word to use/unuse. Type u to Unflag an entry (remove its D flag). Type x to eXecute the deletions requested.  (defalias 'diced-mode #[nil "" [nil] 1 (#$ . 42011)]) (byte-code "!  ! ) B # # # # # # # # # # # # # # # # # #" [boundp diced-mode-map make-sparse-keymap map suppress-keymap current-load-list define-key "a" diced-add "d" diced-delete "n" diced-next-line "p" previous-line "q" diced-quit "u" diced-undelete "x" diced-execute "" help-command "" "" "" diced-use "" scroll-up "h" diced-hindo-set "<" beginning-of-buffer ">" diced-end-of-buffer "v" diced-scroll-down [up] [down]] 4) (defalias 'set-dict-comment #[nil "  ! !!\"E!! \"\"\"F! \"#J !," [wnn-server-isconnect EGG:open-wnn wnn-server-set-rev nil wnn-server-dict-list dic-list wnn-server-hinsi-dicts -1 writable-dic-list menu:select-from-menu menu egg:msg-get jishomei mapcar #[(x) " \n\"A@ @)B" [assoc x dic-list y] 4] dict-number read-from-minibuffer comment wnn-dict-name wnn-server-dict-comment notify jisho-comment egg:error wnn-server-get-msg] 6 nil nil]) (defalias 'henkan-inspect-bunsetu #[nil " ! !}  !|\n8!\n@\nA@\n8\n8\n8\"\n8\n8\n8\n8Um߂n& \".\n))" [wnn-server-inspect *bunsetu-number* info notify wnn-server-get-msg wnn-server-dict-list dic-list wnn-server-hinsi-name 4 3 5 wnn-dict-name 2 6 7 8 9 kangovect daihyoka hyoka ima jisho hindo serial yomi kanji hinsi notify-internal format "%s %s(%s %s:%s Freq:%s%s) S:%s D:%s V:%s " 1 "*" " " t] 14 nil nil]) (provide (quote wnn-egg))