;ELC ;;; Compiled ;;; in Emacs version 24.5.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar anything-complete-version "$Id: anything-complete.el,v 1.86 2010-03-31 23:14:13 rubikitch Exp $") (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306\307\310#\203,\311\307\211\203+ @\312\313\"\210 A\211\204*\307\207" [f --dolist-tail-- require anything-match-plugin thingatpt anything-obsolete anything-show-completion nil t (anything-complete anything-lisp-complete-symbol anything-lisp-complete-symbol-partial-match) use-anything-show-completion (length anything-complete-target)] 5) (defvar anything-complete-target "") (defalias 'ac-insert #[(candidate) "`\303 \304\305#\203`{ \230\203`|\210)\nc\207" [pt anything-complete-target candidate search-backward nil t] 4]) (define-anything-type-attribute 'complete '((candidates-in-buffer) (action . ac-insert))) (defalias 'anything-noresume #[(&optional any-sources any-input any-prompt any-resume any-preselect any-buffer) "\306\211\211\307 \f \310 \n&+\207" [anything-last-buffer anything-compiled-sources anything-last-sources any-sources any-input any-prompt nil anything noresume any-preselect any-buffer] 7]) #@46 Basic completion interface using `anything'. (defalias 'anything-complete #[(sources target &optional limit idle-delay input-idle-delay) "\206 \n\206\n \f\206 \n\306\211\307 \f \310\n\307\211\211\311&.\207" [limit anything-candidate-number-limit idle-delay anything-idle-delay input-idle-delay anything-input-idle-delay t nil anything-noresume "*anything complete*" target anything-samewindow enable-recursive-minibuffers anything-execute-action-at-once-if-one anything-complete-target sources] 7 (#$ . 1512)]) #@136 `anything-input-idle-delay' for `anything-lisp-complete-symbol', `anything-lisp-complete-symbol-partial-match' and `anything-apropos'. (defvar anything-lisp-complete-symbol-input-idle-delay 0.1 (#$ . 2050)) #@163 If non-nil, `anything-lisp-complete-symbol' and `anything-lisp-complete-symbol-partial-match' adds space on startup. It utilizes anything-match-plugin's feature. (defvar anything-lisp-complete-symbol-add-space-on-startup t (#$ . 2264)) (defalias 'alcs-create-buffer #[(name) "\302!r q\210\303 \210\304 \210 *\207" [name b get-buffer-create buffer-disable-undo erase-buffer] 2]) (defvar alcs-variables-buffer " *variable symbols*") (defvar alcs-functions-buffer " *function symbols*") (defvar alcs-commands-buffer " *command symbols*") (defvar alcs-faces-buffer " *face symbols*") (defvar alcs-symbol-buffer " *other symbols*") #@32 Timestamp of collected symbols (defvar alcs-symbols-time nil (#$ . 2899)) (defalias 'alcs-make-candidates #[nil "\306\307!\210\310\311 \312\n!\210\312 !\210\312\f!\210\312 !\210\312!\210\313\314!\210)\306\315!\207" [inhibit-read-only alcs-symbols-time alcs-variables-buffer alcs-functions-buffer alcs-commands-buffer alcs-faces-buffer message "Collecting symbols..." t current-time alcs-create-buffer mapatoms #[(sym) "\306!\307!\310!\311!\203\fq\210 \312\261\210\202) \203) q\210 \312\261\210\n\2036\fq\210 \312\261\210\313!\203G q\210 \312\261\202X\n\206L ?\205Xq\210 \312\261+\207" [sym fbp bp name alcs-commands-buffer alcs-functions-buffer symbol-name boundp fboundp commandp "\n" facep alcs-variables-buffer alcs-faces-buffer alcs-symbol-buffer] 4] "Collecting symbols...done" alcs-symbol-buffer] 2]) (defalias 'alcs-header-name #[(name) "\302\303\304\305 \"#\207" [name alcs-symbols-time format "%s at %s (Press `C-c C-u' to update)" format-time-string "%H:%M:%S"] 6]) (defvar alcs-make-candidates-timer nil) #@120 Update Emacs symbols list when Emacs is idle, used by `anything-lisp-complete-symbol-set-timer' and `anything-apropos' (defalias 'anything-lisp-complete-symbol-set-timer #[(update-period) "\203\302!\210\303 \304\305#\211\207" [alcs-make-candidates-timer update-period cancel-timer run-with-idle-timer t alcs-make-candidates] 4 (#$ . 3953)]) (defvar alcs-physical-column-at-startup nil) (defalias 'alcs-init #[(bufname) "\306\307 \306\310\306 :\203) @\311\312\313\314\n\"\"\211?\211\203) A\211\202\f\f,\2032 \2028\315 \2068\316\317\320!!\207" [alcs-physical-column-at-startup #1=#:--cl-var-- src #2=#:--cl-flag-- #3=#:--cl-var-- anything-dabbrev-last-target nil anything-get-sources t string-match "^dabbrev" assoc-default name tap-symbol "" anything-candidate-buffer get-buffer anything-complete-target bufname] 6]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\207" [custom-declare-variable anything-complete-sort-candidates nil "*Whether to sort completion candidates." :type boolean :group anything-complete anything-execute-extended-command-use-kyr t "*Use `anything-kyr' (context-aware commands) in `anything-execute-extended-command'. "] 8) (defalias 'alcs-sort-maybe #[(candidates source) "\203 \302 \303\"\207 \207" [anything-complete-sort-candidates candidates sort string<] 3]) (defalias 'alcs-fontify-face #[(candidates source) "\301\302\"\207" [candidates mapcar #[(facename) "\301\302\303!#\207" [facename propertize face intern-soft] 5]] 3]) #@47 Current physical column. (not logical column) (defalias 'alcs-current-physical-column #[nil "\300\301 !@\207" [posn-col-row posn-at-point] 2 (#$ . 5483)]) #@67 Prepend spaces according to `current-column' for each CANDIDATES. (defalias 'alcs-transformer-prepend-spacer #[(candidates source) "\206'r q\210\212\305\n!\206\306[u\210\307\310 \311\312\313 !\"\203#\314\202$\307Z]*\315\316\f\"\207" [alcs-physical-column-at-startup anything-current-buffer anything-complete-target anything-buffer candidates string-width 1 0 alcs-current-physical-column buffer-local-value anything-enable-shortcuts get-buffer 4 mapcar #[(cand) "\302\303\" P B\207" [alcs-physical-column-at-startup cand make-string 32] 3]] 6 (#$ . 5644)]) (defalias 'alcs-transformer-prepend-spacer-maybe #[(candidates source) "\303\300!\203\203\304 \n\"\207 \207" [anything-show-completion-activate candidates source boundp alcs-transformer-prepend-spacer] 3]) (defalias 'alcs-describe-function #[(name) "\301\302!!\207" [name describe-function anything-c-symbolify] 3]) (defalias 'alcs-describe-variable #[(name) "rq\210\302\303 !!)\207" [anything-current-buffer name describe-variable anything-c-symbolify] 3]) (defalias 'alcs-describe-face #[(name) "\301\302!!\207" [name describe-face anything-c-symbolify] 3]) (defalias 'alcs-customize-face #[(name) "\301\302!!\207" [name customize-face anything-c-symbolify] 3]) (defalias 'alcs-find-function #[(name) "\301\302!!\207" [name find-function anything-c-symbolify] 3]) (defalias 'alcs-find-variable #[(name) "\301\302!!\207" [name find-variable anything-c-symbolify] 3]) (defvar anything-c-source-complete-emacs-functions '((name . "Functions") (init lambda nil (alcs-init alcs-functions-buffer)) (candidates-in-buffer) (type . complete-function))) (defvar anything-c-source-complete-emacs-commands '((name . "Commands") (init lambda nil (alcs-init alcs-commands-buffer)) (candidates-in-buffer) (type . complete-function))) (defvar anything-c-source-complete-emacs-variables '((name . "Variables") (init lambda nil (alcs-init alcs-variables-buffer)) (candidates-in-buffer) (type . complete-variable))) (defvar anything-c-source-complete-emacs-faces '((name . "Faces") (init lambda nil (alcs-init alcs-faces-buffer)) (candidates-in-buffer) (type . complete-face))) (defvar anything-c-source-complete-emacs-other-symbols '((name . "Other Symbols") (init lambda nil (alcs-init alcs-symbol-buffer)) (candidates-in-buffer) (filtered-candidate-transformer . alcs-sort-maybe) (action . ac-insert))) (defvar anything-c-source-apropos-emacs-functions '((name . "Apropos Functions") (init lambda nil (alcs-init alcs-functions-buffer)) (candidates-in-buffer) (requires-pattern . 3) (type . apropos-function))) (defvar anything-c-source-apropos-emacs-commands '((name . "Apropos Commands") (init lambda nil (alcs-init alcs-commands-buffer)) (candidates-in-buffer) (requires-pattern . 3) (type . apropos-function))) (defvar anything-c-source-apropos-emacs-variables '((name . "Apropos Variables") (init lambda nil (alcs-init alcs-variables-buffer)) (candidates-in-buffer) (requires-pattern . 3) (type . apropos-variable))) (defvar anything-c-source-apropos-emacs-faces '((name . "Apropos Faces") (init lambda nil (alcs-init alcs-faces-buffer)) (candidates-in-buffer) (requires-pattern . 3) (type . apropos-face))) (defvar anything-c-source-emacs-function-at-point '((name . "Function at point") (candidates lambda nil (with-current-buffer anything-current-buffer (anything-aif (function-called-at-point) (list (symbol-name it))))) (type . apropos-function))) (defvar anything-c-source-emacs-variable-at-point '((name . "Variable at point") (candidates lambda nil (with-current-buffer anything-current-buffer (anything-aif (variable-at-point) (unless (equal 0 it) (list (symbol-name it)))))) (type . apropos-variable))) (defvar anything-c-source-emacs-face-at-point '((name . "Face at point") (candidates lambda nil (with-current-buffer anything-current-buffer (anything-aif (face-at-point) (unless (equal 0 it) (list (symbol-name it)))))) (type . apropos-variable))) (defvar anything-lisp-complete-symbol-sources '(anything-c-source-complete-anything-attributes anything-c-source-complete-emacs-commands anything-c-source-complete-emacs-functions anything-c-source-complete-emacs-variables anything-c-source-complete-emacs-faces)) (defvar anything-apropos-sources '(anything-c-source-emacs-function-at-point anything-c-source-emacs-variable-at-point anything-c-source-apropos-emacs-commands anything-c-source-apropos-emacs-functions anything-c-source-apropos-emacs-variables anything-c-source-apropos-emacs-faces)) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\207" [define-anything-type-attribute apropos-function ((filtered-candidate-transformer . alcs-sort-maybe) (header-name . alcs-header-name) (persistent-action . alcs-describe-function) (update . alcs-make-candidates) (action ("Describe Function" . alcs-describe-function) ("Find Function" . alcs-find-function))) apropos-variable ((filtered-candidate-transformer . alcs-sort-maybe) (header-name . alcs-header-name) (persistent-action . alcs-describe-variable) (update . alcs-make-candidates) (action ("Describe Variable" . alcs-describe-variable) ("Find Variable" . alcs-find-variable))) apropos-face ((filtered-candidate-transformer alcs-sort-maybe alcs-fontify-face) (get-line . buffer-substring) (header-name . alcs-header-name) (update . alcs-make-candidates) (persistent-action . alcs-describe-face) (action ("Customize Face" . alcs-customize-face) ("Describe Face" . alcs-describe-face))) complete-function ((filtered-candidate-transformer alcs-sort-maybe alcs-transformer-prepend-spacer-maybe) (header-name . alcs-header-name) (action . ac-insert) (update . alcs-make-candidates) (persistent-action . alcs-describe-function)) complete-variable ((filtered-candidate-transformer alcs-sort-maybe alcs-transformer-prepend-spacer-maybe) (header-name . alcs-header-name) (action . ac-insert) (update . alcs-make-candidates) (persistent-action . alcs-describe-variable)) complete-face ((filtered-candidate-transformer alcs-sort-maybe alcs-transformer-prepend-spacer-maybe) (header-name . alcs-header-name) (action . ac-insert) (update . alcs-make-candidates) (persistent-action . alcs-describe-face))] 3) (defvar alcs-this-command nil) #@70 (fn UPDATE SOURCES INPUT &optional (BUFFER "*anything complete*")) (defalias 'anything-lisp-complete-symbol-1 #[(update sources input &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \306\203\307\310\311\312G\\D\"\210\n\f\204(\313 !\204+\314 \210\315\2063 \306\232\203A\316\202B\317\315\211\211 &+\207" [#1# buffer this-command alcs-this-command update alcs-variables-buffer "*anything complete*" signal wrong-number-of-arguments anything-lisp-complete-symbol-1 4 get-buffer alcs-make-candidates nil anything-noresume anything anything-lisp-complete-symbol-input-idle-delay anything-input-idle-delay anything-samewindow sources input] 7 (#$ . 11877)]) #@61 Update lisp symbols and restart current `anything' session. (defalias 'alcs-update-restart #[nil "\300 \210\301 \207" [alcs-make-candidates anything-update] 1 (#$ . 12562) nil]) #@31 Get symbol name before point. (defalias 'tap-symbol #[nil "\212`\301\302\303 \304#\205\305\306\225\"*\207" [beg re-search-backward "\\_<" point-at-bol t buffer-substring-no-properties 0] 4 (#$ . 12746)]) (defalias 'alcs-initial-input #[(partial-match) "\303 \211\203 \304\305 \203\306\202\307\n\203\310\202\306$\202!\306)\207" [it partial-match anything-lisp-complete-symbol-add-space-on-startup tap-symbol format "%s%s%s" "" "^" " "] 6]) #@54 `lisp-complete-symbol' replacement using `anything'. (defalias 'anything-lisp-complete-symbol #[(update) "\302 \303\304!#\207" [update anything-lisp-complete-symbol-sources anything-lisp-complete-symbol-1 alcs-initial-input nil] 5 (#$ . 13207) "P"]) #@70 `lisp-complete-symbol' replacement using `anything' (partial match). (defalias 'anything-lisp-complete-symbol-partial-match #[(update) "\302 \303\304!#\207" [update anything-lisp-complete-symbol-sources anything-lisp-complete-symbol-1 alcs-initial-input t] 5 (#$ . 13464) "P"]) #@41 `apropos' replacement using `anything'. (defalias 'anything-apropos #[(update) "\302 \303\304$\207" [update anything-apropos-sources anything-lisp-complete-symbol-1 nil "*anything apropos*"] 5 (#$ . 13749) "P"]) (defvar anything-c-source-complete-anything-attributes '((name . "Anything Attributes") (candidates . acaa-candidates) (action . ac-insert) (persistent-action . acaa-describe-anything-attribute) (filtered-candidate-transformer alcs-sort-maybe alcs-transformer-prepend-spacer-maybe) (header-name . alcs-header-name) (action . ac-insert))) (defalias 'acaa-describe-anything-attribute #[(str) "\301\302!!\207" [str anything-describe-anything-attribute anything-c-symbolify] 3]) (defalias 'acaa-candidates #[nil "rq\210\302\303\304\305#\205\306`!\205\307\310 \")\207" [anything-current-buffer anything-additional-attributes require yasnippet nil t acaa-completing-attribute-p mapcar symbol-name] 4]) (defvar acaa-anything-commands-regexp "(\\(?:anything\\(?:-\\(?:c-arrange-type-attribute\\|other-buffer\\)\\)?\\|define-anything-type-attribute\\) ") (defalias 'acaa-completing-attribute-p #[(point) "\212b\210\301\302\303\217)\207" [point nil (byte-code "\212\301\302!\210\303\304\305Q!)\206\212\301\306!\210\303!)\207" [acaa-anything-commands-regexp backward-up-list 3 looking-at "(defvar anything-c-source-" "\\|" 4] 4) ((error))] 3]) (when (fboundp 'expectations) (expectations (desc "acaa-completing-attribute-p") (expect t (with-temp-buffer (insert "(anything '(((na") (acaa-completing-attribute-p (point)))) (expect t (with-temp-buffer (insert "(anything '((na") (acaa-completing-attribute-p (point)))) (expect nil (with-temp-buffer (insert "(anything-hoge '((na") (acaa-completing-attribute-p (point)))) (expect nil (with-temp-buffer (insert "(anything-hoge '(((na") (acaa-completing-attribute-p (point)))) (expect t (with-temp-buffer (insert "(defvar anything-c-source-hoge '((na") (acaa-completing-attribute-p (point)))))) (defalias 'anything-compile-source--default-value #[(source) "\302\303\"\211\203\304\305 D\306B\"\202)\207" [source it assoc-default default-value append candidates ((filtered-candidate-transformer lambda (cands source) (if (string= anything-pattern "") cands nil)))] 5]) (add-to-list 'anything-compile-source-functions 'anything-compile-source--default-value) (defalias 'ac-new-input-source #[(prompt require-match &optional additional-attrs) "?\205\f\303 B\304\nBB\207" [require-match prompt additional-attrs name (dummy)] 3]) #@81 (fn DEFAULT &optional ACCEPT-EMPTY (ADDITIONAL-ATTRS '((action . identity)))) (defalias 'ac-default-source #[(default &optional accept-empty &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \304\203\305\306\307\310G\\D\"\210\311\312\n\206' \205'\313B\314 \205/\315C\")BB\207" [#1# additional-attrs default accept-empty ((action . identity)) signal wrong-number-of-arguments ac-default-source 3 (name . "Default") default-value "" append (accept-empty)] 5 (#$ . 16246)]) #@63 If non-nil, use original implementation not anything version. (defvar anything-use-original-function nil (#$ . 16734)) (defalias 'anything-completing-read #[(prompt collection &optional predicate require-match initial hist default inherit-input-method) "\204\306 !\204\307 !\203\310\n \f &\207\242\206'\311\312\313\n \f & \n\314\211\315&\206G\316 \211;\205b\206V\317\211\314\320\321\217BL\210*\207" [anything-use-original-function collection prompt predicate require-match initial arrayp functionp anything-old-completing-read 0.1 anything-noresume acr-sources nil "*anything complete*" keyboard-quit minibuffer-history (byte-code "\302 J\"\207" [result hist delete] 3) ((error)) hist default inherit-input-method anything-input-idle-delay result] 11]) #@38 Whether to use default value source. (defvar anything-completing-read-use-default t (#$ . 17540)) #@42 Whether to display history source first. (defvar anything-completing-read-history-first nil (#$ . 17644)) #@109 Persistent action function used by `anything-completing-read'. It accepts one argument, selected candidate. (defvar anything-complete-persistent-action nil (#$ . 17757)) #@189 `anything' replacement for `completing-read'. (fn PROMPT COLLECTION PREDICATE REQUIRE-MATCH INITIAL HIST DEFAULT INHERIT-INPUT-METHOD &optional (ADDITIONAL-ATTRS '((action . identity)))) (defalias 'acr-sources #[(prompt collection predicate require-match initial hist default inherit-input-method &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \306\203\307\310\311\312G\\D\"\210\n\205.\313\314\315\316\314\317\n\320BE\321BBF\f\2054\322\323 # !\206D\324\"\325\"!\205]?\205]\326\327\"B BBB#$\205i\330%\331\"&\332\327\333\334'\"B\335 D\"BB(\203\217%\203\217&(D\202\266\203\234(&D\202\266)\203\255&#( F\202\266&(# F.\207" [#1# additional-attrs predicate transformer-func anything-complete-persistent-action persistent-action ((action . identity)) signal wrong-number-of-arguments acr-sources 9 candidate-transformer lambda (cands) remove-if-not (c) ((if (listp c) (car c) c)) (cands) (persistent-action lambda (cand) (funcall anything-complete-persistent-action cand)) ac-new-input-source minibuffer-history boundp (name . "History") candidates ac-default-source t (name . "Completions") mapcar #[(x) "\242\206\207" [x] 1] append prompt require-match new-input-source hist histvar history-source anything-completing-read-use-default default default-source collection main-source anything-completing-read-history-first] 8 (#$ . 17934)]) #@43 `anything' replacement for `read-buffer'. (defalias 'anything-read-buffer #[(prompt &optional default require-match start matches-set) "\306\307\310 \311\n!\203\312\n!\202\n \f %\f \306\211\313&\206\"\314 )\207" [anything-input-idle-delay prompt default require-match start matches-set nil anything-noresume arb-sources bufferp buffer-name "*anything complete*" keyboard-quit] 7 (#$ . 19339)]) #@107 (fn PROMPT DEFAULT REQUIRE-MATCH START MATCHES-SET &optional (ADDITIONAL-ATTRS '((action . identity)))) (defalias 'arb-sources #[(prompt default require-match start matches-set &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \305\203\306\307\310\311G\\D\"\210\312\n\313\"\314 B\315\316 BBB\317 \f #E)\207" [#1# additional-attrs default prompt require-match ((action . identity)) signal wrong-number-of-arguments arb-sources 6 ac-default-source t name (persistent-action . switch-to-buffer) (candidates lambda nil (mapcar 'buffer-name (buffer-list))) ac-new-input-source] 6 (#$ . 19747)]) (defalias 'anything-read-symbol-1 #[(prompt buffer default-value) "\305\211\306\307\310\n\205\311\312\n\"!\313 B\314\315\305\316\fDF\317BBD\305 \305\211\320&\206*\321 !*\207" [anything-samewindow anything-input-idle-delay default-value prompt buffer nil intern anything-noresume ac-default-source format "%s" name init lambda alcs-init ((candidates-in-buffer) (action . identity)) "*anything complete*" keyboard-quit] 9]) (defalias 'anything-read-variable #[(prompt &optional default-value) "\303 \n#\207" [prompt alcs-variables-buffer default-value anything-read-symbol-1] 4]) (defalias 'anything-read-command #[(prompt &optional default-value) "\303 \n#\207" [prompt alcs-commands-buffer default-value anything-read-symbol-1] 4]) (defvar anything-read-string-mode nil) (byte-code "\204(\302\303\304K\"\210\302\305\306K\"\210\302\307\310K\"\210\302\311\312K\"\210\302\313\314K\"\210\315\300\316 #\210\302\207" [anything-read-string-mode read-buffer-function defalias anything-old-completing-read completing-read anything-old-read-file-name read-file-name anything-old-read-buffer read-buffer anything-old-read-variable read-variable anything-old-read-command read-command put orig-read-buffer-function] 4) #@43 Saved ARG of `anything-read-string-mode'. (defvar anything-read-string-mode-flags '(string buffer variable command) (#$ . 21567)) #@476 If this minor mode is on, use `anything' version of `completing-read' and `read-file-name'. ARG also accepts a symbol list. The elements are: string: replace `completing-read' buffer: replace `read-buffer' variable: replace `read-variable' command: replace `read-command' and M-x file: replace `read-file-name' and `find-file' (disabled by default) So, (anything-read-string-mode 1) and (anything-read-string-mode '(string buffer variable command) are identical. (defalias 'anything-read-string-mode #[(arg) ":\203\303 \210 :\203 \211\202! \203\304 !\305V\202!?\211\306=\203*\n\2031\307 \207\303 \207" [anything-read-string-mode arg anything-read-string-mode-flags anything-read-string-mode-uninstall prefix-numeric-value 0 t anything-read-string-mode-install] 3 (#$ . 21704) "P"]) (defalias 'anything-read-string-mode-install #[nil "\303>\203\f\304\305\306K\"\210\307>\203\304\310\311K\"\210\312\313\314 #\210\315>\203,\316\304\317\316K\"\210\320>\2038\304\321\322K\"\210\323>\203J\304\324\325K\"\210\312\326\327 #\210\330\331!\207" [anything-read-string-mode global-map read-buffer-function string defalias completing-read anything-completing-read file read-file-name anything-read-file-name substitute-key-definition find-file anything-find-file buffer anything-read-buffer read-buffer variable read-variable anything-read-variable command read-command anything-read-command execute-extended-command anything-execute-extended-command message "Installed anything version of read functions."] 4]) (defalias 'anything-read-string-mode-uninstall #[nil "\302\303\304K\"\210\302\305\306K\"\210\307\310N\302\311\312K\"\210\302\313\314K\"\210\302\315\316K\"\210\317\320\321 #\210\317\322\323 #\210\324\325!\207" [read-buffer-function global-map defalias completing-read anything-old-completing-read read-file-name anything-old-read-file-name anything-read-string-mode orig-read-buffer-function read-buffer anything-old-read-buffer read-variable anything-old-read-variable read-command anything-old-read-command substitute-key-definition anything-execute-extended-command execute-extended-command anything-find-file find-file message "Uninstalled anything version of read functions."] 4]) #@52 Select a command from shell history and insert it. (defalias 'anything-complete-shell-history #[nil "\301 \302\245\303\304\305 \206 \306\307#)\207" [anything-show-completion-minimum-window-height frame-height 2 anything-complete anything-c-source-complete-shell-history word-at-point "" 20] 4 (#$ . 23934) nil]) (defalias 'anything-complete-shell-history-setup-key #[(key) "\305\302!\204\306\307\310\311#\203\305\300!\203\312 \210\313 \314#\210\305\302!\203)\313\n \314#\210\306\315\310\311#\2037\313 \314#\210\306\316!\210\313\f \314#\207" [shell-command-minibuffer-map key minibuffer-local-shell-command-map background-minibuffer-map shell-mode-map boundp require shell-command nil t shell-command-completion-mode define-key anything-complete-shell-history background shell] 4]) (defvar zsh-p nil) (defvar anything-c-source-complete-shell-history '((name . "Shell History") (init lambda nil (require 'shell-history) (with-current-buffer (anything-candidate-buffer (shell-history-buffer)) (revert-buffer t t) (set (make-local-variable 'zsh-p) (shell-history-zsh-extended-history-p)))) (get-line . acsh-get-line) (search-from-end) (type . complete))) (defalias 'acsh-get-line #[(s e) "\211\306\\{\307\230 S {\310\230?\f\204 {\202\200 \203*\n\203*\311\\ {\202\200 \203Q b\210\312\313\314\315#\203>\316\224\202?dS\317\320\321\311\\ {#b\210)\202\200b\210\322\313\314\315#\210\316\225\314\211b\210\312\313\314\315#\203p\316\224\202qdS\317\320\321 {#b\210**\207" [s e single-line extended-history zsh-p e2 2 ": " "\\" 15 re-search-forward "^: [0-9]+:[0-9];" nil t 0 replace-regexp-in-string "\\\\\n" ";" re-search-backward s2] 6]) (defvar anything-execute-extended-command-sources '(((name . "Emacs Commands History") (candidates . extended-command-history) (action . identity) (update . alcs-make-candidates) (persistent-action . alcs-describe-function)) ((name . "Commands") (header-name . alcs-header-name) (init lambda nil (anything-candidate-buffer (get-buffer-create alcs-commands-buffer))) (candidates-in-buffer) (action . identity) (update . alcs-make-candidates) (persistent-action . alcs-describe-function)) ((name . "New Command") (dummy) (action . identity) (persistent-action . alcs-describe-function)))) #@44 Replacement of `execute-extended-command'. (defalias 'anything-execute-extended-command #[nil "\306\n\203\307\310\311\312#\203 \fB\202\f!\211\203$\313\314 !!\204)\315\316 \"\210 \317 \"B\320 !\211K;\204C\321 K!\203J\322 K!\202O \323 !)\207" [this-command alcs-this-command anything-execute-extended-command-use-kyr anything-c-source-kyr anything-execute-extended-command-sources cmd anything require anything-kyr-config nil t commandp intern-soft error "No command: %s" delete intern vectorp execute-kbd-macro call-interactively extended-command-history] 6 (#$ . 26194) nil]) (add-hook 'after-init-hook 'alcs-make-candidates) (when (fboundp 'expectations) (expectations (desc "acsh-get-line command") (expect "ls" (let ((zsh-p t)) (with-temp-buffer (insert ": 1118554690:0;cat ~/.zsh_history\n" ": 1118554690:0;ls\n") (forward-line -1) (acsh-get-line (point-at-bol) (point-at-eol))))) (expect "cd;ls -l" (let ((zsh-p t)) (with-temp-buffer (insert ": 1118554690:0;cat ~/.zsh_history\n" ": 1118554690:0;cd\\\n" "ls -l\n" ": 1118554690:0;hoge\n") (forward-line -2) (acsh-get-line (point-at-bol) (point-at-eol))))) (expect "cd;ls -l" (let ((zsh-p t)) (with-temp-buffer (insert ": 1118554690:0;cat ~/.zsh_history\n" ": 1118554690:0;cd\\\n" "ls -l\n" ": 1118554690:0;hoge\n") (forward-line -3) (acsh-get-line (point-at-bol) (point-at-eol))))) (expect "cd;ls -l" (let ((zsh-p t)) (with-temp-buffer (insert ": 1118554690:0;cat ~/.zsh_history\n" ": 1118554690:0;cd\\\n" "ls -l\n") (forward-line -1) (acsh-get-line (point-at-bol) (point-at-eol))))) (expect "cd;ls -l" (let ((zsh-p t)) (with-temp-buffer (insert ": 1118554690:0;cat ~/.zsh_history\n" ": 1118554690:0;cd\\\n" "ls -l\n") (forward-line -2) (acsh-get-line (point-at-bol) (point-at-eol))))) (expect "pwd" (let ((zsh-p nil)) (with-temp-buffer (insert "foo\n" "pwd\n") (forward-line -1) (acsh-get-line (point-at-bol) (point-at-eol))))) (desc "acsh-get-line lineno") (expect 2 (let ((zsh-p t)) (with-temp-buffer (insert ": 1118554690:0;cat ~/.zsh_history\n" ": 1118554690:0;cd\\\n" "ls -l\n" ": 1118554690:0;hoge\n") (forward-line -2) (acsh-get-line (point-at-bol) (point-at-eol)) (line-number-at-pos)))) (expect 2 (let ((zsh-p t)) (with-temp-buffer (insert ": 1118554690:0;cat ~/.zsh_history\n" ": 1118554690:0;cd\\\n" "ls -l\n" ": 1118554690:0;hoge\n") (forward-line -3) (acsh-get-line (point-at-bol) (point-at-eol)) (line-number-at-pos)))))) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\307\310!\207" [defvaralias anything-c-source-complete-emacs-variables-partial-match anything-c-source-complete-emacs-variables anything-c-source-complete-emacs-commands-partial-match anything-c-source-complete-emacs-commands anything-c-source-complete-emacs-functions-partial-match anything-c-source-complete-emacs-functions provide anything-complete] 3)