403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/cedet/srecode/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/cedet/srecode/el.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require srecode srecode/semantic] 2)
#@155 Add macros into the dictionary DICT based on the current Emacs Lisp file.
Adds the following:
  PRENAME - The common name prefix of this file.

(fn DICT)
(defalias 'srecode-semantic-handle-:el #[257 "\300\301p!\302\203\"@\211A@\262\303=\203@B\262A\262\202\211\237\266\202\301p!\302\203G@\211A@\262\304=\203@@B\262A\262\202*\211\237\266\202\"\305\306\"\307\310#\207" [append semantic-something-to-tag-table nil function variable try-completion "" srecode-dictionary-set-value "PRENAME"] 7 (#$ . 163)])
#@229 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.

(fn DICT)
(defalias 'srecode-semantic-handle-:el-custom #[257 "\300\301!\210\302\303\304!!\305\211\2031\306\307@\211@\262\"\203\"@\262\202*\204*@\262A\262\202\211\2066\262\310\311\211@\262#\210\310\312\211@\262#\207" [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"] 9 (#$ . 698)])
#@211 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.

(fn TAGOBJ DICT)
(defalias 'srecode-semantic-apply-tag-to-dict-emacs-lisp-mode #[514 "\300\"\210\301\302\"\303!\304\305#\210\211A@\262\306=\2058\307\310\3118\262\"\266\202\2033\304\312\313#\207\304\312\314#\207" [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  " ""] 10 (#$ . 1358)])
(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)

Youez - 2016 - github.com/yon3zu
LinuXploit