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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\307!\210\311\312\313\314\315DD\316\317\302\320\321&\207" [require mode-local srecode srecode/insert srecode/find srecode/map semantic/decorate semantic/wisent semantic/senator custom-declare-variable srecode-minor-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run at the end of the function `srecode-minor-mode'." :group :type hook] 8)
#@46 The common prefix key in srecode minor mode.
(defvar srecode-prefix-key [(control 99) 47] (#$ . 556))
#@66 Keymap used behind the srecode prefix key in srecode minor mode.
(defvar srecode-prefix-map (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\301
\305\306#\210\301
\307\310#\210\311\211\312X\2031\301\313\314\"\315#\210\211T\262
\202\210\207" [make-sparse-keymap define-key "/" srecode-insert [insert] "." srecode-insert-again "E" srecode-edit 97 122 format "%c" srecode-bind-insert] 7) (#$ . 664))
#@30 Menu for srecode minor mode.
(defvar srecode-menu-bar (byte-code "\300\301\302\303\304\305\306\304\307\310\311\312\313\314\257\257\n\207" ["SRecoder" ["Insert Template" srecode-insert :active t :help "Insert a template by name."] ["Insert Template Again" srecode-insert-again :active t :help "Run the same template as last time again."] ["Edit Template" srecode-edit :active t :help "Edit a template for this language by name."] "---" ("Insert ..." :filter srecode-minor-mode-templates-menu) ("Generate ..." :filter srecode-minor-mode-generate-menu) ["Customize..." (customize-group "srecode") :active t :help "Customize SRecode options"] "Debugging Tools..." ["Dump Template MAP" srecode-get-maps :active t :help "Calculate (if needed) and display the current template file map."] ["Dump Tables" srecode-dump-templates :active t :help "Dump the current template table."] ["Dump Dictionary" srecode-dictionary-dump :active t :help "Calculate and dump a dictionary for point."] ["Show Macro Help" srecode-macro-help :active t :help "Display the different types of macros available."]] 14) (#$ . 1077))
#@44 Menu keymap build from `srecode-menu-bar'.
(defvar srecode-minor-menu nil (#$ . 2185))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable srecode-takeover-INS-key funcall function #[0 "\300\207" [nil] 1 ""] "Use the insert key for inserting templates." :group srecode :type boolean] 8)
#@32 Keymap for srecode minor mode.
(defvar srecode-mode-map (byte-code "\304 \305
	#\210\306\307!\210\310\311\312\n$\210\203\305
\313	#\210\207" [srecode-prefix-key srecode-prefix-map srecode-menu-bar srecode-takeover-INS-key make-sparse-keymap define-key (lambda (#1=#:def-tmp-var) (defvar srecode-minor-menu #1# #2="Srecode Minor Mode Menu")) nil easy-menu-do-define srecode-minor-menu #2# [insert]] 6) (#$ . 2513))
#@105 Non-nil if Srecode minor mode is enabled.
Use the command `srecode-minor-mode' to change this variable.
(defvar srecode-minor-mode nil (#$ . 2939))
(make-variable-buffer-local 'srecode-minor-mode)
#@774 Toggle srecode minor mode.

This is a minor mode.  If called interactively, toggle the `Srecode
minor mode' mode.  If the prefix argument is positive, enable the
mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `srecode-minor-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

The minor mode can be turned on only if semantic feature is
available and the current buffer was set up for parsing.  Return
non-nil if the minor mode is enabled.

\{srecode-mode-map}

(fn &optional ARG)
(defalias 'srecode-minor-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\203U\311\312\313\314\315 \"\"\204E\305\202a\316\317!\203a\320\321\317\305\306$\210\202a\316\317!\203a\322\321\317\306#\210\203i\323\324!\210\323\324\203s\325\202t\326\"\210\327\330!\203\226\302 \203\210\211\302 \232\203\226\331\332\203\222\333\202\223\334\335#\210\210\336 \210\207" [srecode-minor-mode local-minor-modes current-message toggle 1 nil t boundp delq apply append mapcar #[257 "\301
\"\207" [major-mode srecode-map-entries-for-mode] 4 "\n\n(fn MAP)"] srecode-get-maps fboundp srecode-m3-items add-hook cedet-m3-menu-do-hooks remove-hook run-hooks srecode-minor-mode-hook srecode-minor-mode-on-hook srecode-minor-mode-off-hook called-interactively-p any message "Srecode minor mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 3143) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar srecode-minor-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\310\211%\210\313\314\315\316\317DD\320\321\322\323\324\325\326\327\330&\207" [srecode-mode-map srecode-minor-mode-hook variable-documentation put "Hook run after entering or leaving `srecode-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode srecode-minor-mode custom-declare-variable global-srecode-minor-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Srecode minor mode is enabled.\nSee the `global-srecode-minor-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-srecode-minor-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group srecode] 12)
#@636 Toggle global use of srecode minor mode.

This is a minor mode.  If called interactively, toggle the `Global
Srecode minor mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='global-srecode-minor-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'global-srecode-minor-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B\313\314	\203B\306\202C\315\"\210\316\317\305\301!\203Q\320\202R\321\"\210\322\323!\203z\324\301!\210\302 \203j\211\302 \232\203z\325\326\305\301!\203v\327\202w\330\331#\210\210\332 \210\305\301!\207" [global-minor-modes global-srecode-minor-mode current-message set-default toggle default-value 1 nil t boundp delq semantic-toggle-minor-mode-globally srecode-minor-mode -1 run-hooks global-srecode-minor-mode-hook global-srecode-minor-mode-on-hook global-srecode-minor-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Srecode minor mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 5999) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-srecode-minor-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\"\207" [global-srecode-minor-mode-map global-srecode-minor-mode-hook variable-documentation put "Hook run after entering or leaving `global-srecode-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-srecode-minor-mode boundp semantic-add-minor-mode srecode-minor-mode ""] 6)
#@118 Create a menu item of cascading filters active for this mode.
MENU-DEF is the menu to bind this into.

(fn MENU-DEF)
(defalias 'srecode-minor-mode-templates-menu #[257 "\301!\211\205\302
\303\"\304\211\211\211\211\204\305\306\307\"C\207\310 \242\262\203\240\311@!\203\231\302@\312\"\262\203\231@\262\302\313\"\314
\"\315\316\"\205N\302\316\"\317!\204t\230\203k\206cC\211\262\262\202tC\262B\262\305\203\201
\320\321R\202\202
\322\323#\324#
AB\241\266A\262\2023A\262\202\325\326\327\330A\"\"!\207" [major-mode srecode-get-mode-table eieio-oref tables nil vector "Load Mode Tables..." #[0 "\301!\207" [major-mode srecode-load-tables-for-mode] 2 nil nil] srecode-calculate-context srecode-template-table-in-project-p templates context assoc slot-boundp binding eieio-object-name-string "   (" ")" make-closure #[0 "\302\300\303\301Q!\207" [V0 V1 srecode-insert ":"] 4 nil nil] t easy-menu-filter-return easy-menu-create-menu "Semantic Recoder Filters" append] 18 (#$ . 8168)])
#@63 List of code generators to be displayed in the srecoder menu.
(defvar srecode-minor-mode-generators nil (#$ . 9211))
#@118 Create a menu item of cascading filters active for this mode.
MENU-DEF is the menu to bind this into.

(fn MENU-DEF)
(defalias 'srecode-minor-mode-generate-menu #[257 "\301\211\203\211@\302
A@\"B\262\303\304@\"\210
A\266\202\202\210\305\306\307\"!\207" [srecode-minor-mode-generators nil vector message "Adding %S to srecode menu" easy-menu-filter-return easy-menu-create-menu "Semantic Recoder Generate Filters"] 7 (#$ . 9335)])
#@120 Bound insert for Srecode macros.
This command will insert whichever srecode template has a binding
to the current key.
(defalias 'srecode-bind-insert #[0 "\302!\210	\303 \304\305 #\211\204\306\307\"\210\310
!\207" [major-mode last-command-event srecode-load-tables-for-mode srecode-calculate-context srecode-template-get-table-for-binding srecode-table error "No template bound to %c" srecode-insert] 6 (#$ . 9782) nil])
#@131 Switch to the template buffer for TEMPLATE-NAME.
Template is chosen based on the mode of the starting buffer.

(fn TEMPLATE-NAME)
(defalias 'srecode-edit #[257 "\303 \204\n\304\305\"\210\306\303 \"\211\204\304\307\"\210\310
\311\"\312\313\310\314\"!\210	\315p!\312
\203I\310\316\"@\211@\262
\230\203B
@
B\262

A\262\202*\211\237\266\202)\262
\211G\317U\203a\320
@!\210\321
@!\207\211G\317V\203
	\315p!\312
\203\215\310\322\"@\211@\262
\230\203\206
@
B\262

A\262\202n\211\237\266\202)\315
!\312
\203\263
@\211A@\262
\322=\203\254
@
B\262

A\262\202\226\211\237\266\202\203\374@\211\323
8\262
\324
!\203\321\325
!\266\202\202\326\211\326H\266\202
@\211\323
8\262
\324
!\203\354\325
!\266\202\202\361\211\326H\266\202W\203\374A\262\202\267\203\n
\320@!\210\321@!\207\304\327\"\207\304\327\"\207" [major-mode semantic-case-fold case-fold-search srecode-table error "No template table found for mode %s" srecode-template-get-table "No Template named %s" eieio-oref table nil find-file file semantic-something-to-tag-table object-name 1 semantic-go-to-tag semantic-momentary-highlight-tag context 4 overlayp overlay-start 0 "Can't find template %s"] 11 (#$ . 10216) (byte-code "\301\302@\"C\207" [srecode-read-template-name-history srecode-read-template-name "Template Name: "] 3)])
#@414 Add the srecoder code generator FUNCTION with NAME to the menu.
Optional BINDING specifies the keybinding to use in the srecoder map.
BINDING should be a capital letter.  Lower case letters are reserved
for individual templates.
Optional MODE specifies a major mode this function applies to.
Do not specify a mode if this function could be applied to most
programming modes.

(fn FUNCTION NAME &optional BINDING)
(defalias 'srecode-add-code-generator #[770 "\303\304\"\211\262\203\305
\"\202
\210B\211\235\204!\211B\210\211\203Q\306	C\307\211\211%\211\203P\211G\310U\203J
G\310U\203J\211\311H\311HU\204P\312	\303#\210\210\313	\"\211\203w\211=\204w\n\314=\204k\n\315=\203w\316\317\320\"!\203w\303\262
\211\204\202\312	#\207
=?\205\215\321\322\"\207" [srecode-minor-mode-generators srecode-prefix-map this-command nil assoc remove where-is-internal t 1 0 define-key lookup-key eval-defun checkdoc-eval-defun y-or-n-p format "Override old binding %s? " message "Conflict binding %S binding to srecode map."] 9 (#$ . 11546)])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\307\310!\207" [srecode-add-code-generator srecode-document-insert-comment "Comments" "C" srecode-insert-getset "Get/Set" "G" provide srecode/mode] 4)