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 ] |
---|
;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)