HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/international/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/international/ja-dic-utl.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@55 Nested alist for OKURI-ARI entries of SKK dictionary.
(defvar skkdic-okuri-ari nil (#$ . 408))
#@65 Nested alist for SETSUBIJI (postfix) entries of SKK dictionary.
(defvar skkdic-postfix nil (#$ . 509))
#@59 Nested alist SETTOUJI (prefix) entries of SKK dictionary.
(defvar skkdic-prefix nil (#$ . 618))
#@56 Nested alist for OKURI-NASI entries of SKK dictionary.
(defvar skkdic-okuri-nasi nil (#$ . 720))
#@67 Alist of Okuriganas vs trailing ASCII letters in OKURI-ARI entry.
(defconst skkdic-okurigana-table '((12353 . 97) (12354 . 97) (12355 . 105) (12356 . 105) (12357 . 117) (12358 . 117) (12359 . 101) (12360 . 101) (12361 . 111) (12362 . 111) (12363 . 107) (12364 . 103) (12365 . 107) (12366 . 103) (12367 . 107) (12368 . 103) (12369 . 107) (12370 . 103) (12371 . 107) (12372 . 103) (12373 . 115) (12374 . 122) (12375 . 115) (12376 . 106) (12377 . 115) (12378 . 122) (12379 . 115) (12380 . 122) (12381 . 115) (12382 . 122) (12383 . 116) (12384 . 100) (12385 . 116) (12386 . 100) (12387 . 116) (12388 . 116) (12389 . 100) (12390 . 116) (12391 . 100) (12392 . 116) (12393 . 100) (12394 . 110) (12395 . 110) (12396 . 110) (12397 . 110) (12398 . 110) (12399 . 104) (12400 . 98) (12401 . 112) (12402 . 104) (12403 . 98) (12404 . 112) (12405 . 104) (12406 . 98) (12407 . 112) (12408 . 104) (12409 . 98) (12410 . 112) (12411 . 104) (12412 . 98) (12413 . 112) (12414 . 109) (12415 . 109) (12416 . 109) (12417 . 109) (12418 . 109) (12419 . 121) (12420 . 121) (12421 . 121) (12422 . 121) (12423 . 121) (12424 . 121) (12425 . 114) (12426 . 114) (12427 . 114) (12428 . 114) (12429 . 114) (12431 . 119) (12432 . 119) (12433 . 119) (12434 . 119) (12435 . 110)) (#$ . 823))
(defalias 'skkdic-merge-head-and-tail #[(heads tails postfix) "\306\307\n\203=\203\n@G	Y\2036\f\211\2035\204&
@G	Y\203.\n@
@PB
A\211\204)\nA\211\204*\207" [l min-len heads postfix tails tail 2 nil] 3])
(defconst skkdic-jisx0208-hiragana-block (byte-code "\300\301\302\"\300\301\303\"B\207" [decode-char japanese-jisx0208 9249 9342] 4))
#@469 Return a list of conversion string for sequence SEQ of length LEN.

SEQ is a vector of Kana characters to be converted by SKK dictionary.
If LEN is shorter than the length of KEYSEQ, the first LEN keys in SEQ
are took into account.

Optional 3rd arg POSTFIX non-nil means SETSUBIJI (postfix) are also
considered to find conversion strings.

Optional 4th arg PREFER-NOUN non-nil means that the conversions
without okurigana are placed at the head of the returned list.
(defalias 'skkdic-lookup-key #[(seq len &optional postfix prefer-noun) "\204O\3061\307\310!0\202N\311 \210\nr\312\313!q\210p\314 \210\315\211\316\211&\316'(\317 \210\320\321!\210+\211)*\322\323\324!!\210\325)!\210+\326	@	A\")\210\327+\330\"\330\315,-.-+W\203\306/-H\3150\2111\331U\203~.-\330I\210\202\27412@Y\203\26512AX\203\265\3321\333\"\2110\203\253.-\3340\335\"\336ZI\210\202\274.-\337I\210\202\274.-\337I\210*-T\211-\202^\340.+\330\316%\211,@:\203\341\341,@!,\202\344\315,3\203\\+4@Z\342]\315\211\211567\2118+W\203[\340.8\330\316%\2117\203R7@:\203R\340.4+8\316%\2116\203R6@:\203R\3437@6@\316#\2115\203R,\203N,5\244\210\202R5,8T\2118\202\375,9@+\344Z^\315\211\2115:;\2118\330V\203\315\340.98\330\316%\211;\203\304;@:\203\304\340.+8\316%\211:\203\304:@:\203\304\343;@:@\315#\2115\203\304,\203\300,5\244\210\202\3045,8S\2118\202p,/+SH<\236\315\2115=\211>\203j.+SH=.+S>A[I\210\340.?+\330\316%\2115\203a5@:\203a\3415@!\2115\345/+SH!@\211A\2037A\211@@P\240\210AA\211A\204%,\203[B\203J,5\244\210\202`5\237\2115,\244\2105,\202`5\237,*.+S=I\210+,+\207" [skkdic-okuri-nasi err default-directory #1=#:old-dir buffer-read-only buffer-file-name (error) load-library "ja-dic/ja-dic" ding get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ substitute-command-keys "The library `ja-dic' can't be loaded.\n\nThe most common case is that you have not yet installed the library\nincluded in LEIM (Libraries of Emacs Input Method) which is\ndistributed separately from Emacs.\n\nLEIM is available from the same ftp directory as Emacs." internal-temp-output-buffer-show signal make-vector 0 12540 encode-char japanese-jisx0208 logand 255 32 128 lookup-nested-alist copy-sequence 1 skkdic-merge-head-and-tail 2 char-to-string buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output len entry i vec seq code ch skkdic-jisx0208-hiragana-block postfix skkdic-postfix entry2 entry-postfix entry-head break skkdic-prefix entry-tail entry-prefix skkdic-okurigana-table orig-element okurigana skkdic-okuri-ari okuri l prefer-noun] 7 (#$ . 2442)])
(provide 'ja-dic-utl)