.emacs.d.git - Gitblit

;ELC
;;; Compiled
;;; in Emacs version 26.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.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(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)
#@51 Regexp matching the start of a dabbrev candidate.
(defvar helm-dabbrev-separator-regexp "\\s-\\|    \\|[(\\[\\{\"'`=<$;,@.#+]\\|\\s\\\\|^\n\\|^" (#$ . 4634))
(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))
(defvar helm-dabbrev--cache nil)
(defvar helm-dabbrev--data nil)
#@76 compiler-macro for inlining `helm-dabbrev-info-p'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'helm-dabbrev-info-p 'compiler-macro 'helm-dabbrev-info-p--cmacro)
#@13 
 
(fn CL-X)
(defalias 'helm-dabbrev-info-p #[257 "\301!>\205    \302\207" [cl-struct-helm-dabbrev-info-tags type-of t] 3 (#$ . 5457)])
(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)
#@82 compiler-macro for inlining `helm-dabbrev-info-dabbrev'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'helm-dabbrev-info-dabbrev 'compiler-macro 'helm-dabbrev-info-dabbrev--cmacro)
#@70 Access slot "dabbrev" of `helm-dabbrev-info' struct CL-X.
 
(fn CL-X)
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-dabbrev-info-dabbrev side-effect-free t] 4)
#@81 compiler-macro for inlining `helm-dabbrev-info-limits'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'helm-dabbrev-info-limits 'compiler-macro 'helm-dabbrev-info-limits--cmacro)
#@69 Access slot "limits" of `helm-dabbrev-info' struct CL-X.
 
(fn CL-X)
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-dabbrev-info-limits side-effect-free t] 4)
#@83 compiler-macro for inlining `helm-dabbrev-info-iterator'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'helm-dabbrev-info-iterator 'compiler-macro 'helm-dabbrev-info-iterator--cmacro)
#@71 Access slot "iterator" of `helm-dabbrev-info' struct CL-X.
 
(fn CL-X)
(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)])
(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)
#@109 compiler-macro for inlining `make-helm-dabbrev-info'.
 
(fn CL-WHOLE &cl-quote &key DABBREV LIMITS ITERATOR)
(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)])
(put 'make-helm-dabbrev-info 'compiler-macro 'make-helm-dabbrev-info--cmacro)
#@89 Constructor for objects of type `helm-dabbrev-info'.
 
(fn &key DABBREV LIMITS ITERATOR)
(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)])
(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)
(defvar helm-dabbrev--already-tried nil)
(defvar helm-dabbrev--current-thread nil)
(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])
#@73 Decide if current-buffer is related to START-BUFFER.
 
(fn START-BUFFER)
(defalias 'helm-dabbrev--same-major-mode-p #[257 "\301\"\207" [helm-dabbrev-major-mode-assoc helm-same-major-mode-p] 4 (#$ . 10200)])
#@34 
 
(fn STR LIMIT IGNORE-CASE ALL)
(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))\242GY\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)])
#@400 Search word or symbol at point matching PATTERN.
Argument BEG is corresponding to the previous match-beginning search.
The search starts at (1- BEG) with a regexp starting with
`helm-dabbrev-separator-regexp' followed by PATTERN followed by a
regexp matching syntactically any word or symbol.
The possible false positives matching SEP-REGEXP at end are finally
removed.
 
(fn PATTERN BEG SEP-REGEXP)
(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)])
#@32 
 
(fn DABBREV &optional LIMIT)
(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)])
#@18 
 
(fn CANDIDATE)
(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)])
#@47 Preconfigured helm for dynamic abbreviations.
(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])
(provide 'helm-dabbrev)