;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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&\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-display-style funcall function #[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." :type (alist :key-type symbol :value-type symbol)] 8) (defvar helm-semantic-map (byte-code "\301 \302\"\210\207" [helm-map make-sparse-keymap set-keymap-parent] 4)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable helm-semantic-lynx-style-map funcall function #[0 "\300\207" [nil] 1] "Use Arrow keys to jump to occurences." :group helm-semantic :type boolean :set #[514 "L\210\211\203\301\302\303#\210\301\304\305#\207\301\306\307#\210\301\310\307#\207" [helm-semantic-map define-key [right] helm-execute-persistent-action [left] helm-maybe-exit-minibuffer [right] nil [left]] 6 "\n\n(fn VAR VAL)"]] 10) (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\303r\304!\203 \206p\211q\210\305 \n\")\206\306\211\205\266\211@\211<\203\257\211\211A@\262\211\262\211\307\267\210\202\257\310\311_\312\"\313= \314V\203L\211\203O\303\262\203m\211\204m\315\316\f\311W\203f\317\202g\320 $\202n\321\303\322#\323#\324\261\210\211\203\206@\262\325=\204\230\326\327! T\n#\210\266\202\257\321\303\322#\323#\324\261\266\202\257\210A\266\202\202\207" [helm-current-buffer major-mode helm-semantic-display-style nil buffer-live-p assoc-default semantic-format-tag-summarize #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (function 55 variable 55 type 55 package 157 include 157)) make-string 2 32 type 0 format "%s%s(%s) " "" "├►" propertize t semantic-tag "\n" function helm-semantic--fetch-candidates semantic-tag-components] 17 (#$ . 1908)]) #@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 (#$ . 2921)]) (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 (#$ . 4704)]) (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 (#$ . 5031)]) (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) #@115 Preconfigured `helm' for `semantic'. If ARG is supplied, pre-select symbol at point instead of current. (fn ARG) (defalias 'helm-semantic #[257 "\303 @\211\203%\304 @\230\203\305\306\"\202 \305\306\"\305\306\"B\262\202+\305\306\304 @\"\262\307 \204:\310\311\312\313\n$\314\315\301\316\317\320\203K\321\322!\202M\323\324&)\207" [helm-highlight-matches-around-point-max-lines helm-source-semantic helm-semantic-fuzzy-match semantic-current-tag-parent semantic-current-tag format "\\_<%s\\_>" never 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 (#$ . 5709) "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\314\211\302=\211\315\316!\2050 \317 @\211\203W\320 @\230\203I\321\322\"\202R\321\322\"\321\322\"B\262\202]\321\322\320 @\"\262\323\324\325\326\327\205y\330\205t\331 !\332QD\333\f\204\204\n\203\211 \202\213\334\335&\n+\207" [helm-source-semantic helm-semantic-fuzzy-match helm-source-imenu helm-imenu-fuzzy-match semantic-new-buffer-fcn-was-run helm-highlight-matches-around-point-max-lines helm-make-source "Semantic Tags" helm-semantic-source :fuzzy-match "Imenu" helm-imenu-source never 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*" imenu-auto-rescan helm-imenu-execute-action-at-once-if-one helm-execute-action-at-once-if-one] 16 (#$ . 6426) "P"]) (provide 'helm-semantic)