;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303\304\"\210\305\306\307\"\207" [require cl-lib comint sly-messages "lib/sly-messages" add-to-list completion-styles-alist (backend completion-backend-try-completion completion-backend-all-completions "Ad-hoc completion style provided by the completion table")] 3) #@35 (fn OP STRING TABLE PRED POINT) (defalias 'completion--backend-call #[1285 "\300!\205B#\242=\205\211A\262\207" [functionp] 10 (#$ . 396)]) #@32 (fn STRING TABLE PRED POINT) (defalias 'completion-backend-try-completion #[1028 "\300\301%\207" [completion--backend-call try-completion] 10 (#$ . 557)]) #@32 (fn STRING TABLE PRED POINT) (defalias 'completion-backend-all-completions #[1028 "\300\301%\207" [completion--backend-call all-completions] 10 (#$ . 724)]) (byte-code "\300\301\302\303\304DD\305\306\303\307\310&\207" [custom-declare-variable sly-complete-symbol-function funcall function #[0 "\300\207" [sly-flex-completions] 1] "Function reponsible for SLY completion.\nWhen called with one argument, a pattern, returns a (possibly\npropertized) list of strings the complete that pattern,\ncollected from the Slynk server." :type :group sly-ui] 8) #@203 Use `sly-eval' on SEXP, PACKAGE, bind to VAR, run BODY. If user input arrives in the meantime return INPUT-ARRIVED-RETVAL immediately. (fn (VAR SEXP &optional PACKAGE INPUT-ARRIVED-RETVAL) &rest BODY) (defalias 'sly--responsive-eval '(macro . #[128 "\211\203 \211A\262\242\202\300\301\302GD\"\211A\203\"\211A\262\242\202)\300\301\302GD\"\211A\262\242\211A\262\242\211A\262\242\203J\300\301\302\303G\\D\"\210\304\305!\306\307B\310\311\257DD\312\313E BBBE\207" [signal wrong-number-of-arguments sly--responsive-eval 4 make-symbol "sly--responsive-eval" let* ((make-symbol "sly--responsive-eval-unique")) sly-eval non-essential if eq] 15 (#$ . 1288)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put sly--responsive-eval lisp-indent-function 1 put edebug-form-spec (sexp &rest form)] 5) #@121 Request completions for PATTERN using SLYFUN. SLYFUN takes two arguments, a pattern and a package. (fn PATTERN SLYFUN) (defalias 'sly--completion-request-completions #[514 "\302\303\304!\305\306!\307\310 DE\311 $\211=?\205\211\266\202)\207" [sly-current-thread non-essential t make-symbol "sly--responsive-eval-unique" sly-eval substring-no-properties quote sly-current-package nil] 8 (#$ . 2135)]) #@163 Return (COMPLETIONS COMMON) where COMPLETIONS complete the PREFIX. COMPLETIONS is a list of propertized strings. COMMON a string, the common prefix. (fn PREFIX) (defalias 'sly-simple-completions #[257 "\211G\300\301\"\211A\262\242@\302\211:\2036@\262\303\211TGS^\304\305%\210\211C\244\262A\262\202\211D\207" [sly--completion-request-completions slynk-completion:simple-completions nil put-text-property face completions-first-difference] 14 (#$ . 2549)]) #@127 Return (COMPLETIONS NIL) where COMPLETIONS flex-complete PATTERN. COMPLETIONS is a list of propertized strings. (fn PATTERN) (defalias 'sly-flex-completions #[257 "\300\301\"\211A\262\242\302@\210\302\211\211\211\211\211\211:\203\257@\262\211A\262\242\262\211A\262\242\262\211A\262\242\262\211A\262\242\262@\262\302\211\211\211:\203}@\262\211A\262\242\262@\262\303\211G\\\304\305%\210\211\211G\\BC\244\262A\262\202J\303\306 G\307%\266\310\306G\311\312\313 \f\314_#\315F\n$\210\211C\244\262A\262\202\211\302D\207" [sly--completion-request-completions slynk-completion:flex-completions nil put-text-property face completions-first-difference 0 sly-completion-chunks add-text-properties sly--annotation format "%s %5.2f%%" 100 sly--suggestion] 23 (#$ . 3033)]) #@70 Grab the annotation of COMPLETION, a string, if any (fn COMPLETION) (defalias 'sly-completion-annotation #[257 "\300\301\302#\207" [get-text-property 0 sly--annotation] 5 (#$ . 3863)]) #@317 This function is obsolete since 1.0.0-beta-2; use ‘sly-flex-completions’ instead, but notice the updated protocol. Returns (COMPLETIONS NIL) where COMPLETIONS flex-complete PATTERN. COMPLETIONS is a list of elements of the form (STRING NIL NIL ANNOTATION) describing each completion possibility. (fn PATTERN) (defalias 'sly-fuzzy-completions #[257 "\300!\301\302@\"A@D\207" [sly-flex-completions mapcar #[257 "\211\300\211\301!F\207" [nil sly-completion-annotation] 6 "\n\n(fn STRING)"]] 5 (#$ . 4057)]) (byte-code "\300\301!\203 \302\301\303\"\210\300\207" [boundp completion-category-defaults add-to-list (sly-completion (styles backend))] 3) #@11 (fn FN) (defalias 'sly--completion-function-wrapper #[257 "\300\301\302\"\303\304#\207" [make-hash-table :test equal make-closure #[771 "\302\303\300\301$\304\305\267\202\306\207\307\207 @\207\204\211\"\207:\203O\242\211\310\267\202M\243\211\311BB\207\243\312\313 @B\207\243\211\314  $\207\312\207\312\207" [V0 V1 make-closure #[0 "\303\302\301\304#\211\304=\203\305\302\300\302!\301#\207\207" [V0 V1 V2 gethash :missing puthash] 5] #[514 "\211 \211@\205\211@A\204@@\230\203\300\207\207" [t] 5 "\n\n(fn STRING --CL-ALL--)"] #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (sly--identify 14 metadata 16 t 18)) t (metadata (display-sort-function . identity) (category . sly-completion)) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (try-completion 44 all-completions 54 boundaries 63)) try-completion nil all-completions completion-boundaries] 13 "\n\n(fn STRING PRED ACTION)"]] 6 (#$ . 4720)]) (defalias 'sly--completion-inside-string-or-comment-p #[0 "\300 \3018\206 \3028\207" [syntax-ppss 3 4] 3]) #@11 (fn FN) (defalias 'sly--completions-complete-symbol-1 #[257 "\300 \301 \302!\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324 \205 \325\257\207" [sly-symbol-start-pos sly-symbol-end-pos sly--completion-function-wrapper :annotation-function sly-completion-annotation :exit-function #[514 "\300\301\302#\211\205`GZ`|\210\211c\207" [get-text-property 0 sly--suggestion] 6 "\n\n(fn OBJ STATUS)"] :company-docsig #[257 "\301\302!\205)\303\304!\305\306\307!\310 E\311$\211=?\205'\211\203&\312!\206'\313\266\202\207" [non-essential sit-for 0.1 make-symbol #1="sly--responsive-eval-unique" sly-eval slynk:operator-arglist substring-no-properties sly-current-package nil sly-autodoc--fontify "no autodoc information"] 7 "\n\n(fn OBJ)"] :company-no-cache t :company-doc-buffer #[257 "\301\302!\205.\303\304!\305\306\307!D\310$\211=?\205,\211\205,r\311\312!q\210\313 \210\211c\210p)\266\202\207" [non-essential sit-for 0.1 make-symbol #1# sly-eval slynk:describe-symbol substring-no-properties nil get-buffer-create " *sly-completion doc*" erase-buffer] 7 "\n\n(fn OBJ)"] :company-require-match never :company-match #[257 "\300\301\302#\207" [get-text-property 0 sly-completion-chunks] 5 "\n\n(fn OBJ)"] :company-location #[257 "\300 \301\302\"\216\303\304!!\305!\205\211rq\210`)B\262)\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] sly-edit-definition substring-no-properties buffer-live-p] 5 "\n\n(fn OBJ)"] :company-prefix-length sly--completion-inside-string-or-comment-p 0] 24 (#$ . 5849)]) #@95 Prefix completion on the symbol at point. Intended to go into `completion-at-point-functions' (defalias 'sly-simple-complete-symbol #[0 "\300\301!\207" [sly--completions-complete-symbol-1 sly-simple-completions] 2 (#$ . 7452)]) #@95 "Flex" completion on the symbol at point. Intended to go into `completion-at-point-functions' (defalias 'sly-flex-complete-symbol #[0 "\300\301!\207" [sly--completions-complete-symbol-1 sly-flex-completions] 2 (#$ . 7686)]) #@125 Completion on the symbol at point, using `sly-complete-symbol-function' Intended to go into `completion-at-point-functions' (defalias 'sly-complete-symbol #[0 "\301!\207" [sly-complete-symbol-function sly--completions-complete-symbol-1] 2 (#$ . 7917)]) (defalias 'sly-complete-filename-maybe #[0 "\300\301 8\205 \302 \207" [3 syntax-ppss comint-filename-completion] 2]) (defalias 'sly--setup-completion #[0 "\301\300!\210\302\303\304\305\306B\307\310$\207" [completion-at-point-functions make-local-variable (sly-complete-filename-maybe sly-complete-symbol) advice--add-function :around #[0 "\300\301!\207" [advice--buffer-local completion-in-region-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local completion-in-region-function] 4 "\n\n(fn GV--VAL)"] #[385 "\203 \301\302\"\207\301\"\207" [sly-symbol-completion-mode apply sly--completion-in-region-function] 5 "\n\n(fn OLDFUN &rest ARGS)"] ((name . sly--setup-completion))] 5]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable sly-symbol-completion-mode funcall function #[0 "\300\207" [t] 1] "Non-nil if Sly-Symbol-Completion mode is enabled.\nSee the `sly-symbol-completion-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@624 Fancy SLY UI for Lisp symbols This is a minor mode. If called interactively, toggle the `Sly-Symbol-Completion mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'sly-symbol-completion-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'sly-symbol-completion-mode #[256 "\301 \302\303\304=\203\305\303!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\303\"\305\303!\2038\303B\313\314\305\303!\203D\315\202E\316\"\210\317\320!\203m\321\303!\210\301 \203]\211\301 \232\203m\322\323\305\303!\203i\324\202j\325\326#\210\210\327 \210\305\303!\207" [global-minor-modes current-message set-default sly-symbol-completion-mode toggle default-value 1 nil t boundp delq run-hooks sly-symbol-completion-mode-hook sly-symbol-completion-mode-on-hook sly-symbol-completion-mode-off-hook called-interactively-p any customize-mark-as-set message "Sly-Symbol-Completion mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 9258) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar sly-symbol-completion-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\"\207" [sly-symbol-completion-mode-map sly-symbol-completion-mode-hook variable-documentation put "Hook run after entering or leaving `sly-symbol-completion-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode sly-symbol-completion-mode boundp add-hook sly-mode-hook sly--setup-completion] 6) (defvar sly--completion-transient-data nil) (defvar sly--completion-transient-completions nil) #@30 (fn BEG END FUNCTION PRED) (defalias 'sly--completion-in-region-function #[1028 "\303\211\304#\203j\305\"\306#\307#\310\211\311=\2031\312@p  D#\210\313\314\315\316#\207\211;\203[\317\303\211\211%\211E\320\321\322#\210\323\"\210\313\314\315\324#\210\325\326!\207G\314V\205i\313\314\315\327$\207\330\331!$\207" [this-command sly--completion-transient-completions sly--completion-transient-data nil sly--identify buffer-substring-no-properties all-completions try-completion completion-at-point t choose-completion-string sly-temp-message 0 2 "Sole completion" make-overlay overlay-put face highlight sly--completion-pop-up-completions-buffer "Not unique" sly--completion-transient-mode 1 "No completions for %s" default-value completion-in-region-function] 13 (#$ . 11426)]) #@56 Highlights the currently selected completion candidate (defvar sly--completion-in-region-overlay (byte-code "\300\301\211\"\302\303\304#\210\305!\210\207" [make-overlay 0 overlay-put face highlight delete-overlay] 5) (#$ . 12245)) #@45 Keymap used in the *sly-completions* buffer (defvar sly--completion-display-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\210\301\311\310#\210\301\312\310#\210\301\313\306#\210\301\314\315#\210\301\316\306#\210\301\317\315#\210\301\320\303#\210\207" [make-sparse-keymap define-key [mouse-1] sly-choose-completion [mouse-2] [backtab] sly-prev-completion "q" sly-completion-hide-completions "" "z" [remap previous-line] [remap next-line] sly-next-completion [left] [right] " "] 5) (#$ . 12484)) (defvar sly--completion-display-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [sly--completion-display-mode-hook variable-documentation put "Hook run after entering SLY Completions mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp sly--completion-display-mode-map definition-name sly--completion-display-mode] 4) (defvar sly--completion-display-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [sly--completion-display-mode-abbrev-table sly--completion-display-mode-map variable-documentation put purecopy "Keymap for `sly--completion-display-mode'." boundp sly--completion-display-mode-syntax-table definition-name sly--completion-display-mode (lambda (#1=#:def-tmp-var) (defvar sly--completion-display-mode-syntax-table #1#)) make-syntax-table "Syntax table for `sly--completion-display-mode'." (lambda (#1#) (defvar sly--completion-display-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `sly--completion-display-mode'." derived-mode-parent] 5) #@206 Major mode for presenting SLY completion results. This mode runs the hook `sly--completion-display-mode-hook', as the final or penultimate step during initialization. \{sly--completion-display-mode-map} (defalias 'sly--completion-display-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 )\315\316!\207" [delay-mode-hooks major-mode mode-name sly--completion-display-mode-map sly--completion-display-mode-syntax-table sly--completion-display-mode-abbrev-table make-local-variable t kill-all-local-variables sly--completion-display-mode "SLY Completions" use-local-map set-syntax-table run-mode-hooks sly--completion-display-mode-hook local-abbrev-table] 2 (#$ . 14416) nil]) #@61 Determine whether to pop down the *sly completions* buffer. (defalias 'sly--completion-transient-mode-postch #[0 "\206! \205\n @\211\205\302!p=\205\303\304!`\305!#\262?\205(\306\307!\207" [unread-command-events sly--completion-transient-data overlay-buffer <= overlay-start overlay-end sly--completion-transient-mode -1] 6 (#$ . 15120)]) #@66 Keymap used in the buffer originating a *sly-completions* buffer (defvar sly--completion-transient-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\207" [make-sparse-keymap define-key "" sly-next-completion "" sly-prev-completion " " sly-choose-completion " " (menu-item "" sly-choose-completion :filter (lambda (original) (when (memq last-command '(completion-at-point sly-next-completion sly-prev-completion)) original))) "" sly-quit-completing] 5) (#$ . 15476)) #@56 Explicit `defvar' for `sly--completion-transient-mode' (defvar sly--completion-transient-mode nil (#$ . 16018)) (defalias 'sly--completion-turn-off-transient-mode #[0 "\301=\203 \302\303p\"\207\304 \207" [major-mode sly--completion-display-mode sly-message "Choosing completions directly in %s" sly-completion-hide-completions] 3]) #@660 Minor mode when the "*sly completions*" buffer is showing This is a minor mode. If called interactively, toggle the `Sly--Completion-Transient mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'sly--completion-transient-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'sly--completion-transient-mode #[256 "\305 \306\303\307=\203\310\303!?\202!\247\203 \311W\203 \312\202!\313\"\210\314\300!\2038\315\303\"\310\303!\2038\303B\316\317\320\"\210\315\321 \236 \"\315\322\n\236\n\" \204U\323 \210\202h\324\317\320\"\210\303\fB\nB\321\325 BD B\326\327\310\303!\203t\330\202u\331\"\210\332\333!\203\231\305 \203\211\211\305 \232\203\231\334\335\310\303!\203\225\336\202\226\337\340#\210\210\341 \210\310\303!\207" [global-minor-modes display-buffer-alist minor-mode-overriding-map-alist sly--completion-transient-mode sly--completion-transient-mode-map current-message set-default toggle default-value 1 nil t boundp delq remove-hook post-command-hook sly--completion-transient-mode-postch sly--completion-transient-mode-display-guard-p completion-in-region-mode sly--completion-turn-off-transient-mode add-hook sly--completion-transient-mode-teardown-before-displaying run-hooks sly--completion-transient-mode-hook sly--completion-transient-mode-on-hook sly--completion-transient-mode-off-hook called-interactively-p any message "Sly--Completion-Transient mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 16359) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar sly--completion-transient-mode-hook nil) (byte-code "\302\303N\204\f\304\302\303\305#\210\304\302\306\307#\210\304\302\310\311C#\210\312\313\311\314\300!\205#\311\211%\210\315\313 \236 \"\311\207" [sly--completion-transient-mode-map minor-mode-map-alist sly--completion-transient-mode-hook variable-documentation put "Hook run after entering or leaving `sly--completion-transient-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode sly--completion-transient-mode boundp delq] 6) #@27 (fn BUFFER-NAME ACTION) (defalias 'sly--completion-transient-mode-display-guard-p #[514 "\301\302\303\304#)\266\203?\207" [inhibit-changing-match-data "^*sly-completions*" nil t string-match] 9 (#$ . 18936)]) #@21 (fn BUFFER ALIST) (defalias 'sly--completion-transient-mode-teardown-before-displaying #[514 "\300\301!\210\302\207" [sly--completion-transient-mode -1 nil] 4 (#$ . 19158)]) (defalias 'sly--completion-kill-transient-data #[0 "\301@!\203\f\302@!\210\303\211\207" [sly--completion-transient-data overlayp delete-overlay nil] 2]) (defalias 'sly-completion-hide-completions #[0 "\300 \210\301\302\303!!\211\205\304\305\"\211\205)\306!r\307\310\"\216\311@\312\"\210\313\314!*\262\207" [sly--completion-kill-transient-data get-buffer sly-buffer-name :completions get-buffer-window 0 internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord quit-window t] 6 nil nil]) #@47 Like `completion-reference-buffer', which see (defvar sly--completion-reference-buffer nil (#$ . 19921)) #@47 (fn BUFFER ACTION QUIT-FUNCTION &rest BODY) (defalias 'sly--completion-with-displayed-buffer-window '(macro . #[899 "\300\301!\302\303\304\305BC\306\307\nD E\304\310 DC\311\nBBEF\312BBBBF\207" [cl-gensym "original-buffer-" if noninteractive let ((current-buffer)) display-buffer get-buffer-create standard-output with-current-buffer with-displayed-buffer-window] 15 (#$ . 20032)])) #@28 (fn PATTERN COMPLETIONS) (defalias 'sly--completion-pop-up-completions-buffer #[514 "\306\307\211\211\n\203jp\310\311\312\313!!\314\315\316\317 \320 =\203\"\321\202#\322F \203,\323\202-\324 \2052\325E\"\210\312\313!r\211q\210\326 \210pr\fq\210\327 \210\330\305!\210\307\211*\331!\210\f\262`\262\332\333\334\335\211$\210)\210*\210\202A\312\313!\314\315\316\317 \320 =\203|\321\202}\322F \203\206\323\202\207\324 \205\214\325E\336!\211\337A\236\340A!\205\237\211A\262\211\205\262@\341\342\337\343!A\"BB\307\211rq\210\344\206\300\"\262)\335\211+,\326 \210pr\fq\210\327 \210\330\305!\210\307\211*\331 !\210\f\262\n`\262 \332\333\334\335\211$)\262\262*\345e\"\210\203\3461\347\350\307#\210!0\210\202\210\350A\236A:\2033\351\335\350 A\236A@#\210\351\307\350 A\236AA#\210\340\307!\203>\307\"\210)\266rq\210\211b+\207" [pop-up-windows display-buffer-mark-dedicated noninteractive temp-buffer-resize-mode standard-output cursor-type soft nil display-buffer get-buffer-create sly-buffer-name :completions display-buffer--maybe-same-window display-buffer-reuse-window display-buffer--maybe-pop-up-frame-or-window selected-window minibuffer-window display-buffer-at-bottom display-buffer-below-selected (window-height . resize-temp-buffer-window) (window-height . shrink-window-if-larger-than-buffer) (preserve-size nil . t) sly--completion-transient-mode sly--completion-display-mode make-local-variable sly--completion-fill-completions-buffer add-hook kill-buffer-hook sly--completion-kill-transient-data t temp-buffer-window-setup window-height functionp (window-height . t) assq-delete-all copy-sequence temp-buffer-window-show set-window-point (error) set-window-parameter preserve-size window-preserve-size sly--completion-reference-buffer inhibit-modification-hooks inhibit-read-only] 19 (#$ . 20437)]) (defvar sly--completion-explanation "Use \\[sly-next-completion] and \\[sly-prev-completion] to navigate completions. \\[sly-choose-completion] or [mouse-1] selects a completion.\n\nAnnotation flags: (b)oundp (f)boundp (g)eneric-function (c)lass (m)acro (s)pecial-operator\n\n") #@20 (fn COMPLETIONS) (defalias 'sly--completion-fill-completions-buffer #[257 "\302\303 \210\304 !c\210`\305\211\211\211:\203\204@\262\306\307\310#\206#\311\262`\262\306\307\312#\305\211:\203Q@\262\211A\262\242\262\313\314\315 %\210A\262\2020\266\316\317\320\321\302%c\210\322\323\324 SGZGZ]\325\"\261\210\313`\321$\210\326c\210A\262\305\262\202b\210\327\307!\266)\305\207" [inhibit-read-only sly--completion-explanation t erase-buffer substitute-command-keys nil get-text-property 0 sly--annotation "" sly-completion-chunks put-text-property face completions-common-part propertize mouse-face highlight sly--completion make-string 1 window-width 32 "\n" sly-next-completion] 16 (#$ . 22592)]) #@27 (fn N &optional ERRORP) (defalias 'sly-next-completion #[513 "r\301\302!q\210\303!\203\304!b\210y\210\305`\306\"\205\"\212\307\310!\210`)\211\205*\311\306\"\211\203_\203_\312#\210\313p\314\"\211\205X\315!r\316\317\"\216\320@\321\"\210b\210\322!*\262\262\266\202\202h\205f\323\324!\266\202)\207" [sly--completion-in-region-overlay sly-buffer-name :completions overlay-buffer overlay-start get-text-property sly--completion skip-syntax-forward "^ " previous-single-char-property-change move-overlay get-buffer-window 0 internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord sly-recenter sly-error "No completion at point"] 9 (#$ . 23333) "p"]) #@10 (fn N) (defalias 'sly-prev-completion #[257 "\300[!\207" [sly-next-completion] 3 (#$ . 24092) "p"]) #@24 (fn &optional EVENT) (defalias 'sly-choose-completion #[256 "\303\304!\210r\305\306!q\210\211\203\307\310!!b\210\311\312\313\"\210\314\315!\316!\"\317 !\204,\320\321!\210\322 \n@\315!\316!D\262#\210\323\324!\262)\207" [sly--completion-in-region-overlay sly--completion-reference-buffer sly--completion-transient-data run-hooks mouse-leave-buffer-hook sly-buffer-name :completions posn-point event-start sly-next-completion 0 t buffer-substring-no-properties overlay-start overlay-end buffer-live-p sly-error "Destination buffer is dead" choose-completion-string sly--completion-transient-mode -1] 9 (#$ . 24201) (list last-nonmenu-event)]) (defalias 'sly-quit-completing #[0 "\203\300\301!\210\302 \207" [sly--completion-transient-mode -1 keyboard-quit] 2 nil nil]) #@52 Minibuffer keymap used for reading CL expressions. (defvar sly-minibuffer-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [minibuffer-local-map make-sparse-keymap set-keymap-parent define-key " " completion-at-point] 5) (#$ . 24989)) #@55 History list of expressions read from the minibuffer. (defvar sly-minibuffer-history nil (#$ . 25238)) #@51 History list of symbols read from the minibuffer. (defvar sly-minibuffer-symbol-history nil (#$ . 25347)) #@19 (fn &rest BODY) (defalias 'sly--with-sly-minibuffer '(macro . #[128 "\300\301BB\207" [let* ((minibuffer-setup-hook (cons (lambda nil (set-syntax-table lisp-mode-syntax-table) (sly--setup-completion)) minibuffer-setup-hook)) (sly-buffer-package (sly-current-package)) (sly-buffer-connection (sly-connection)))] 4 (#$ . 25459)])) #@81 Setup SLY-specific minibuffer reads. Used mostly (only?) by `sly-autodoc-mode'. (defvar sly-minibuffer-setup-hook nil (#$ . 25796)) #@288 Read a string from the minibuffer, prompting with PROMPT. If INITIAL-VALUE is non-nil, it is inserted into the minibuffer before reading input. The result is a string ("" if no input was given and ALLOW-EMPTY is non-nil). (fn PROMPT &optional INITIAL-VALUE HISTORY ALLOW-EMPTY KEYMAP) (defalias 'sly-read-from-minibuffer #[1281 "\304B\305 \306 \307B\310\311\211\211\211\312\313\211\310V\262\205 \314\fQ\310U\205,\n\2062 \311\f\2069\315%\262G\310V\204H\203R\262\311\211\262\202S\316\203`T\262\311\262\202)\266\204+\207" [minibuffer-setup-hook sly-buffer-package sly-buffer-connection sly-minibuffer-map #[0 "\301!\210\302 \207" [lisp-mode-syntax-table set-syntax-table sly--setup-completion] 2] sly-current-package sly-connection #[0 "\300\301!\207" [run-hooks sly-minibuffer-setup-hook] 2] 0 nil read-from-minibuffer "[sly] " "[can't be blank] " sly-minibuffer-history t] 16 (#$ . 25935)]) #@196 Either read a symbol name or choose the one at point. The user is prompted if a prefix argument is in effect, if there is no symbol at point, or if QUERY is non-nil. (fn PROMPT &optional QUERY) (defalias 'sly-read-symbol-name #[513 "\306 \307B\310 !\311\n\204\204\204= \2035\312\313\314B\315 \316 \211#-\202>\211#\202>)\207" [completion-category-overrides sly-complete-symbol-function current-prefix-arg sly-symbol-completion-mode completing-read-function icomplete-mode sly-symbol-at-point (sly-completion (styles backend)) sly--completion-function-wrapper #[771 "\300\301\211%\207" [completing-read nil] 9 "\n\n(fn PROMPT SYM-AT-POINT WRAPPER)"] nil completing-read-default #[0 "\301!\210\302 \207" [lisp-mode-syntax-table set-syntax-table sly--setup-completion] 2] sly-current-package sly-connection minibuffer-setup-hook sly-buffer-package sly-buffer-connection] 9 (#$ . 26871)]) (provide 'sly-completion)