WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/analyze.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:48 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/analyze.el
;;; in Emacs version 24.3.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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require semantic semantic/format semantic/ctxt semantic/scope semantic/sort semantic/analyze/fcn] 2)
#@50 Collection of any errors thrown during analysis.
(defvar semantic-analyze-error-stack nil (#$ . 759))
#@64 Push the error in ERR-DATA onto the error stack.
Argument ERR.
(defalias 'semantic-analyze-push-error #[(err) "	B\211\207" [err semantic-analyze-error-stack] 2 (#$ . 867)])
(byte-code "\300\301\302\303\304$\210\300\305\306\307\310$\210\300\311\312\313\314$\210\300\315\316\302\317$\210\320\321\322\321\323\"\"\210\324\321\302\301\325$\210\320\321\322\321\326\"\"\210\324\321\302\311\327$\210\320\321\322\321\326\"\"\210\324\321\302\305\330$\210\320\331\322\331\332\"\"\210\324\331\302\301\333$\210\320\331\322\331\334\"\"\210\324\331\302\311\335$\210\320\331\322\331\334\"\"\210\324\331\302\305\336$\207" [eieio-defclass semantic-analyze-context nil ((bounds :initarg :bounds :type list :documentation "The bounds of this context.\nUsually bound to the dimension of a single symbol or command.") (prefix :initarg :prefix :type list :documentation "List of tags defining local text.\nThis can be nil, or a list where the last element can be a string\nrepresenting text that may be incomplete.  Preceding elements\nmust be semantic tags representing variables or functions\ncalled in a dereference sequence.") (prefixclass :initarg :prefixclass :type list :documentation "Tag classes expected at this context.\nThese are classes for tags, such as 'function, or 'variable.") (prefixtypes :initarg :prefixtypes :type list :documentation "List of tags defining types for :prefix.\nThis list is one shorter than :prefix.  Each element is a semantic\ntag representing a type matching the semantic tag in the same\nposition in PREFIX.") (scope :initarg :scope :type (or null semantic-scope-cache) :documentation "List of tags available in scopetype.\nSee `semantic-analyze-scoped-tags' for details.") (buffer :initarg :buffer :type buffer :documentation "The buffer this context is derived from.") (errors :initarg :errors :documentation "Any errors thrown an caught during analysis.")) ("Base analysis data for any context.") semantic-analyze-context-assignment (semantic-analyze-context) ((assignee :initarg :assignee :type list :documentation "A sequence of tags for an assignee.\nThis is a variable into which some value is being placed.  The last\nitem in the list is the variable accepting the value.  Earlier\ntags represent the variables being dereferenced to get to the\nassignee.")) ("Analysis class for a value in an assignment.") semantic-analyze-context-functionarg (semantic-analyze-context) ((function :initarg :function :type list :documentation "A sequence of tags for a function.\nThis is a function being called.  The cursor will be in the position\nof an argument.\nThe last tag in :function is the function being called.  Earlier\ntags represent the variables being dereferenced to get to the\nfunction.") (index :initarg :index :type integer :documentation "The index of the argument for this context.\nIf a function takes 4 arguments, this value should be bound to\nthe values 1 through 4.") (argument :initarg :argument :type list :documentation "A sequence of tags for the :index argument.\nThe argument can accept a value of some type, and this contains the\ntag for that definition.  It should be a tag, but might\nbe just a string in some circumstances.")) ("Analysis class for a value as a function argument.") semantic-analyze-context-return (semantic-analyze-context) ("Analysis class for return data.\nReturn data methods identify the required type by the return value\nof the parent function.") eieio--defalias semantic-analyze-type-constraint eieio--defgeneric-init-form #1="Return a type constraint for completing :prefix in CONTEXT.\nOptional argument DESIRED-TYPE may be a non-type tag to analyze." eieio--defmethod #[(context &optional desired-type) "\303\304\305\217)\205W\211A@)\306=\204&\211\307\310	\311	8)\n\"+;\2032\306D\202V@;\203J\303\312\313\217)\204J@\306D\202V\303\314\315\217)\204V\303\207" [desired-type tag attribute nil (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) type :type plist-get 2 (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error))] 4 #1#] #2="Return a type constraint for completing :prefix in CONTEXT." #[(context) "\301\302\303\"@\"\207" [context call-next-method eieio-oref argument] 5 #2#] #[(context) "\301\302\303\304\"!@\"\207" [context call-next-method reverse eieio-oref assignee] 6 "Return a type constraint for completing :prefix in CONTEXT."] semantic-analyze-interesting-tag #3="Return a tag from CONTEXT that would be most interesting to a user." #[(context) "\303\304\305\"!\211\203	@\306\307\310\217)\204	A\211\204	@)\207" [context prefix tag reverse eieio-oref :prefix nil (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error))] 5 #3#] #4="Try the base, and if that fails, return what we are assigning into." #[(context) "\301 \206\n\302\303\"\242\207" [context call-next-method eieio-oref :function] 3 #4#] #[(context) "\301 \206\n\302\303\"\242\207" [context call-next-method eieio-oref :assignee] 3 "Try the base, and if that fails, return what we are assigning into."]] 5)
#@616 Attempt to find all tags in SEQUENCE.
Optional argument LOCALVAR is the list of local variables to use when
finding the details on the first element of SEQUENCE in case
it is not found in the global set of tables.
Optional argument SCOPE are additional terminals to search which are currently
scoped.  These are not local variables, but symbols available in a structure
which doesn't need to be dereferenced.
Optional argument TYPERETURN is a symbol in which the types of all found
will be stored.  If nil, that data is thrown away.
Optional argument THROWSYM specifies a symbol the throw on non-recoverable error.
(defalias 'semantic-analyze-find-tag-sequence #[(sequence &optional scope typereturn throwsym) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\366$\202\317$)\207" [overload property mode symbol bind name semantic-analyze-find-tag-sequence nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-analyze-find-tag-sequence-default mode-local-active-mode major-mode #1=#:override sequence scope typereturn throwsym] 6 (#$ . 6108)])
(put 'semantic-analyze-find-tag-sequence 'mode-local-overload t)
#@253 Attempt to find all tags in SEQUENCE.
SCOPE are extra tags which are in scope.
TYPERETURN is a symbol in which to place a list of tag classes that
are found in SEQUENCE.
Optional argument THROWSYM specifies a symbol the throw on non-recoverable error.
(defalias 'semantic-analyze-find-tag-sequence-default #[(sequence &optional scope typereturn throwsym) "\306\211\211\211	\205\f\307	!)*\310!\211)\203'\306*)C\202\202	\2035\311*@\306	#\206:\312*@!\211)<\203S)@\306\313\314\217)\203S\315)!))\306\316\317\217)\204s+\203l\320+\321\"\210\202s\322\323*@\"\210*A*)
B\324)!*\203|)\325,\211\211A@),*=\203\274\n\203\257\326\327\330\331\f\"\"-\332\n\333-#\210)\334)\n\"\206\301)\202\301\335)	\"\211.\205\313\324.!/\3060\336.	\"012\3370!\3063\2114\203*@4@\211@)\230\203\3764@3B34A\2114\204\3503\237+\211)<\203$)@\306\340\341\217)\203$\315)!))\306\342\343\217)\204D*A\203?\322\323*@\"\210\202D*@)/\206J\211\203h)\306\344\345\217)\203h\346)!\204h\347)\350#\210)
B.\fB+*A\211*\204\2075\203\2075\f\237L\210
\237.\207" [sequence scope miniscope fname tagtype tag nil clone semanticdb-typecache-find semantic-scope-find semantic-analyze-find-tag (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) semantic-analyze-select-best-tag (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) throw "Cannot find definition" error "Cannot find definition for \"%s\"" semantic-tag-file-name type apply append mapcar semantic-tag-type-members eieio-oset fullscope semantic-analyze-type semantic-analyze-tag-type semantic-analyze-scoped-type-parts semantic-something-to-tag-table (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) semantic-tag-in-buffer-p semantic--tag-put-property :filename tmp s throwsym class rawscope tmptype typefile slots semantic-case-fold case-fold-search result tags typereturn] 8 (#$ . 7766)])
#@440 Return the first tag found with NAME or nil if not found.
Optional argument TAGCLASS specifies the class of tag to return,
such as 'function or 'variable.
Optional argument SCOPE specifies a scope object which has
additional tags which are in SCOPE and do not need prefixing to
find.

This is a wrapper on top of semanticdb, semanticdb typecache,
semantic-scope, and semantic search functions.  Almost all
searches use the same arguments.
(defalias 'semantic-analyze-find-tag #[(name &optional tagclass scope) ":\203	\202\f\306!\211<\203&\307	!\206b\310	\n\311#\312\f\")\202b	;\205b\n\2054\313\f\n#\211\203@\312
\f\"\202a\f\314=\203L\307!\202a\307!\211\203X
\202a\312\315\316!\300\"\f\"))\207" [name namelst scope seq tagclass retlist semantic-analyze-split-name semanticdb-typecache-find semantic-analyze-find-tag-sequence nil semantic-analyze-select-best-tag semantic-scope-find type semanticdb-strip-find-results semanticdb-find-tags-by-name] 5 (#$ . 10014)])
#@602 Call ANALYZEHOOKFCN after analyzing the symbol under POSITION.
The ANALYZEHOOKFCN is called with the current symbol bounds, and the
analyzed prefix.  It should take the arguments (START END PREFIX).
The ANALYZEHOOKFCN is only called if some sort of prefix with bounds was
found under POSITION.

The results of ANALYZEHOOKFCN is returned, or nil if there was nothing to
call it with.

For regular analysis, you should call `semantic-analyze-current-context'
to calculate the context information.  The purpose for this function is
to provide a large number of non-cached analysis for filtering symbols.
(defalias 'semantic-analyze-current-symbol #[(analyzehookfcn &optional position) "\204\306\307!\210\310 \210\311 \312\216\212\313\211\314\315\211\f\316
!\314\f\204@\211\204@\205>\317\"\f\203m\204m\f\320N\203\\\317\f\320N\"\211\204@\f\211\321N\206g\f\322N)\211\204D,\211\205\201\203
N\205\201
J+\206\n\211\323N)\205\n\211\323N)\314\315\211\f\316
!\314\f\204\300\211\204\300\205\276\317\"\f\203\355\204\355\f\320N\203\334\317\f\320N\"\211\204\300\f\211\321N\206\347\f\322N)\211\204\304,\211\205\203\377
N\205
J+)\211\203\"\202\324\",\207" [semantic-new-buffer-fcn-was-run save-match-data-internal overload property mode symbol error "Cannot analyze buffers not supported by Semantic" semantic-refresh-tags-safe match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) semantic-analyze-current-symbol nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-analyze-current-symbol-default bind name mode-local-active-mode major-mode #1=#:override analyzehookfcn position] 5 (#$ . 11009)])
(put 'semantic-analyze-current-symbol 'mode-local-overload t)
#@57 Call ANALYZEHOOKFCN on the analyzed symbol at POSITION.
(defalias 'semantic-analyze-current-symbol-default #[(analyzehookfcn position) "\306\307 \310\n\206`!\211@\3118\312\n!\306
\2035\203,\313\314\215\210\2021\315\316\317\217\210\307 \f\205A
@
A\f#.\207" [semantic-analyze-error-stack LLstart position prefixandbounds prefix bounds nil current-time semantic-ctxt-current-symbol-and-bounds 2 semantic-calculate-scope unfindable (byte-code "\302	\303\304$\302\207" [prefix scope semantic-analyze-find-tag-sequence prefixtypes unfindable] 5) err (byte-code "\302	\303#\302\207" [prefix scope semantic-analyze-find-tag-sequence prefixtypes] 4) ((error (semantic-analyze-push-error err))) scope end debug-on-error analyzehookfcn] 5 (#$ . 12904)])
#@459 Analyze the current context at optional POSITION.
If called interactively, display interesting information about POSITION
in a separate buffer.
Returns an object based on symbol `semantic-analyze-context'.

This function can be overridden with the symbol `analyze-context'.
When overriding this function, your override will be called while
cursor is at POSITION.  In addition, your function will not be called
if a cached copy of the return object is found.
(defalias 'semantic-analyze-current-context #[(&optional position) "\204\306\307!\210\310 \210	\204`\212	b\210\311\312!\313 p\314\216\315
!\210\n\204\217\316\211\"\317\320#$\211%$$%\321%!\317&'$\204b(\211$\204b)$\205`\322'\"&$\203\226&\204\226$\323N\203\201\322'$\323N\"\211&\204b$\211$\324N\206\217$\325N)\211$\204g&,\211%\205\257#\203\254%#N\205\257%J+\206J\"\211\"\326N)\205J\"\211\"\326N)\317\320#$\211%$$%\321%!\317&'$\204\374(\211$\204\374)$\205\372\322'\"&$\2030&\2040$\323N\203\322'$\323N\"\211&\204\374$\211$\324N\206)$\325N)\211$\204&,\211%\205I#\203F%#N\205I%J+)\211*\203X*	!\202[\327	!)\211\203z\330\n\331\"\203z\332p\333\n\331\"@\333\n\331\"A\n\312\334&\210\335\336!\203\217\n\203\213\337\n!\210\202\217\340\341!\210\n-\207" [semantic-new-buffer-fcn-was-run position answer #1=#:buffer #2=#:table semantic-lex-syntax-table error "Cannot analyze buffers not supported by Semantic" semantic-refresh-tags-safe semantic-get-cache-data current-context syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table semantic-analyze-current-context nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-analyze-current-context-default eieio-oref bounds semantic-cache-data-to-buffer slot-value exit-cache-zone called-interactively-p any semantic-analyze-pop-to-context message "No Context." overload property mode symbol bind name mode-local-active-mode major-mode #3=#:override] 8 (#$ . 13681) "d"])
(put 'semantic-analyze-current-context 'mode-local-overload t)
#@104 Analyze the current context at POSITION.
Returns an object based on symbol `semantic-analyze-context'.
(defalias 'semantic-analyze-current-context-default #[(position) "\306\211\307\n\206\n`!\211@\3108\311 4\3065\312\n!6\306\2117\306\21189\306\211:;\306\211<=\313 \211\203\250\314 8\315\316\317\217\210\3207!@;\203p\3207!\3207!@\321\306>?\211@?\322>!\306\211\257+\240\2107\203\250\3237!\306A\211B\203\241B@\211CA@)\321=\203\230B@ABABA\211B\204\202A\237*\211D\204s\3237!\306A\211B\203\327B@\211CA@)\324=\203\316B@ABABA\211B\204\270A\237*\211E\203rFG\323E@\211C\325HC\326CC\310C8)H\"+!\306A\211B\203.E@\211C@)B@\211C@)\230\203%B@ABABA\211B\204	A\237+\211D\203nD\211I\203jI@\327HC\326CC\310C8)H\"*\203aI@DBDIA\211I\204@)\202r7D)\330D!@\2119C\306\331\332\217)\205\2418S9\211C\333HC\326CC\310C8)H\"+8:D7)
\203\275J\203\270\334\335\215\210\202\275\315\336\337\217\2107\203\345\340\341\342p\3437\3448\345:C\3466\347\f\3504\351
\3525\353&\202/\354 \211;\203\315\355\356\217\203\357\360\342p\361<\3466\351
\347\f\3504\3525\353&\202/
\203-\362\363\342p\3466\351
\347\f\3504\3525\353&\202/\306	.\207" [semantic-analyze-error-stack context-return position prefixandbounds prefix bounds nil semantic-ctxt-current-symbol-and-bounds 2 semantic-ctxt-current-class-list semantic-calculate-scope semantic-ctxt-current-function semantic-ctxt-current-argument err (byte-code "\303	\"\303\207" [function scope fntag semantic-analyze-find-tag-sequence] 3) ((error (semantic-analyze-push-error err))) last function semantic-tag-make-plist semantic-something-to-tag-table type :members plist-get :constructor reverse (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) :arguments unfindable (byte-code "\303	\304\305$\306!\211\203\303\n	\304\305$\303\207" [prefix scope newseq semantic-analyze-find-tag-sequence prefixtypes unfindable semantic-analyze-dereference-alias] 5) (byte-code "\303	\304#\305!\211\203\303\n	\304#\303\207" [prefix scope newseq semantic-analyze-find-tag-sequence prefixtypes semantic-analyze-dereference-alias] 4) ((error (semantic-analyze-push-error err))) semantic-analyze-context-functionarg "functionargument" :buffer :function :index :argument :scope :prefix :prefixclass :bounds :prefixtypes :errors semantic-ctxt-current-assignment (byte-code "\303	\"\211\207" [assign scope asstag semantic-analyze-find-tag-sequence] 3) ((error (semantic-analyze-push-error err) nil)) semantic-analyze-context-assignment "assignment" :assignee semantic-analyze-context "context" prefixclass prefixtypes scope fntag arg fntagend argtag assign asstag newseq attributes class name result tags tag fcn ty semantic-case-fold case-fold-search attribute lp debug-on-error] 23 (#$ . 15859)])
#@187 Dereference first tag in TAGLIST if it is an alias.
Returns a sequence of names which can then be fed again into
`semantic-analyze-find-tag-sequence'.
Returns nil if no alias was found.
(defalias 'semantic-analyze-dereference-alias #[(taglist) "@\304\305\n\306\n8)	\"*\307=\205;\310@\311\305\n\306\n8)	\"*@\211@)!\312<\2035\2027CA\")\207" [taglist attribute tag tagname :kind plist-get 2 alias semantic-analyze-split-name :members append] 5 (#$ . 18773)])
#@129 Perform `semantic-analyze-current-context'.
Display the results as a debug list.
Optional argument CTXT is the context to show.
(defalias 'semantic-adebug-analyze #[(&optional ctxt) "\303\304!\210\305 \206\f\306 \305 \204\307\310!\202@\307\311\n	\312\313	\n\"!*\"\210\314!\210\203=\315\316!\210\317\320\"\202@\307\321!+\207" [ctxt end start require data-debug current-time semantic-analyze-current-context message "No Analyzer Results" "Analysis  took %.2f seconds." float-time time-subtract semantic-analyze-pulse data-debug-new-buffer "*Analyzer ADEBUG*" data-debug-insert-object-slots "]" "No Context to analyze here."] 6 (#$ . 19253) nil])
(byte-code "\301\302\303\302\304\"\"\210\305\302\306\307\310$\210\311\312\313\314\315\316\317&\207" [semantic-format-tag-custom-list eieio--defalias semantic-analyze-pulse eieio--defgeneric-init-form #1="Pulse the region that CONTEXT affects." eieio--defmethod nil semantic-analyze-context #[(context) "\302\303!\210r\304\305\"q\210\304\306\"\211\205\307	@	A\"*\207" [context bounds require pulse eieio-oref :buffer :bounds pulse-momentary-highlight-region] 4 #1#] custom-declare-variable semantic-analyze-summary-function 'semantic-format-tag-prototype "Function to use when creating items in Imenu.\nSome useful functions are found in `semantic-format-tag-functions'." :group semantic :type] 8)
#@105 Send the tag SEQUENCE to standard out.
Use PREFIX as a label.
Use BUFF as a source of override methods.
(defalias 'semantic-analyze-princ-sequence #[(sequence &optional prefix buff) "\205N\304	!\210@\305\306\307\217)\203\304@!!\210\202>@;\2036\304\310!\210\304\311@\312\"!\210\304\310!\210\202>\304\313\314@\"!\210\304\315!\210A\316	G\317\"\202\207" [sequence prefix tag semantic-analyze-summary-function princ nil (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) "\"" semantic--format-colorize-text variable format "'%S" "\n" make-string 32] 4 (#$ . 20624)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\303\"\"\210\304\301\305\310\311$\210\300\301\302\301\303\"\"\210\304\301\305\312\313$\207" [eieio--defalias semantic-analyze-show eieio--defgeneric-init-form #1="Insert CONTEXT into the current buffer in a nice way." eieio--defmethod nil semantic-analyze-context #[(context) "\301\302\303\"\304\"\210\301\302\305\"\306\"\210\301\302\307\"\310\"\210\301\302\311\"\312\"\210\313\314!\210\302\315\"\2051\316\302\315\"!\207" [context semantic-analyze-princ-sequence eieio-oref prefix "Prefix: " prefixclass "Prefix Classes: " prefixtypes "Prefix Types: " errors "Encountered Errors: " princ "--------\n" scope semantic-analyze-show] 4 #1#] semantic-analyze-context-assignment #[(context) "\301\302\303\"\304\"\210\305 \207" [context semantic-analyze-princ-sequence eieio-oref assignee "Assignee: " call-next-method] 4 "Insert CONTEXT into the current buffer in a nice way."] semantic-analyze-context-functionarg #[(context) "\301\302\303\"\304\"\210\305\306!\210\305\302\307\"!\210\305\310!\210\301\302\311\"\312\"\210\313 \207" [context semantic-analyze-princ-sequence eieio-oref function "Function: " princ "Argument Index: " index "\n" argument "Argument: " call-next-method] 4 "Insert CONTEXT into the current buffer in a nice way."]] 5)
#@110 Display CONTEXT in a temporary buffer.
CONTEXT's content is described in `semantic-analyze-current-context'.
(defalias 'semantic-analyze-pop-to-context #[(context) "\306!\210	r\307\310!q\210p\311 \210\n\312\211\313\211\313\314 \210\315\316!\210+\211\317\320!\210\317\321!!\210\317\322!\210\317\323!\210\317\324\325\"!\210\317\322!\210\326!\210\327!\210+\330\331\310!!\207" [context default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list semantic-analyze-pulse get-buffer-create "*Semantic Context Analysis*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Context Type: " object-name "\n" "Bounds: " eieio-oref bounds semantic-analyze-show internal-temp-output-buffer-show shrink-window-if-larger-than-buffer get-buffer-window inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 22589)])
(provide 'semantic/analyze)
F1l3 Manager
