;ELC ;;; Compiled ;;; in Emacs version 24.5.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303#\210\300\304!\207" [require migemo nil t anything-match-plugin] 4) #@51 [Internal] If non-nil, `anything' is migemo-ized. (defvar anything-use-migemo nil (#$ . 506)) #@122 `anything' with migemo extension. With prefix arugument, `anything-pattern' is migemo-ized, otherwise normal `anything'. (defalias 'anything-migemo #[(with-migemo &rest anything-args) "\303\304\n\")\207" [with-migemo anything-use-migemo anything-args apply anything] 3 (#$ . 607) "P"]) #@55 [Internal] Previous migemo query for anything-migemo. (defvar anything-previous-migemo-info '(#1="" . #1#) (#$ . 901)) #@82 Migemo version of `string-match'. (fn STR &optional (PATTERN anything-pattern)) (defalias 'anything-string-match-with-migemo #[(str &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \203\305\306\307\310G\\D\"\210\n @\230\204)\n\311\n!B\312 A\f\")\207" [#1# anything-pattern pattern anything-previous-migemo-info str signal wrong-number-of-arguments anything-string-match-with-migemo 2 migemo-get-pattern string-match] 5 (#$ . 1026)]) #@49 (fn STR &optional (PATTERN anything-pattern)) (defalias 'anything-mp-3migemo-match #[(str &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \203\306\307\310\311G\\D\"\210\312\n!\313\211\314 :\203I @\211\211A\242\211\315\f\"!\211\203I A\211\202(\205O\314-\207" [#1# anything-pattern pattern #2=#:--cl-var-- re pred signal wrong-number-of-arguments anything-mp-3migemo-match 2 anything-mp-3-get-patterns nil t anything-string-match-with-migemo #3=#:--cl-flag-- str] 6 (#$ . 1475)]) (defalias 'anything-mp-3migemo-search #[(pattern &rest ignore) "\301\302\211#\207" [pattern anything-mp-3-search-base migemo-forward] 4]) (defalias 'anything-mp-3migemo-search-backward #[(pattern &rest ignore) "\301\302\211#\207" [pattern anything-mp-3-search-base migemo-backward] 4]) (defalias 'anything-compile-source--migemo #[(source) "\305\306!\204\207\307\310\"\206\311\312\"\313\232\314\307\315\"\203#\316\202$\317\f\203I\320\321\311\320\" C\"B \203;\322\202C\312\n\311\312\"BBBB\202e\307\306\"\203d\320 D \203[\323\202^\312\nDBB\202e+\207" [source match-identity-p matcher searcher anything-use-migemo featurep migemo assoc candidates-in-buffer assoc-default match (identity) anything-mp-3migemo-match search-from-end anything-mp-3migemo-search-backward anything-mp-3migemo-search search append (match identity) (match identity)] 6]) (add-to-list 'anything-compile-source-functions 'anything-compile-source--migemo t) #@46 `anything-idle-delay' for migemized command. (defvar anything-migemize-command-idle-delay 0.1 (#$ . 2944)) #@189 Use migemo in COMMAND when selectiong candidate by `anything'. Bind `anything-use-migemo' = t in COMMAND. `anything-migemize-command-idle-delay' is used instead of `anything-idle-delay'. (defalias 'anything-migemize-command '(macro . #[(command) "\301\302BB\207" [command defadvice ((around anything-use-migemo activate) (let ((anything-use-migemo t) (anything-idle-delay anything-migemize-command-idle-delay)) ad-do-it))] 3 (#$ . 3058)])) (when (fboundp 'expectations) (expectations (desc "match") (expect '(("TEST" ("日本語"))) (let ((anything-use-migemo t)) (anything-test-candidates '(((name . "TEST") (candidates "日本語"))) "nihongo" '(anything-compile-source--migemo)))) (desc "migemo attribute") (expect '(("TEST" ("日本語"))) (let ((anything-use-migemo nil)) (anything-test-candidates '(((name . "TEST") (candidates "日本語") (migemo))) "nihongo" '(anything-compile-source--migemo)))) (desc "with anything-match-plugin") (expect '(("FOO" ("日本語入力"))) (let ((anything-use-migemo nil)) (anything-test-candidates '(((name . "FOO") (init lambda nil (with-current-buffer (anything-candidate-buffer 'global) (insert "日本語会話\n日本語入力\n"))) (candidates-in-buffer) (migemo))) "nihongo nyuuryoku" '(anything-compile-source--candidates-in-buffer anything-compile-source--match-plugin anything-compile-source--migemo)))) (expect '(("FOO" ("日本語入力"))) (let ((anything-use-migemo t)) (anything-test-candidates '(((name . "FOO") (init lambda nil (with-current-buffer (anything-candidate-buffer 'global) (insert "日本語会話\n日本語入力\n"))) (candidates-in-buffer))) "nihongo nyuuryoku" '(anything-compile-source--candidates-in-buffer anything-compile-source--match-plugin anything-compile-source--migemo)))) (expect '(("FOO" ("日本語入力"))) (let ((anything-use-migemo nil)) (anything-test-candidates '(((name . "FOO") (init lambda nil (with-current-buffer (anything-candidate-buffer 'global) (insert "日本語会話\n日本語入力\n"))) (candidates-in-buffer) (search-from-end) (migemo))) "nihongo nyuuryoku" '(anything-compile-source--candidates-in-buffer anything-compile-source--match-plugin anything-compile-source--migemo)))) (expect '(("FOO" ("日本語入力"))) (let ((anything-use-migemo t)) (anything-test-candidates '(((name . "FOO") (init lambda nil (with-current-buffer (anything-candidate-buffer 'global) (insert "日本語会話\n日本語入力\n"))) (candidates-in-buffer) (search-from-end))) "nihongo nyuuryoku" '(anything-compile-source--candidates-in-buffer anything-compile-source--match-plugin anything-compile-source--migemo)))) (expect '(("TEST" ("日本語入力"))) (let ((anything-use-migemo nil)) (anything-test-candidates '(((name . "TEST") (migemo) (candidates "日本語入力"))) "nihongo nyuuryoku" '(anything-compile-source--match-plugin anything-compile-source--migemo)))) (expect '(("TEST" ("日本語入力"))) (let ((anything-use-migemo t)) (anything-test-candidates '(((name . "TEST") (candidates "日本語入力"))) "nihongo nyuuryoku" '(anything-compile-source--match-plugin anything-compile-source--migemo)))))) (provide 'anything-migemo)