;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\310\311\312\"\210\313\314\315\316\317\302\317\307&\210\320\321\322\323\324DD\325\326%\210\327\321!\210\320\330\322\323\331DD\332\326\333%\210\327\330!\210\320\334\322\323\335DD\336\326\333%\210\320\337\322\323\340DD\341\326\333%\210\327\337!\210\320\342\322\323\343DD\344\326\333%\210\327\342!\210\320\345\322\323\346DD\347\326\333%\210\327\345!\210\320\350\322\323\351DD\352\326\353%\210\327\350!\210\320\354\322\323\355DD\356\326\333%\210\320\357\322\323\360DD\361\326\333%\207" [semantic-format-tag-custom-list require semantic semantic/format semantic/db semantic/db-file semantic/sort imenu eval-after-load speedbar #[0 "\300\301!\207" [require semantic/sb] 2] custom-declare-group semantic-imenu nil "Semantic interface to Imenu." :group custom-declare-variable semantic-imenu-summary-function funcall function #[0 "\300\207" [semantic-format-tag-abbreviate] 1 #1=""] "Function to use when creating items in Imenu.\nSome useful functions are found in `semantic-format-tag-functions'." :type make-variable-buffer-local semantic-imenu-bucketize-file #[0 "\300\207" [t] 1 #1#] "Non-nil if tags in a file are to be grouped into buckets." boolean semantic-imenu-adopt-external-members #[0 "\300\207" [t] 1 #1#] "Non-nil if types in a file should adopt externally defined members.\nC++ and CLOS can define methods that are not in the body of a class\ndefinition." semantic-imenu-buckets-to-submenu #[0 "\300\207" [t] 1 #1#] "Non-nil if buckets of tags are to be turned into submenus.\nThis option is ignored if `semantic-imenu-bucketize-file' is nil." semantic-imenu-expand-type-members #[0 "\300\207" [t] 1 #1#] "Non-nil if types should have submenus with members in them." semantic-imenu-bucketize-type-members #[0 "\300\207" [t] 1 #1#] "Non-nil if members of a type should be grouped into buckets.\nA nil value means to keep them in the same order.\nOverridden to nil if `semantic-imenu-bucketize-file' is nil." semantic-imenu-sort-bucket-function #[0 "\300\207" [nil] 1 #1#] "Function to use when sorting tags in the buckets of functions.\nSee `semantic-bucketize' and the FILTER argument for more details\non this function." (radio (const :tag "No Sorting" nil) (const semantic-sort-tags-by-name-increasing) (const semantic-sort-tags-by-name-decreasing) (const semantic-sort-tags-by-type-increasing) (const semantic-sort-tags-by-type-decreasing) (const semantic-sort-tags-by-name-increasing-ci) (const semantic-sort-tags-by-name-decreasing-ci) (const semantic-sort-tags-by-type-increasing-ci) (const semantic-sort-tags-by-type-decreasing-ci) (function)) semantic-imenu-index-directory #[0 "\300\207" [nil] 1 #1#] "Non-nil to index the entire directory for tags.\nDoesn't actually parse the entire directory, but displays tags for all files\ncurrently listed in the current Semantic database.\nThis variable has no meaning if semanticdb is not active." semantic-imenu-auto-rebuild-directory-indexes #[0 "\300\207" [nil] 1 #1#] "If non-nil automatically rebuild directory index imenus.\nThat is when a directory index imenu is updated, automatically rebuild\nother buffer local ones based on the same semanticdb."] 8)
#@74 When building a file index, this is the file name currently being built.
(defvar semantic-imenu-directory-current-file nil (#$ . 3298))
#@67 Non-nil if `semantic-imenu-rebuild-directory-indexes' is running.
(defvar semantic-imenu-auto-rebuild-running nil (#$ . 3440))
#@199 List of expandable tag classes.
Tags of those classes will be given submenu with children.
By default, a `type' has interesting children.  In Texinfo, however, a
`section' has interesting children.
(defvar semantic-imenu-expandable-tag-classes '(type) (#$ . 3574))
(make-variable-buffer-local 'semantic-imenu-expandable-tag-classes)
#@168 Return the overlay belonging to tag.
If TAG doesn't have an overlay, and instead as a vector of positions,
concoct a combination of file name, and position.

(fn TAG)
(defalias 'semantic-imenu-tag-overlay #[257 "\211\301
8\262
\302
!\204$\303\304\305\"\211\306I\210\211\307\306HI\210\211\310\307HI\210\207\207" [semantic-imenu-directory-current-file 4 overlayp make-vector 3 nil 0 1 2] 7 (#$ . 3914)])
#@255 Move point associated with NAME to POSITION.
Used to override function `imenu-default-goto-function' so that
we can continue to use overlays to maintain the current position.
Optional argument REST is some extra stuff.

(fn NAME POSITION &optional REST)
(defalias 'semantic-imenu-goto-function #[770 "\301\302!\210\303!\2030\304!\305!
\203(\211p=\204\306
!\210\307#\210\310`!\207\311\312!\210\313\211\207\314!\203N
\315H\316H
\203D\317!\210\307#\210\310`!\207
\320=\203b\317!\210\307e#\210\310`!\207\3211q\307#\210\310`!0\207\210\311\322!\210\313\211\207" [imenu--index-alist require pulse overlayp overlay-start overlay-buffer switch-to-buffer imenu-default-goto-function pulse-momentary-highlight-one-line message "Imenu is out of date, try again. (internal bug)" nil vectorp 0 1 find-file file-only (error) "Semantic Imenu override problem. (Internal bug)"] 9 (#$ . 4327)])
#@135 This function is called as a hook to clear the imenu cache.
It is cleared after any parsing.
IGNORE arguments.

(fn &optional IGNORE)
(defalias 'semantic-imenu-flush-fcn #[256 "\303=\203\n\304\305\306\307\310\311#\210\306\312\310\311#\207" [imenu-create-index-function imenu--index-alist imenu-menubar-modified-tick semantic-create-imenu-index nil 0 remove-hook semantic-after-toplevel-cache-change-hook semantic-imenu-flush-fcn t semantic-after-partial-cache-change-hook] 5 (#$ . 5239)])
#@223 Create an imenu index for any buffer which supports Semantic.
Uses the output of the Semantic parser to create the index.
Optional argument STREAM is an optional stream of tags used to create menus.

(fn &optional STREAM)
(defalias 'semantic-create-imenu-index #[256 "\302	\203\303\304!\203\305 \203\306
\206\307 !\202%\310
\206#\307 \311\"\312\313\314\311\315$\210\312\316\314\311\315$\210\207" [imenu-default-goto-function semantic-imenu-index-directory semantic-imenu-goto-function featurep semantic/db semanticdb-minor-mode-p semantic-create-imenu-directory-index semantic-fetch-tags-fast semantic-create-imenu-index-1 nil add-hook semantic-after-toplevel-cache-change-hook semantic-imenu-flush-fcn t semantic-after-partial-cache-change-hook] 7 (#$ . 5739)])
#@162 Create an imenu tag index based on all files active in semanticdb.
Optional argument STREAM is the stream of tags for the current buffer.

(fn &optional STREAM)
(defalias 'semantic-create-imenu-directory-index #[256 "\204	\305
\306\"\207\307	\310\"\305\306\"\206\311BC\312!\211\203b\307
@\310\"\306
@	=\204X\313@!\203X\314@!\203X\307@\315\"\262
\n
\203R\305\307@\315\"\306\"\206S\311BB\262A\262)\266\202\203s\f\204s\316\216\317\320!\210)
\237\207" [semanticdb-current-database semanticdb-current-table semantic-imenu-directory-current-file semantic-imenu-auto-rebuild-directory-indexes semantic-imenu-auto-rebuild-running semantic-create-imenu-index-1 nil eieio-oref file file-only semanticdb-get-database-tables semanticdb-live-p semanticdb-equivalent-mode tags #[0 "\301\211\207" [semantic-imenu-auto-rebuild-running nil] 2] t semantic-imenu-rebuild-directory-indexes] 10 (#$ . 6520)])
#@254 Create an imenu index for any buffer which supports Semantic.
Uses the output of the Semantic parser to create the index.
STREAM is a stream of tags used to create menus.
Optional argument PARENT is a tag parent of STREAM.

(fn STREAM &optional PARENT)
(defalias 'semantic-create-imenu-index-1 #[513 "
\211\203\305!\262
\306	\203\232\307
\n#\306\211\211\204$\266\306\202\235\243\204-\204\210\203w@@\262@A\262\203O\203p
\310!B
B\262
\202p\203p\311
@\211A@\262
\f>\203g\310!\202m\312\310!B\"\262
A\262\202-\203\202\211\237\266\204\202\235\211\266\204\202\235@@\262@A\262\310!\266\204\202\235\310
!)\207" [semantic-imenu-adopt-external-members semantic-imenu-bucketize-file semantic-imenu-sort-bucket-function semantic-imenu-buckets-to-submenu semantic-imenu-expandable-tag-classes semantic-adopt-external-members nil semantic-bucketize semantic-create-imenu-subindex append ("---")] 13 (#$ . 7446)])
#@68 From TAGS, create an imenu index of interesting things.

(fn TAGS)
(defalias 'semantic-create-imenu-subindex #[257 "?\305\211\211\211\203\267@\262\306!\262\204\237
\211A@\262
	>\203\237\203\237\262
\n!
\203\216
@\3071_\211:\205Y\211@;\205Y\211A@9\205Y\211A@\205Y\310
8<\205Y\311
8<0\262
\202c\210\305\262
\203\216\203u\f\203u\312\"\202x\313!\314!\203\210\315\316!B
B\202\211\211\262
\202\227\314!\205\227\316!BB\262\202\260\314!\203\260\n!\316!BB\262A\262\202\317\237!\207" [semantic-imenu-expand-type-members semantic-imenu-expandable-tag-classes semantic-imenu-summary-function semantic-imenu-bucketize-type-members semantic-imenu-bucketize-file nil semantic-tag-components-with-overlays (error) 2 3 semantic-create-imenu-index-1 semantic-create-imenu-subindex semantic-tag-with-position-p "*definition*" semantic-imenu-tag-overlay imenu--split-submenus] 11 (#$ . 8399)])
#@72 Rebuild directory index imenus based on Semantic database DB.

(fn DB)
(defalias 'semantic-imenu-rebuild-directory-indexes #[257 "\303 \304
\205;
@\262

A\262\211p=\204\305
!\203r\211q\210\306=\2037	\2037	=\2037\307 \210\304\310 \210)\202\207" [imenu-create-index-function semanticdb-current-database imenu--index-alist buffer-list nil buffer-live-p semantic-create-imenu-index imenu--cleanup imenu-update-menubar] 5 (#$ . 9331)])
#@114 Function to be called from `semanticdb-mode-hook'.
Clears all imenu menus that may be depending on the database.
(defalias 'semantic-imenu-semanticdb-hook #[0 "\300\301!\210\302\303
\304\"\207" [require semantic/db-mode #[0 "\300 \203\301 \210\302 \207" [semanticdb-minor-mode-p semanticdb-semantic-init-hook-fcn semantic-imenu-flush-fcn] 1] mode-local-map-file-buffers semantic-active-p] 4 (#$ . 9783)])
(add-hook 'semanticdb-mode-hook 'semantic-imenu-semanticdb-hook)
#@60 Toggle the ability of imenu to bucketize the current file.
(defalias 'semantic-imenu-toggle-bucketize-file #[0 "?\302\211\207" [semantic-imenu-bucketize-file imenu--index-alist nil] 2 (#$ . 10261) nil])
#@60 Toggle the ability of imenu to turn buckets into submenus.
(defalias 'semantic-imenu-toggle-buckets-to-submenu #[0 "?\302\211\207" [semantic-imenu-buckets-to-submenu imenu--index-alist nil] 2 (#$ . 10473) nil])
#@60 Toggle the ability of imenu to bucketize the current file.
(defalias 'semantic-imenu-toggle-bucketize-type-parts #[0 "?\302\211\207" [semantic-imenu-bucketize-type-members imenu--index-alist nil] 2 (#$ . 10693) nil])
(require 'advice)
#@63 Function to convert semantic tags into `which-function' text.
(defvar semantic-which-function 'semantic-default-which-function (#$ . 10937))
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable semantic-which-function-use-color funcall function #[0 "\300\207" [nil] 1 ""] "Use color when displaying the current function with `which-function'." :type boolean] 6)
#@179 Convert TAGLIST into a string usable by `which-function'.
Returns the first tag name in the list, unless it is a type,
in which case it concatenates them together.

(fn TAGLIST)
(defalias 'semantic-default-which-function #[257 "\211G\303=\203\304
@\305#\207\211@\211A@\262
	>\203(\306
@\305#\n@\307A!Q\207\304
@\305#\207" [semantic-which-function-use-color semantic-imenu-expandable-tag-classes semantic-type-relation-separator-character 1 semantic-format-tag-abbreviate nil semantic-format-tag-name semantic-default-which-function] 5 (#$ . 11331)])
(provide 'semantic/imenu)