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

Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312%\210\313\314\315\316\317DD\320\311\306\321\322&\210\313\323\315\316\324DD\325\311\306\321\326&\207" [require cl-lib semantic helm-help helm-imenu custom-declare-group helm-semantic nil "Semantic tags related libraries and applications for helm." :group helm custom-declare-variable helm-semantic-lynx-style-map funcall function #[0 "\300\207" [t] 1] "Use Arrow keys to jump to occurences." :type boolean helm-semantic-display-style #[0 "\300\207" [((python-mode . semantic-format-tag-summarize) (c-mode . semantic-format-tag-concise-prototype-c-mode) (emacs-lisp-mode . semantic-format-tag-abbreviate-emacs-lisp-mode))] 1] "Function to present a semantic tag according to `major-mode'.\n\nIt is an alist where the `car' of each element is a `major-mode' and\nthe `cdr' a `semantic-format-tag-*' function.\n\nIf no function is found for current `major-mode', fall back to\n`semantic-format-tag-summarize' default function.\n\nYou can have more or less informations depending of the `semantic-format-tag-*'\nfunction you choose.\n\nAll the supported functions are prefixed with \"semantic-format-tag-\",\nyou have completion on these functions with `C-M i' in the customize interface." (alist :key-type symbol :value-type symbol)] 8)
(defvar helm-semantic-map (byte-code "\302 \303\"\210    \203\304\305\306#\210\304\307\310#\210\311\312\"\207" [helm-map helm-semantic-lynx-style-map make-sparse-keymap set-keymap-parent define-key [left] helm-maybe-exit-minibuffer [right] helm-execute-persistent-action delq nil] 5))
(defvar helm-semantic--tags-cache nil)
#@84 Write the contents of TAGS to the current buffer.
 
(fn TAGS DEPTH &optional CLASS)
(defalias 'helm-semantic--fetch-candidates #[770 "\211\304r\305!\203 \206p\211q\210\306    \n\")\206\307\211\205\271\211@\211<\203\262\211\211A@)\211\262\310\311\"\203\235\312\313_\314\"\315=    \316V\203L\211\203O\304\262\203m\211\204m\317\320\f\313W\203f\321\202g\322 $\202n\323\304\324#\325#\326\261\210\211\203\206@\262\327=\204\230\330\331! T\n#\210\266\202\261\310\332\"\203\261\323\304\324#\325#\326\261\210\210A\266\202\202\262\207" [helm-current-buffer major-mode helm-semantic-display-style tag nil buffer-live-p assoc-default semantic-format-tag-summarize memql (function variable type) make-string 2 32 type 0 format "%s%s(%s) " "" "├►" propertize t semantic-tag "\n" function helm-semantic--fetch-candidates semantic-tag-components (package include)] 17 (#$ . 2059)])
#@39 
 
(fn CANDIDATE &optional PERSISTENT)
(defalias 'helm-semantic-default-action #[513 "\301\302!\210rq\210\303\304!\203\305\306 \307\310\311 $b\210\312`\307\"\313!\210?\205(\314`!\262)\207" [helm-buffer helm-log-run-hook helm-goto-line-before-hook looking-at " " next-single-property-change point-at-bol semantic-tag nil point-at-eol get-text-property semantic-go-to-tag pulse-momentary-highlight-one-line] 7 (#$ . 2988)])
(defalias 'helm-semantic--maybe-set-needs-update #[0 "r\302!\203 \206p\211q\210    \303=\205\303\211)\207" [helm-current-buffer semantic-parse-tree-state buffer-live-p needs-update] 2])
(defvar helm-source-semantic nil)
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-semantic-source-p eieio-make-class-predicate helm-semantic-source helm-semantic-source--eieio-childp eieio-make-child-predicate helm-semantic-source-child-p make-obsolete "use (cl-typep ... \\='helm-semantic-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer) ((init :initform (lambda nil (helm-semantic--maybe-set-needs-update) (setq helm-semantic--tags-cache (semantic-fetch-tags)) (with-current-buffer (helm-candidate-buffer 'global) (let ((major-mode (with-helm-current-buffer major-mode))) (helm-semantic--fetch-candidates helm-semantic--tags-cache 0))))) (get-line :initform 'buffer-substring) (persistent-help :initform "Show this entry") (keymap :initform 'helm-semantic-map) (help-message :initform 'helm-semantic-help-message) (persistent-action :initform (lambda (elm) (helm-semantic-default-action elm t) (helm-highlight-current-line))) (action :initform 'helm-semantic-default-action)) nil] 6)
#@77 Create a new object of class type `helm-semantic-source'.
 
(fn &rest SLOTS)
(defalias 'helm-semantic-source #[128 "\300\301\302#\207" [apply make-instance helm-semantic-source] 5 (#$ . 4771)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-semantic-source compiler-macro helm-semantic-source--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(defalias 'helm-semantic-source--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 5098)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable helm-semantic-fuzzy-match funcall function #[0 "\300\207" [nil] 1] "Enable fuzzy matching in `helm-source-semantic'." :group helm-semantic :type boolean :set #[514 "L\210\302\303\304\305$\211\207" [helm-semantic-fuzzy-match helm-source-semantic helm-make-source "Semantic Tags" helm-semantic-source :fuzzy-match] 7 "\n\n(fn VAR VAL)"]] 10)
#@114 Preconfigured `helm' for `semantic'.
If ARG is supplied, pre-select symbol at point instead of current
 
(fn ARG)
(defalias 'helm-semantic #[257 "\302 @\211\203%\303 @\230\203\304\305\"\202 \304\305\"\304\305\"B\262\202+\304\305\303 @\"\262\2048\306\307\310\311    $\312\313\300\314\315\316\203I\317\320!\202K\321\322&\207" [helm-source-semantic helm-semantic-fuzzy-match semantic-current-tag-parent semantic-current-tag format "\\_<%s\\_>" helm-make-source "Semantic Tags" helm-semantic-source :fuzzy-match helm :sources :candidate-number-limit 9999 :preselect thing-at-point symbol :buffer "*helm semantic*"] 11 (#$ . 5777) "P"])
#@310 Preconfigured helm for `semantic' or `imenu'.
If ARG is supplied, pre-select symbol at point instead of current
semantic tag in scope.
 
If `semantic-mode' is active in the current buffer, then use
semantic for generating tags, otherwise fall back to `imenu'.
Fill in the symbol at point by default.
 
(fn ARG)
(defalias 'helm-semantic-or-imenu #[257 "\204 \306\307\310\311    $\n\204\306\312\313\311 $\f\203\300\202\302\211\302=\211\314\315!\205-\316 @\211\203T\317 @\230\203F\320\321\"\202O\320\321\"\320\321\"B\262\202Z\320\321\317 @\"\262\322\323\324\325\326\205v\327\205q\330    !\331QD\332\f\204\201\n\203\206    \202\210\333\334&\n*\207" [helm-source-semantic helm-semantic-fuzzy-match helm-source-imenu helm-imenu-fuzzy-match semantic-new-buffer-fcn-was-run imenu-auto-rescan helm-make-source "Semantic Tags" helm-semantic-source :fuzzy-match "Imenu" helm-imenu-source thing-at-point symbol semantic-current-tag-parent semantic-current-tag format "\\_<%s\\_>" helm :sources :candidate-number-limit 9999 :default "\\_<" regexp-quote "\\_>" :preselect :buffer "*helm semantic/imenu*" helm-imenu-execute-action-at-once-if-one helm-execute-action-at-once-if-one] 16 (#$ . 6434) "P"])
(provide 'helm-semantic)