| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file contains utf-8 non-ASCII characters, | |
| 7 | ;;; and so cannot be loaded into Emacs 22 or earlier. | |
| 8 | (and (boundp 'emacs-version) | |
| 9 | (< (aref emacs-version (1- (length emacs-version))) ?A) | |
| 10 | (string-lessp emacs-version "23") | |
| 11 | (error "`%s' was compiled for Emacs 23 or later" #$)) | |
| 12 | ||
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 14 | ||
| 15 | ||
| 16 | (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) | |
| 17 | (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)) | |
| 18 | (defvar helm-semantic--tags-cache nil) | |
| 19 | #@84 Write the contents of TAGS to the current buffer. | |
| 20 | ||
| 21 | (fn TAGS DEPTH &optional CLASS) | |
| 22 | (defalias 'helm-semantic--fetch-candidates #[770 "\211\304r\305!\203 \206 p\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)]) | |
| 23 | #@39 | |
| 24 | ||
| 25 | (fn CANDIDATE &optional PERSISTENT) | |
| 26 | (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)]) | |
| 27 | (defalias 'helm-semantic--maybe-set-needs-update #[0 "r\302!\203 \206 p\211q\210 \303=\205 \303\211)\207" [helm-current-buffer semantic-parse-tree-state buffer-live-p needs-update] 2]) | |
| 28 | (defvar helm-source-semantic nil) | |
| 29 | (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) | |
| 30 | #@77 Create a new object of class type `helm-semantic-source'. | |
| 31 | ||
| 32 | (fn &rest SLOTS) | |
| 33 | (defalias 'helm-semantic-source #[128 "\300\301\302#\207" [apply make-instance helm-semantic-source] 5 (#$ . 4771)]) | |
| 34 | (byte-code "\300\301\302\303#\300\207" [function-put helm-semantic-source compiler-macro helm-semantic-source--anon-cmacro] 4) | |
| 35 | #@26 | |
| 36 | ||
| 37 | (fn WHOLE &rest SLOTS) | |
| 38 | (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)]) | |
| 39 | (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) | |
| 40 | #@114 Preconfigured `helm' for `semantic'. | |
| 41 | If ARG is supplied, pre-select symbol at point instead of current | |
| 42 | ||
| 43 | (fn ARG) | |
| 44 | (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"]) | |
| 45 | #@310 Preconfigured helm for `semantic' or `imenu'. | |
| 46 | If ARG is supplied, pre-select symbol at point instead of current | |
| 47 | semantic tag in scope. | |
| 48 | ||
| 49 | If `semantic-mode' is active in the current buffer, then use | |
| 50 | semantic for generating tags, otherwise fall back to `imenu'. | |
| 51 | Fill in the symbol at point by default. | |
| 52 | ||
| 53 | (fn ARG) | |
| 54 | (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"]) | |
| 55 | (provide 'helm-semantic) | |
