;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-show-completion-version "$Id: anything-show-completion.el,v 1.19 2009-11-19 20:16:51 rubikitch Exp $") (byte-code "\300\301!\210\302\303\304\305\306\301%\207" [require anything custom-declare-group anything-show-completion nil "anything-show-completion" :group] 6) (defvar asc-overlay nil) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\207" [custom-declare-variable anything-show-completion-face anything-selection-face "*Face of anything-show-completion." :type face :group anything-show-completion anything-show-completion-activate t "*Set nil to turn off anything-show-completion." boolean anything-show-completion-min-window-height 7 "*Minimum completion window height." integer] 8) (defalias 'asc-initialize-maybe #[nil "?\205\302ee\"\303\304 #\210\305 \207" [asc-overlay anything-show-completion-face make-overlay overlay-put face asc-cleanup] 4]) (defalias 'asc-cleanup #[nil "\301!\207" [asc-overlay delete-overlay] 2]) (byte-code "\300\301\302\"\210\303 \207" [add-hook anything-cleanup-hook asc-cleanup asc-initialize-maybe] 3) #@75 Return non-nil if `anything' is being used for any completionic purposes. (defalias 'asc-overlay-activate-p #[nil "\205\302 !\207" [anything-show-completion-activate asc-overlay overlay-buffer] 2 (#$ . 1548)]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice anything-mark-current-line (anything-show-completion nil t (advice lambda nil "Display the `anything-get-selection' contents as an overlay at the\ncurrent (point)." (anything-aif (and (asc-overlay-activate-p) (with-anything-window (not (equal (anything-buffer-get) anything-action-buffer))) (anything-get-selection)) (with-current-buffer anything-current-buffer (asc-display-overlay it))))) after nil ad-activate] 5) (defalias 'asc-display-overlay #[(selection) "\303\304 #\210\305`\306\307\310\"!Z`\n$\207" [asc-overlay selection anything-current-buffer overlay-put display move-overlay eval overlay-get prefix-length-sexp] 7]) #@236 Setup a before advice of FUNCTION to show the `anything-get-selection' contents as an overlay at point. PREFIX-LENGTH-SEXP is an expression to denote the length of prefix (completing target). It is evaluated in `asc-display-overlay'. (defalias 'use-anything-show-completion #[#'prefix-length-sexp "\302\303\304\305\306 DD\307BBBB!\207" [function prefix-length-sexp eval defadvice (around anything-show-completion activate) anything-show-completion-install quote ((let ((anything-display-function 'asc-display-function)) ad-do-it))] 7 (#$ . 2472)]) (defalias 'anything-show-completion-install #[(prefix-length-sexp) "\302 \210\303``p$\210\304\301 #\207" [asc-overlay prefix-length-sexp asc-initialize-maybe move-overlay overlay-put] 5]) (defalias 'asc-point-at-upper-half-of-window-p #[(pt) "\302\303\304 \" \203\305\202\306\307i!\203\306\202\306#\310 \311\245 \203'\305\202(\306ZX\207" [pt header-line-format + count-screen-lines window-start 1 0 zerop window-height 2] 5]) (defalias 'asc-display-function #[(buf) "\306 \307\310 \203 \310\202\311\312\313 `\"n\203\310\202\311$\314 Z \n\f^]\315\316 \2037\317 \202<\320\")\321!r\322\216\323@\324\"\210\325\326!\210+\327\"-\207" [win header-line-format screen-size anything-show-completion-min-window-height def-size window-min-height selected-window + 1 0 count-screen-lines window-start window-height nil active-minibuffer-window minibuffer-selected-window split-window internal--before-with-selected-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord recenter -1 set-window-buffer upper-height split-window-keep-point new-w save-selected-window--state buf] 6]) (provide 'anything-show-completion)