Current File : //usr/local/share/emacs/27.2/lisp/cedet/srecode/mode.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\210\300\307!\210\300\310!\210\300\307!\210\311\312\313\314\315\302\316\317&\207" [require mode-local srecode srecode/insert srecode/find srecode/map semantic/decorate semantic/wisent semantic/senator custom-declare-variable srecode-minor-mode-hook nil "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] (#$ . 830))
#@66 Keymap used behind the srecode prefix key in srecode minor mode.
(defvar srecode-prefix-map (byte-code "\302 \303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\312#\210\313\211\314X\2033 \303\315\316 \"\317#\210 T\211\202 ))\207" [km k make-sparse-keymap define-key "/" srecode-insert [insert] "." srecode-insert-again "E" srecode-edit 97 122 format "%c" srecode-bind-insert] 6) (#$ . 938))
#@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) (#$ . 1354))
#@44 Menu keymap build from `srecode-menu-bar'.
(defvar srecode-minor-menu nil (#$ . 2462))
#@45 Use the insert key for inserting templates.
(custom-declare-variable 'srecode-takeover-INS-key nil '(#$ . 2555) :group 'srecode :type 'boolean)
#@32 Keymap for srecode minor mode.
(defvar srecode-mode-map (byte-code "\305 \306 \n#\210\307\310!\210\311\312\313 $\210\f\203 \306\314\n#\210)\207" [km 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]] 5) (#$ . 2705))
#@105 Non-nil if Srecode minor mode is enabled.
Use the command `srecode-minor-mode' to change this variable.
(defvar srecode-minor-mode nil (#$ . 3139))
(make-variable-buffer-local 'srecode-minor-mode)
#@459 Toggle srecode minor mode.
If called interactively, enable Srecode minor mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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}
(defalias 'srecode-minor-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\2032 \310\311\312\313\314 \"\"\204( \315\2028 \316\317\320\315\321$\210\2028 \322\317\320\321#\210\n\203@ \323\324!\210\323\324\n\203J \325\202K \326\"\210\327\330!\203p \304 \203_ \304 \232\203p \331\332\333\n\203k \334\202l \335 #\210))\336 \210\n\207" [#1=#:last-message arg srecode-minor-mode local current-message toggle prefix-numeric-value 0 apply append mapcar #[(map) "\302 \"\207" [map major-mode srecode-map-entries-for-mode] 3] srecode-get-maps nil add-hook cedet-m3-menu-do-hooks srecode-m3-items t remove-hook run-hooks srecode-minor-mode-hook srecode-minor-mode-on-hook srecode-minor-mode-off-hook called-interactively-p any " in current buffer" message "Srecode minor mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 3343) (list (or current-prefix-arg 'toggle))])
(defvar srecode-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\210\310\311\307\312\313\314\315\316\317\320\321\322& \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.)" add-minor-mode srecode-minor-mode nil custom-declare-variable global-srecode-minor-mode "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 :group srecode :type boolean] 12)
#@295 Toggle global use of srecode minor mode.
If called interactively, enable Global Srecode minor mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(defalias 'global-srecode-minor-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-srecode-minor-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally srecode-minor-mode 1 -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] 4 (#$ . 5607) (list (or current-prefix-arg 'toggle))])
(defvar global-srecode-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\313\"\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.)" add-minor-mode global-srecode-minor-mode nil boundp semantic-add-minor-mode srecode-minor-mode ""] 6)
#@103 Create a menu item of cascading filters active for this mode.
MENU-DEF is the menu to bind this into.
(defalias 'srecode-minor-mode-templates-menu #[(menu-def) "\306!\211\205\f \307 \310\"\311\211 \311\211 \311 !\n\204% \312\313\314\"C\202\324 \315 \242\n\203\311 \316\n@!\203\302 \307\n@\317\"\211\203\302
@ \307 \303\" \"\320\"!\" #\321 \322\"\205^ \307 \322\" $\323 ! %#\204\215 \"\230\203\201 \f\206z \"\311B\211#\202\215 \"\311B\211#!B!\312$\203\235 %\324$\325R\202\237 %\326\311\327\330\331\"\332%FDF\333# &#&#AB\241\210-
A\211\204> \nA\211\204- \334\335\336\337\fA!\"\"!.\207" [major-mode modetable subtab context active ltab srecode-get-mode-table eieio-oref tables nil vector "Load Mode Tables..." #[nil "\301!\207" [major-mode srecode-load-tables-for-mode] 2 nil nil] srecode-calculate-context srecode-template-table-in-project-p templates assoc slot-boundp binding eieio-object-name-string " (" ")" lambda (interactive) srecode-insert concat ":" t easy-menu-filter-return easy-menu-create-menu "Semantic Recoder Filters" append temp alltabs ctxt ctxtcons bind name new] 11 (#$ . 7254)])
#@63 List of code generators to be displayed in the srecoder menu.
(defvar srecode-minor-mode-generators nil (#$ . 8400))
#@103 Create a menu item of cascading filters active for this mode.
MENU-DEF is the menu to bind this into.
(defalias 'srecode-minor-mode-generate-menu #[(menu-def) "\304 \304\211\203# @\305\nA\n@\"B\306\307\n@\"\210 A\211\204\n *\310\311\312\"!)\207" [allgeneratorapps srecode-minor-mode-generators gen --dolist-tail-- nil vector message "Adding %S to srecode menu" easy-menu-filter-return easy-menu-create-menu "Semantic Recoder Generate Filters"] 5 (#$ . 8524)])
#@120 Bound insert for Srecode macros.
This command will insert whichever srecode template has a binding
to the current key.
(defalias 'srecode-bind-insert #[nil "\305!\210 \306 \307\310 \n #\211 \204 \311\312\n\"\210\313\f!+\207" [major-mode last-command-event k ctxt template srecode-load-tables-for-mode srecode-calculate-context srecode-template-get-table-for-binding srecode-table error "No template bound to %c" srecode-insert] 5 (#$ . 9000) nil])
#@111 Switch to the template buffer for TEMPLATE-NAME.
Template is chosen based on the mode of the starting buffer.
(defalias 'srecode-edit #[(template-name) "\306 \204\n \307\310\"\210\311\306 \"\211\204 \307\312 \"\210\313\n\314\"\315 \316\313\f\317\"!\210
\320p!\315 \211 \203W \313\n\321\" @\211 @)\230\203N @ B A\211 \2046 \237+\211G\322U\203o \323 @!\210\324 @!\202L G\322V\203H
\320p!\315 \211 \203\246 \313\n\325\" @\211 @)\230\203\235 @ B A\211 \204\205 \237+ \320 !\315 \211 \203\330 @\211 A@)\325=\203\317 @ B A\211 \204\271 \237* \2030 @\211 \326 8) !\327!!\203\376 \330!!\202!\331H* @\211 \326 8) !\327!!\203 \330!!\202$!\331H*W\2030 A\211\204\342 \203@\323 @!\210\324 @!\202D\307\332 \"*\202L\307\332 \"+\207" [major-mode template-name temp names tab semantic-case-fold 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" case-fold-search result tags tag ctxt cls o] 5 (#$ . 9459) (list (srecode-read-template-name "Template Name: " (car srecode-read-template-name-history)))])
#@376 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.
(defalias 'srecode-add-code-generator #[(function name &optional binding) "\306\307 \n\"\211\203 \310\n\"\202 ) B\211 \n\235\204\" \f\nB)
\203Y \311 C\312\211\211%\211 \203X G\313U\203P
G\313U\203P \314H
\314HU\204X \315\306#\210)\316
\"\211 \203\206 =\204\206 \317=\204y \320=\203\206 \321\322\323\"!\203\206 \306\204\224 \315
#\202\240 =?\205\240 \324\325
\")\207" [remloop function srecode-minor-mode-generators name #1=#:x binding 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." srecode-prefix-map oldkey oldbinding this-command] 7 (#$ . 10784)])
(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)
Mini Shell