Current File : //usr/local/share/emacs/27.2/lisp/cedet/srecode/el.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!\207" [require srecode srecode/semantic] 2)
#@144 Add macros into the dictionary DICT based on the current Emacs Lisp file.
Adds the following:
PRENAME - The common name prefix of this file.
(defalias 'srecode-semantic-handle-:el #[(dict) "\306\307p!\310\211\203# @\211A@)\311=\203 @B A\211\204 \237*\307p!\310\211\203H @\211A@)\312=\203A @B A\211\2040 \237*\"\313\314 \" \315
\316\f#*\207" [result tags tag names common dict append semantic-something-to-tag-table nil function variable try-completion "" srecode-dictionary-set-value "PRENAME"] 5 (#$ . 487)])
#@218 Add macros into the dictionary DICT based on the current Emacs Lisp file.
Adds the following:
GROUP - The `defgroup' name we guess you want for variables.
FACEGROUP - The `defgroup' name you might want for faces.
(defalias 'srecode-semantic-handle-:el-custom #[(dict) "\305\306!\210\307\310\311!!\312\211\211\2032 \313\314\n@\211@)\"\203$ \n@\202+ \204+ \n@\nA\211\204 \2067 \315\f\316 \211@)#\210\315\f\317\211@)#+\207" [faceg varg groups tag dict require semantic/db-find semanticdb-strip-find-results semanticdb-brute-find-tags-by-class customgroup nil string-match "face" srecode-dictionary-set-value "GROUP" "FACEGROUP"] 5 (#$ . 1027)])
#@192 Apply Emacs Lisp specific features from TAGOBJ into DICT.
Calls `srecode-semantic-apply-tag-to-dict-default' first.
Override srecode-semantic-apply-tag-to-dict in `emacs-lisp-mode' buffers.
(defalias 'srecode-semantic-apply-tag-to-dict-emacs-lisp-mode #[(tagobj dict) "\305 \"\210\306\307\"\310\n!\311 \312 #\210\n\211A@)\313=\205= \n\314 \315\n\316\n8)\f\"*\2038 \311 \317\320#\202= \311 \317\321#*\207" [tagobj dict tag doc attribute srecode-semantic-apply-tag-to-dict-default eieio-oref prime semantic-tag-docstring srecode-dictionary-set-value "DOC" function :user-visible-flag plist-get 2 "INTERACTIVE" " (interactive)\n " ""] 5 (#$ . 1695)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\311!\207" [put srecode-semantic-apply-tag-to-dict-emacs-lisp-mode definition-name srecode-semantic-apply-tag-to-dict mode-local-bind ((srecode-semantic-apply-tag-to-dict . srecode-semantic-apply-tag-to-dict-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode provide srecode/el] 4)
Mini Shell