| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\301%\210\312\313\314\315\316DD\317\311\306\320\321&\210\312\322\314\315\323DD\324\311\306\320\325&\210\312\326\314\315\327DD\330\311\306\320\331&\210\312\332\314\315\333DD\334\311\306\320\315&\210\312\335\314\315\336DD\337\320\340\311\306&\210\312\341\314\315\342DD\343\311\306\320\325&\210\312\344\314\315\345DD\346\311\306\320\347&\210\312\350\314\315\351DD\352\311\306\320\353&\210\312\354\314\315\355DD\356\311\306\320\321&\210\357\360\361\"\210\362\360\361\363#\207" [require helm helm-lib helm-help helm-elisp custom-declare-group helm-dabbrev nil "Dabbrev related Applications and libraries for Helm." :group custom-declare-variable helm-dabbrev-always-search-all funcall function #[0 "\300\207" [t] 1] "Always search in all buffers when non--nil.\nNote that even if nil, a search in all buffers\nwill occur if the length of candidates is <= than\n`helm-dabbrev-max-length-result'." :type boolean helm-dabbrev-candidates-number-limit #[0 "\300\207" [1000] 1] "Maximum number of candidates to collect.\n\nHigher this number is, slower the computation of candidates will be.\nYou can use safely a higher value with emacs-26+.\nNote that this have nothing to do with `helm-candidate-number-limit'." integer helm-dabbrev-ignored-buffers-regexps #[0 "\300\207" [("\\*helm" "\\*Messages" "\\*Echo Area" "\\*Buffer List")] 1] "List of regexps matching names of buffers that helm-dabbrev should not check." (repeat regexp) helm-dabbrev-related-buffer-fn #[0 "\300\207" [helm-dabbrev--same-major-mode-p] 1] "A function that decide if a buffer to search in is related to `current-buffer'.\nThis is actually determined by comparing `major-mode' of the buffer to search\nand the `current-buffer'.\nThe function take one arg, the buffer which is current, look at\n`helm-dabbrev--same-major-mode-p' for example.\n\nWhen nil all buffers are considered related to `current-buffer'." helm-dabbrev-major-mode-assoc #[0 "\300\207" [nil] 1] "Major mode association alist.\nThis allow helm-dabbrev searching in buffers with the associated `major-mode'.\ne.g (emacs-lisp-mode . lisp-interaction-mode)\nwill allow searching in the lisp-interaction-mode buffer when `current-buffer'\nis an `emacs-lisp-mode' buffer and vice versa i.e\nno need to provide (lisp-interaction-mode . emacs-lisp-mode) association.\n\nWhen nil check is the searched buffer have same `major-mode'\nthan the `current-buffer'.\nThis have no effect when `helm-dabbrev-related-buffer-fn' is nil or of course\nbound to a function that doesn't handle this var." (alist :key-type symbol :value-type symbol) helm-dabbrev-lineno-around #[0 "\300\207" [30] 1] "Search first in this number of lines before an after point." helm-dabbrev-cycle-threshold #[0 "\300\207" [5] 1] "Number of time helm-dabbrev cycle before displaying helm completion.\nWhen nil or 0 disable cycling." (choice (const :tag "Cycling disabled" nil) integer) helm-dabbrev-case-fold-search #[0 "\300\207" [smart] 1] "Set `case-fold-search' in `helm-dabbrev'.\nSame as `helm-case-fold-search' but for `helm-dabbrev'.\nNote that this is not affecting searching in helm buffer,\nbut the initial search for all candidates in buffer(s)." (choice (const :tag "Ignore case" t) (const :tag "Respect case" nil) (other :tag "Smart" 'smart)) helm-dabbrev-use-thread #[0 "\300\207" [nil] 1] "[EXPERIMENTAL] Compute candidates asynchronously (partially) when non nil.\n\nThe idea is to compute candidates while cycling the first ones, so\nthis is available only if `helm-dabbrev-cycle-threshold' is not 0 or\nnil, also it is available only on emacs-26+ (needs threads).\n\nThis is reasonably working when you don't have to complete a huge list\nof candidates, otherwise you will have a small delay after the first cycle\nbecause thread is released unexpectedly when helm-dabbrev exit after\nfirst insertion.\n\nIOW keep `helm-dabbrev-candidates-number-limit' to a reasonable\nvalue (I don't!) and give enough prefix before completing e.g. for\ncompleting \"helm-dabbrev\" use \"helm-d\" and not \"he\" if you want\nto use this." defvaralias helm-dabbrev--regexp helm-dabbrev-separator-regexp make-obsolete-variable "2.8.3"] 8) | |
| 16 | #@51 Regexp matching the start of a dabbrev candidate. | |
| 17 | (defvar helm-dabbrev-separator-regexp "\\s-\\| \\|[(\\[\\{\"'`=<$;,@.#+]\\|\\s\\\\|^\n\\|^" (#$ . 4634)) | |
| 18 | (defvar helm-dabbrev-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [134217775] helm-next-line [134217786] helm-previous-line] 5)) | |
| 19 | (defvar helm-dabbrev--cache nil) | |
| 20 | (defvar helm-dabbrev--data nil) | |
| 21 | #@76 compiler-macro for inlining `helm-dabbrev-info-p'. | |
| 22 | ||
| 23 | (fn CL-WHOLE-ARG CL-X) | |
| 24 | (defalias 'helm-dabbrev-info-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-dabbrev-info-p (and (memq (type-of cl-x) cl-struct-helm-dabbrev-info-tags) t)) nil] 9 (#$ . 5081)]) | |
| 25 | (put 'helm-dabbrev-info-p 'compiler-macro 'helm-dabbrev-info-p--cmacro) | |
| 26 | #@13 | |
| 27 | ||
| 28 | (fn CL-X) | |
| 29 | (defalias 'helm-dabbrev-info-p #[257 "\301!>\205 \302\207" [cl-struct-helm-dabbrev-info-tags type-of t] 3 (#$ . 5457)]) | |
| 30 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put helm-dabbrev-info-p side-effect-free error-free put helm-dabbrev-info cl-deftype-satisfies] 5) | |
| 31 | #@82 compiler-macro for inlining `helm-dabbrev-info-dabbrev'. | |
| 32 | ||
| 33 | (fn CL-WHOLE-ARG CL-X) | |
| 34 | (defalias 'helm-dabbrev-info-dabbrev--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-dabbrev-info-dabbrev (or (helm-dabbrev-info-p cl-x) (signal 'wrong-type-argument (list 'helm-dabbrev-info cl-x))) (aref cl-x 1)) nil] 9 (#$ . 5759)]) | |
| 35 | (put 'helm-dabbrev-info-dabbrev 'compiler-macro 'helm-dabbrev-info-dabbrev--cmacro) | |
| 36 | #@70 Access slot "dabbrev" of `helm-dabbrev-info' struct CL-X. | |
| 37 | ||
| 38 | (fn CL-X) | |
| 39 | (defalias 'helm-dabbrev-info-dabbrev #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-helm-dabbrev-info-tags type-of signal wrong-type-argument helm-dabbrev-info 1] 5 (#$ . 6209)]) | |
| 40 | (byte-code "\300\301\302\303#\300\207" [function-put helm-dabbrev-info-dabbrev side-effect-free t] 4) | |
| 41 | #@81 compiler-macro for inlining `helm-dabbrev-info-limits'. | |
| 42 | ||
| 43 | (fn CL-WHOLE-ARG CL-X) | |
| 44 | (defalias 'helm-dabbrev-info-limits--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-dabbrev-info-limits (or (helm-dabbrev-info-p cl-x) (signal 'wrong-type-argument (list 'helm-dabbrev-info cl-x))) (aref cl-x 2)) nil] 9 (#$ . 6585)]) | |
| 45 | (put 'helm-dabbrev-info-limits 'compiler-macro 'helm-dabbrev-info-limits--cmacro) | |
| 46 | #@69 Access slot "limits" of `helm-dabbrev-info' struct CL-X. | |
| 47 | ||
| 48 | (fn CL-X) | |
| 49 | (defalias 'helm-dabbrev-info-limits #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-helm-dabbrev-info-tags type-of signal wrong-type-argument helm-dabbrev-info 2] 5 (#$ . 7030)]) | |
| 50 | (byte-code "\300\301\302\303#\300\207" [function-put helm-dabbrev-info-limits side-effect-free t] 4) | |
| 51 | #@83 compiler-macro for inlining `helm-dabbrev-info-iterator'. | |
| 52 | ||
| 53 | (fn CL-WHOLE-ARG CL-X) | |
| 54 | (defalias 'helm-dabbrev-info-iterator--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-dabbrev-info-iterator (or (helm-dabbrev-info-p cl-x) (signal 'wrong-type-argument (list 'helm-dabbrev-info cl-x))) (aref cl-x 3)) nil] 9 (#$ . 7403)]) | |
| 55 | (put 'helm-dabbrev-info-iterator 'compiler-macro 'helm-dabbrev-info-iterator--cmacro) | |
| 56 | #@71 Access slot "iterator" of `helm-dabbrev-info' struct CL-X. | |
| 57 | ||
| 58 | (fn CL-X) | |
| 59 | (defalias 'helm-dabbrev-info-iterator #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-helm-dabbrev-info-tags type-of signal wrong-type-argument helm-dabbrev-info 3] 5 (#$ . 7858)]) | |
| 60 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put helm-dabbrev-info-iterator side-effect-free t defalias copy-helm-dabbrev-info copy-sequence] 4) | |
| 61 | #@109 compiler-macro for inlining `make-helm-dabbrev-info'. | |
| 62 | ||
| 63 | (fn CL-WHOLE &cl-quote &key DABBREV LIMITS ITERATOR) | |
| 64 | (defalias 'make-helm-dabbrev-info--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312\313\306\306&\207" [plist-member :dabbrev :limits :iterator (:dabbrev :limits :iterator :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:dabbrev :limits :iterator)" cl--defsubst-expand (dabbrev limits iterator) (cl-block make-helm-dabbrev-info (record 'helm-dabbrev-info dabbrev limits iterator))] 14 (#$ . 8294)]) | |
| 65 | (put 'make-helm-dabbrev-info 'compiler-macro 'make-helm-dabbrev-info--cmacro) | |
| 66 | #@89 Constructor for objects of type `helm-dabbrev-info'. | |
| 67 | ||
| 68 | (fn &key DABBREV LIMITS ITERATOR) | |
| 69 | (defalias 'make-helm-dabbrev-info #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312$\207" [plist-member :dabbrev :limits :iterator (:dabbrev :limits :iterator :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:dabbrev :limits :iterator)" record helm-dabbrev-info] 9 (#$ . 9037)]) | |
| 70 | (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-helm-dabbrev-info side-effect-free t cl-struct-define helm-dabbrev-info nil cl-structure-object record ((cl-tag-slot) (dabbrev) (limits) (iterator)) cl-struct-helm-dabbrev-info-tags] 11) | |
| 71 | (defvar helm-dabbrev--already-tried nil) | |
| 72 | (defvar helm-dabbrev--current-thread nil) | |
| 73 | (defalias 'helm-dabbrev--buffer-list #[0 "\301 \302\211:\203C @\262\302\303\302:\2032 @\262\304\305!\"\211\262?\211\262\2032 A\262\202 \266\203\204< B\262A\262\202 \211\237\207" [helm-dabbrev-ignored-buffers-regexps buffer-list nil t string-match buffer-name] 11]) | |
| 74 | #@73 Decide if current-buffer is related to START-BUFFER. | |
| 75 | ||
| 76 | (fn START-BUFFER) | |
| 77 | (defalias 'helm-dabbrev--same-major-mode-p #[257 "\301\"\207" [helm-dabbrev-major-mode-assoc helm-same-major-mode-p] 4 (#$ . 10200)]) | |
| 78 | #@34 | |
| 79 | ||
| 80 | (fn STR LIMIT IGNORE-CASE ALL) | |
| 81 | (defalias 'helm-dabbrev--collect #[1028 "p\302!\303C\303C\303C\304\3052\261 \203 \306 \202 pC\211\205\256 \211@r\211q\210\204; \2037 !\2028 \307\203\230 \212`\fGZb\210 \310&\210)\212 \311&\210)\212\242\203} \242b\210 \312&\210)\212\242\203\227 \242b\210 \313&\210))\242G Y\203\247 \314\305\303\"\210A\266\202\202 \2620\210\242\237)\207" [case-fold-search helm-dabbrev-related-buffer-fn minibufferp nil #[1542 "\242GX\205q \211\302\267\202H \303\304\305#\202I \306\304\305#\202I \212y\210`)\240\210\303\305#\262\202I \212[y\210`)\240\210\306\305#\262\202I \304\205q \307\224\310 \311Q\312#\211\203l \211\242\235\204l \242B\240\210\266\202 \207" [helm-dabbrev-lineno-around helm-dabbrev-separator-regexp #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 15 -1 23 2 31 -2 51)) search-forward nil t search-backward 0 "\\(" "\\)\\'" helm-dabbrev--search] 12 "\n\n(fn LIMIT RESULT POS-BEFORE POS-AFTER PATTERN DIRECTION)"] break helm-dabbrev--buffer-list t -2 2 -1 1 throw] 19 (#$ . 10414)]) | |
| 82 | #@400 Search word or symbol at point matching PATTERN. | |
| 83 | Argument BEG is corresponding to the previous match-beginning search. | |
| 84 | The search starts at (1- BEG) with a regexp starting with | |
| 85 | `helm-dabbrev-separator-regexp' followed by PATTERN followed by a | |
| 86 | regexp matching syntactically any word or symbol. | |
| 87 | The possible false positives matching SEP-REGEXP at end are finally | |
| 88 | removed. | |
| 89 | ||
| 90 | (fn PATTERN BEG SEP-REGEXP) | |
| 91 | (defalias 'helm-dabbrev--search #[771 "\301 \212Sb\210\302\303\304\305\306 !\307\260\310#\205 \311\312\313\314!#)\207" [helm-dabbrev-separator-regexp point-at-eol re-search-forward "\\(" "\\)" "\\(?99:\\(" regexp-quote "\\(\\sw\\|\\s_\\)+\\)\\)" t replace-regexp-in-string "" match-string-no-properties 99] 11 (#$ . 11576)]) | |
| 92 | #@32 | |
| 93 | ||
| 94 | (fn DABBREV &optional LIMIT) | |
| 95 | (defalias 'helm-dabbrev--get-candidates #[513 "\204 \303\304\305\306\211$\210\307\206 \310\267\202 \311!\202 \n$\207" [helm-dabbrev-candidates-number-limit helm-dabbrev-case-fold-search helm-dabbrev-always-search-all cl--assertion-failed dabbrev "[No Match]" nil helm-dabbrev--collect #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (smart 24)) helm-set-case-fold-search-1] 7 (#$ . 12313)]) | |
| 96 | #@18 | |
| 97 | ||
| 98 | (fn CANDIDATE) | |
| 99 | (defalias 'helm-dabbrev-default-action #[257 "r\302!\203 \206 p\211q\210\303 !\211@`\304\305\306\307 &\266\203)\207" [helm-current-buffer helm-dabbrev-separator-regexp buffer-live-p helm-bounds-of-thing-before-point run-with-timer 0.01 nil helm-insert-completion-at-point] 11 (#$ . 12790)]) | |
| 100 | #@47 Preconfigured helm for dynamic abbreviations. | |
| 101 | (defalias 'helm-dabbrev #[0 "\3062\270\307\310\"C\311!\312 ?\206 \313U\312\314 \242;\203( \242\315\230\203/ \316\317\320\310\211$\210\321 !@>\203A A\322=\204A \310\211\203K \323\242!B\211\204\270 \321 !@>\204\270 \324\325\242\326\327\330\323 \242 \"\310\211:\203\225 @\262\331\332\242!P\310\312 C\333#)\266\203\203\216 B\262A\262\202i \211\237\266\203!&\334\335!\203\270 D\203\270 \335\336\313\337\340\341 !\342\"\343$!E\321 !@>\205\324 \321 !@>\204\321 \344\345\346 D\"\210 \347H\310 F\211\205\336 \350!\211\203\351\321 !@>\204\363 \344\345\346 D\"\210 \343H@A#\210\211GB\211G\202\257\321 !@>\203&\321 !@>\204 \344\345\346 D\"\210 \352H\202(\242\353G\"A?D\204=\354\355!\210\323!B\211\204l\204l\240\210\321 !@>\204Z\344\345\346 D\"\210 \343H\262\310@`|\210\242c\210\334\356!\203\203D\203\203\357E!\203\203\356E!\210\204\222\211\203\222\360\306\354\361!\"\210\362\216H\203;\363\364CI\"J\365=\203\252\366\202\254J\310\211 K L J I\367\370M\206\276\371\"\210\372@A\"\210\373\216\374\375\376\377\201O \201P B\310\211:\203\366@\262G\235\204\357\211C\244\262A\262\202\331\363G\"\266\203\201Q \201R \201S \201T \201U N\201V \201W \201X \322&\201Y \201Z \201[ \331\242\201\\ Q\201] \201^ \201_ \312&\n-\202\254\201` \216\374\375\376\377\201O \201P B\310\211:\203j@\262G\235\204c\211C\244\262A\262\202M\363G\"\266\203\201Q \201R \201S \201T \201U N\201V \201W \201X \322&\201Y \201Z \201[ \331\242\201\\ Q\201] \201^ \201_ \312&\n))\266\202\262)\262+\266\2040\207" [helm-dabbrev-separator-regexp helm-dabbrev-cycle-threshold helm-quit-if-no-candidate helm-execute-action-at-once-if-one enable-recursive-minibuffers helm-dabbrev--data --cl-block-helm-dabbrev-- helm-thing-before-point nil helm-bounds-of-thing-before-point t 0 #[0 "\300\301!\207" [message "[Helm-dabbrev: No expansion found]"] 2] #1="" cl--assertion-failed (and (stringp dabbrev) (not (string= dabbrev #1#))) "[Helm-dabbrev: Nothing found before point]" type-of helm-dabbrev helm-dabbrev--get-candidates make-helm-dabbrev-info :dabbrev :limits :iterator helm-iter-list "^" regexp-quote string-match fboundp make-thread make-byte-code "\302\300\242!\211\207" vconcat vector [helm-dabbrev--cache helm-dabbrev--get-candidates] 2 signal wrong-type-argument helm-dabbrev-info 3 helm-iter-next helm-insert-completion-at-point 1 all-completions message "Waiting for helm-dabbrev candidates..." thread-join thread-alive-p throw "[Helm-dabbrev: No expansion found]" #[0 "\205 \301!\205 \302!\207" [helm-show-completion-overlay overlayp delete-overlay] 2] append helm-show-completion same below helm-set-local-variable helm-display-function helm-default-display-buffer helm-show-completion-init-overlay #[0 "\301\211\207" [helm-dabbrev--already-tried nil] 2] helm :sources helm-make-source "Dabbrev Expand" cl-struct-helm-dabbrev-info-tags last-command helm-dabbrev--cache inhibit-changing-match-data helm-dabbrev-use-thread helm-dabbrev--current-thread deactivate-mark helm-dabbrev--already-tried helm-turn-on-show-completion helm-move-selection-after-hook helm-split-window-default-side helm-reuse-last-window-split-state helm-split-window-inside-p helm-show-completion-display-function helm-dabbrev-map helm-source-in-buffer :data :persistent-action ignore :persistent-help "DoNothing" :keymap :action helm-dabbrev-default-action :group :buffer "*helm dabbrev*" :input " " :resume noresume :allow-nest #[0 "\301\211\207" [helm-dabbrev--already-tried nil] 2]] 25 (#$ . 13113) nil]) | |
| 102 | (provide 'helm-dabbrev) | |
