HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/cedet/semantic/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/cedet/semantic/imenu.elc
;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 "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\310\311!\203%\301\312!\210\202*\313\314\315\"\210\316\317\320\321\322\302\322\307&\210\323\324\325\326\322\317\327&\210\330\324!\210\323\331\332\333\322\317\327\334&\210\330\331!\210\323\335\332\336\322\317\327\334&\210\323\337\332\340\322\317\327\334&\210\330\337!\210\323\341\332\342\322\317\327\334&\210\330\341!\210\343\344\341\345#\210\323\346\332\347\322\317\327\334&\210\330\346!\210\343\350\346\345#\210\323\351\320\352\322\317\327\353&\210\330\351!\210\323\354\320\355\322\317\327\334&\210\323\356\320\357\322\317\327\334&\207" [semantic-format-tag-custom-list require semantic semantic/format semantic/db semantic/db-file semantic/sort imenu featurep speedbar semantic/sb add-hook speedbar-load-hook #[nil "\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 'semantic-format-tag-abbreviate "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 t "Non-nil if tags in a file are to be grouped into buckets." boolean semantic-imenu-adopt-external-members "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 "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 "Non-nil if types should have submenus with members in them." semantic-varalias-obsolete semantic-imenu-expand-type-parts "23.2" semantic-imenu-bucketize-type-members "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-bucketize-type-parts semantic-imenu-sort-bucket-function "Function to use when sorting tags in the buckets of functions.\nSee `semantic-bucketize' and the FILTER argument for more details on 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 "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 "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 (#$ . 3572))
#@67 Non-nil if `semantic-imenu-rebuild-directory-indexes' is running.
(defvar semantic-imenu-auto-rebuild-running nil (#$ . 3714))
#@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) (#$ . 3848))
(byte-code "\300\301!\210\302\303\301\304#\207" [make-variable-buffer-local semantic-imenu-expandable-tag-classes semantic-varalias-obsolete semantic-imenu-expandable-token "23.2"] 4)
#@158 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.
(defalias 'semantic-imenu-tag-overlay #[(tag) "\3048)\305	!\204*\306\307\310\"\211\311I\210\n\312	\311HI\210\n\313	\312HI\210\n)\202+	)\207" [tag o v semantic-imenu-directory-current-file 4 semantic-overlay-p make-vector 3 nil 0 1 2] 5 (#$ . 4304)])
#@220 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.
(defalias 'semantic-imenu-goto-function #[(name position &optional rest) "\306\307!\210\310!\2035\311!\312!\211\203,	p=\204 \313	!\210\314\n\f#\210\315`!\2023\316\317!\210\320\211*\207\321!\203Z\322H\323H\211\203N\324!\210\314\f#\210\315`!*\207\325=\203n\324!\210\314e\f#\210\315`!\207\3261}\314\f#\210\315`!0\207\210\316\327!\210\320\211\207" [position ob os name rest imenu--index-alist require pulse semantic-overlay-p semantic-overlay-start semantic-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)" pos file] 5 (#$ . 4726)])
#@112 This function is called as a hook to clear the imenu cache.
It is cleared after any parsing.
IGNORE arguments.
(defalias 'semantic-imenu-flush-fcn #[(&optional ignore) "\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] 4 (#$ . 5712)])
#@200 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.
(defalias 'semantic-create-imenu-index #[(&optional stream) "\303	\203\304\305!\203\306 \203\307\n\206\310 !\202%\311\n\206#\310 \312\"\313\314\315\312\316$\210\313\317\315\312\316$\210\207" [imenu-default-goto-function semantic-imenu-index-directory stream 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] 6 (#$ . 6204)])
#@139 Create an imenu tag index based on all files active in semanticdb.
Optional argument STREAM is the stream of tags for the current buffer.
(defalias 'semantic-create-imenu-directory-index #[(&optional stream) "\204	\306	\307\"\207\310\n\311\"\306	\307\"\206\312BC\313!\203a\310@\311\"\307@\n=\204Z\314@!\203Z\315@!\203Z\310@\305\"
\203U\306\310@\305\"\307\"\206V\312B\fBA*\202\203u\204u\316\216\317\320!\210)\f\237*\207" [semanticdb-current-database stream semanticdb-current-table tables index tags semantic-create-imenu-index-1 nil eieio-oref file file-only semanticdb-get-database-tables semanticdb-live-p semanticdb-equivalent-mode #[nil "\301\211\207" [semantic-imenu-auto-rebuild-running nil] 2] t semantic-imenu-rebuild-directory-indexes semantic-imenu-directory-current-file semantic-imenu-auto-rebuild-directory-indexes semantic-imenu-auto-rebuild-running] 5 (#$ . 6986)])
#@224 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.
(defalias 'semantic-create-imenu-index-1 #[(stream &optional parent) "		\203\306\n!\307\203\263\310\n\f
#\307\211\211\f
\211\204*\307\202\257\243\2045\204\237\203\217@@
@A\203_\203\206
\311!B\fB\f\202\206\203\206\312\f@\211A@)>\203}\311!\202\203\313\311!B\"\fA\211\204:\203\232\f\237\202\257\f\202\257@@
@A\311!,\202\266\311\n!*\207" [stream semantic-imenu-adopt-external-members tags semantic-imenu-bucketize-file parent semantic-imenu-sort-bucket-function semantic-adopt-external-members nil semantic-bucketize semantic-create-imenu-subindex append ("---") index name item buckets semantic-imenu-buckets-to-submenu tag semantic-imenu-expandable-tag-classes] 6 (#$ . 7915)])
#@57 From TAGS, create an imenu index of interesting things.
(defalias 'semantic-create-imenu-subindex #[(tags) "?\306\211\211\211\203\301@\307\n!
\204\247\n\211A@)>\203\247\f\203\247\f\n!	\203\227	@\3101d\n:\205`\n@;\205`\nA@9\205`\nA@\205`\311\n8<\205`\312\n8<0\202f\210\306)\203\227\203{\203{\313	\n\"\202~\314	!\315\n!\203\221\316\317\n!BB\202\223)\202\240\315\n!\205\240\317\n!BB\202\270\315\n!\203\270\n!\317\n!BBA\211\204\320\237!-\207" [semantic-imenu-expand-type-members parts tag index children notypecheck 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 tags semantic-imenu-expandable-tag-classes semantic-imenu-summary-function semantic-imenu-bucketize-type-members semantic-imenu-bucketize-file submenu] 6 (#$ . 8904)])
#@63 Rebuild directory index imenus based on Semantic database DB.
(defalias 'semantic-imenu-rebuild-directory-indexes #[(db) "\306 \307	\205E	@	Ap=\204\310!\203rq\210\n\311=\203A\203A\f=\203A\312 \210\307\313\314!\203>\314\202?\315 \210)\202*\207" [b l imenu-create-index-function semanticdb-current-database db imenu--index-alist buffer-list nil buffer-live-p semantic-create-imenu-index imenu--cleanup fboundp imenu-menu-filter imenu-update-menubar] 2 (#$ . 9862)])
#@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 #[nil "\301\302!\210\303\304\305\")\207" [function require semantic/db-mode #[nil "\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] 3 (#$ . 10355)])
(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 #[nil "?\302\211\207" [semantic-imenu-bucketize-file imenu--index-alist nil] 2 (#$ . 10849) nil])
#@60 Toggle the ability of imenu to turn buckets into submenus.
(defalias 'semantic-imenu-toggle-buckets-to-submenu #[nil "?\302\211\207" [semantic-imenu-buckets-to-submenu imenu--index-alist nil] 2 (#$ . 11063) nil])
#@60 Toggle the ability of imenu to bucketize the current file.
(defalias 'semantic-imenu-toggle-bucketize-type-parts #[nil "?\302\211\207" [semantic-imenu-bucketize-type-members imenu--index-alist nil] 2 (#$ . 11285) nil])
(require 'advice)
#@63 Function to convert semantic tags into `which-function' text.
(defvar semantic-which-function 'semantic-default-which-function (#$ . 11531))
#@71 Use color when displaying the current function with `which-function'.
(custom-declare-variable 'semantic-which-function-use-color nil '(#$ . 11678) :group 'semantic-imenu :type 'boolean)
#@165 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.
(defalias 'semantic-default-which-function #[(taglist) "G\305=\203\306@\307	#\207@\211A@)>\203(\310@\307	#\f@\311A!Q\207\306@\307	#\207" [taglist semantic-which-function-use-color tag 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 (#$ . 11872)])
(provide 'semantic/imenu)