MMCT TEAM
Server IP : 111.118.215.189  /  Your IP : 18.217.207.112
Web Server : Apache
System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
User : a1673wkz ( 2475)
PHP Version : 8.2.25
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON
Directory (0755) :  /usr/share/emacs/24.3/lisp/cedet/srecode/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : //usr/share/emacs/24.3/lisp/cedet/srecode/el.elc
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/srecode/el.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!\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 (#$ . 638)])
#@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 (#$ . 1178)])
#@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 (#$ . 1846)])
(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)

MMCT - 2023