mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 7074318d7ab58aca124f590c42fd820e8eb258a5
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\2032A\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 \202pC\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 \206p\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 !@>\203AA\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\312C\333#)\266\203\203\216B\262A\262\202i\211\237\266\203!&\334\335!\203\270D\203\270\335\336\313\337\340\341    !\342\"\343$!E\321 !@>\205\324\321 !@>\204\321\344\345\346 D\"\210 \347H\310F\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\211KLJI\367\370M\206\276\371\"\210\372@A\"\210\373\216\374\375\376\377\201O\201PB\310\211:\203\366@\262G\235\204\357\211C\244\262A\262\202\331\363G\"\266\203\201Q\201R\201S\201T\201UN\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\201PB\310\211:\203j@\262G\235\204c\211C\244\262A\262\202M\363G\"\266\203\201Q\201R\201S\201T\201UN\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)