Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
cedet /
semantic /
bovine /
Delete
Unzip
Name
Size
Permission
Date
Action
c-by.elc
34.42
KB
-rw-r--r--
2023-06-07 04:13
c.elc
100.68
KB
-rw-r--r--
2023-06-07 04:13
debug.elc
4.23
KB
-rw-r--r--
2023-06-07 04:13
el.elc
37.21
KB
-rw-r--r--
2023-06-07 04:13
gcc.elc
5.47
KB
-rw-r--r--
2023-06-07 04:13
grammar.elc
17.06
KB
-rw-r--r--
2023-06-07 04:13
make-by.elc
5.66
KB
-rw-r--r--
2023-06-07 04:13
make.elc
15.94
KB
-rw-r--r--
2023-06-07 04:13
scm-by.elc
3.51
KB
-rw-r--r--
2023-06-07 04:13
scm.elc
9.35
KB
-rw-r--r--
2023-06-07 04:13
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:13:32 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/bovine/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!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require semantic semantic/bovine find-func semantic/ctxt semantic/format thingatpt] 2) #@185 A simple lexical analyzer for Emacs Lisp. This lexer ignores comments and whitespace, and will return syntax as specified by the syntax table. See `semantic-lex' for more information. (defalias 'semantic-emacs-lisp-lexer #[(start end &optional depth length) "\306\307\310 \n#\210`\306\211 = >\311 ?@\206 A B \nB C\306 D\ndV\2034 \312\313\nd#\210\314 p E F\315\216\316G!\210 b\210`\nW\203\350H\203X \fGHX\203\350\317\320!\203e \311\225>\202\223\317\321!\203r \311\225>\202\223\317I!\203\243 \322\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204\230 JAA\202\233 JA)A)>\202\223\317\323!\203\374 \324\311!\211 K K\325L!\205\304 K;\205\304 \326KL\")\211K\205\316 KJ)\206\323 \327\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204\361 JAA\202\364 JA)A)>\202\223\317\330!\203,\331\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204!JAA\202$JA)A)>\202\223\317\332!\203\256B\203??BW\203n?T?\333\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204cJAA\202fJA)A)>\202\223\334\311\224\212M\203\204N\203\204\335\336!\210`\202\210\306\337\340\217)BB\fB\211@\211 J\211 JA@\247\204\243JAA\202\246JA)A)>\202\223\317\341!\203\343?S?\342\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204\330JAA\202\333JA)A)>\202\223\317\343!\203(\344`\212M\203\376N\203\376\345\336!\210`\202\306\346\347\217)BB\fB\211@\211 J\211 JA@\247\204 JAA\202 JA)A)>\202\223\317O!\203_` P\350\336!\210`P=\203F\351\352\353 \"\210\202Mn\203M\354u\210`P=\203X\312\355!\210`>)\202\223\317\356!\203\217\357\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204\204JAA\202\207JA)A)>\202\223\312\360!\210>==\203\243\312\361=\f@#\210>=>b\210Q\203\300\362 \204\272\363 \203\300\364Q\365\"\210\f@ JR\205\343\306 S\366\216J\203\331\367J!S\370\371\372J?#!*)\210\202E + \203. \211A@\211 T\211 U\203\373\374U@U\211 VA@)#\210 \211A@\211U\204\373T@ WXWC@CA#b\210`\211>)\210* b\210\f\237. \207" [semantic-lex-block-streams start end starting-position semantic-lex-token-stream semantic-lex-block-stack nil run-hook-with-args semantic-lex-reset-functions 0 error "semantic-emacs-lisp-lexer: end (%d) > point-max (%d)" syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1=#:buffer #2=#:table set-syntax-table] 2)) set-syntax-table looking-at "\\s-+" "\\s-*\\(\n\\|\\s>\\)" number "\\(\\sw\\|\\s_\\)+" match-string arrayp intern-soft symbol "\\s\\+" charquote "\\s(" open-paren semantic-list forward-list 1 (byte-code "\300\301!\210`\207" [forward-list 1] 2) ((error (byte-code "\304 \n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point semantic-list] 4))) "\\s)" close-paren "\\s\"" string forward-sexp (byte-code "\300\301!\210`\207" [forward-sexp 1] 2) ((error (byte-code "\304 \n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point string] 4))) forward-comment skip-syntax-forward "-.'" point-at-eol -1 "Strange comment syntax prevents lexical analysis" "\\(\\s.\\|\\s$\\|\\s'\\)" punctuation "Unmatched Text during Lexical Analysis" "semantic-emacs-lisp-lexer: endless loop at %d, after %S" input-pending-p accept-process-output throw lex ((byte-code "\203 \301!\210\301\207" [o semantic-overlay-delete] 2)) semantic-lex-highlight-token semantic-read-event format "%S :: Depth: %d :: SPC - continue" message "semantic-emacs-lisp-lexer: `%s' block from %S is unterminated" tmp-start semantic-lex-end-point semantic-lex-current-depth depth semantic-lex-depth semantic-lex-maximum-depth semantic-lex-analysis-bounds parse-sexp-lookup-properties #1# #2# semantic-lex-syntax-table length semantic-lex-number-expression token name semantic-flex-keywords-obarray debug-on-error semantic-lex-debug-analyzers semantic-lex-comment-regex comment-start-point semantic-current-input-throw-symbol semantic-lex-debug o last blk x syntax semantic-lex-unterminated-syntax-end-function] 6 (#$ . 744)]) #@39 Top level bovination table for elisp. (defvar semantic--elisp-parse-table (byte-code "\300\301\302DDC\207" [bovine-toplevel semantic-list #[(vals start end) "\304@!\211<\203 @\305\306\307\217)\203 \237\202O \211:\205A @\305\310\311\217)\203? \312 @\313 8)!\203? A\211\202\" ?)\203I \202O \314 \n D\")\207" [vals tag start end semantic-elisp-use-read nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) vectorp 4 append] 5]] 3) (#$ . 4768)) #@41 Convert symbols to strings for ARGLIST. (defalias 'semantic-elisp-desymbolify #[(arglist) "\302 \2037 @9\203 \303 @!\202- @<\203( @@9\203( \303 @@!\202- \304\305 @\"B A\211\204 \237)\207" [out arglist nil symbol-name format "%S"] 4 (#$ . 5376)]) #@41 Convert symbols to strings for ARGLIST. (defalias 'semantic-elisp-desymbolify-args #[(arglist) "\305!\306\211\306\211 \203# \f@\307\310 \"\204 B\fA\211\204 * \237*\207" [arglist out in T --dolist-tail-- semantic-elisp-desymbolify nil string-match "^&"] 4 (#$ . 5638)]) #@43 For SLOT, a string representing PROPERTY. (defalias 'semantic-elisp-clos-slot-property-string #[(slot property) " \235\211\2051 \nA\211@;\203 \n@\2021 \n@9\204( \n@<\204( \n@\247\2030 \303\304\n@\"\2021 \305)\207" [property slot p format "%S" nil] 4 (#$ . 5924)]) #@64 Convert a list of CLOS class slot PARTLIST to `variable' tags. (defalias 'semantic-elisp-clos-args-to-semantic #[(partlist) "\306\211\211 \203K @ A\307 @!\310 \311\"\310 \312\"\313\310 \313\"\314\310 \315\"\316\232\317\310 \317\"\257 \320\321\322\311\323 \f&,\211\nB\202 \n\237+\207" [v part vars partlist attributes default-value nil symbol-name semantic-elisp-clos-slot-property-string :type :initform :protection :static-flag :allocation ":class" :documentation apply semantic-tag variable :default-value type name] 12 (#$ . 6198)]) #@199 After reading a form FORM, convert it to a doc string. For Emacs Lisp, sometimes that string is non-existent. Sometimes it is a form which is evaluated at compile time, permitting compound strings. (defalias 'semantic-elisp-form-to-doc-string #[(form) ";\203 \207<\203 @\301=\203 A@;\203 A@\207\302\207" [form concat nil] 2 (#$ . 6761)]) #@65 *When non-nil, store documentation strings in the created tags. (defvar semantic-elisp-store-documentation-in-tag nil (#$ . -7115)) #@59 Return STR as a documentation string IF they are enabled. (defalias 'semantic-elisp-do-doc #[(str) "\205 \302 !\207" [semantic-elisp-store-documentation-in-tag str semantic-elisp-form-to-doc-string] 2 (#$ . 7253)]) #@417 Install the function PARSER as the form parser for SYMBOLS. SYMBOLS is a list of symbols identifying the forms to parse. PARSER is called on every forms whose first element (car FORM) is found in SYMBOLS. It is passed the parameters FORM, START, END, where: - FORM is an Elisp form read from the current buffer. - START and END are the beginning and end location of the corresponding data in the current buffer. (defalias 'semantic-elisp-setup-form-parser '(macro . #[(parser &rest symbols) "\303\304!\305\306 DD\307\310\311\nDFE)\207" [sym symbols parser make-symbol "sym" dolist quote put 'semantic-elisp-form-parser function] 7 (#$ . 7477)])) (put 'semantic-elisp-setup-form-parser 'lisp-indent-function 1) #@111 Reuse the form parser of SYMBOL for forms identified by SYMBOLS. See also `semantic-elisp-setup-form-parser'. (defalias 'semantic-elisp-reuse-form-parser '(macro . #[(symbol &rest symbols) "\304\305!\304\306!\307 \310\311\nD\312BBDC\313 \314\315\311\316\nDDEE\317\311 DD\320\321 FEF*\207" [sym parser symbol symbols make-symbol "parser" "sym" let get quote ('semantic-elisp-form-parser) or signal 'wrong-type-argument semantic-elisp-form-parser dolist put 'semantic-elisp-form-parser] 9 (#$ . 8201)])) #@70 Use `read' on the semantic list SL. Return a bovination list to use. (defalias 'semantic-elisp-use-read #[(sl) "@A\306\307 \n\"!\211@<\203( \310\311\211 \312\313\314\315 \f&+\202[ @\203E @9\203E @\316N\203E @\316N \n#\202[ \317\320 @\"\311\211 \312\313\314\315 \f&++\207" [sl start end form attributes detail read buffer-substring-no-properties "anonymous" nil apply semantic-tag code :detail semantic-elisp-form-parser format "%S" name] 8 (#$ . 8713)]) (byte-code "\306\307\211\203 @\310\311\312#\210 A\211\204 *\313\307\211\2031 @\310\n\311\314#\210 A\211\204! *\315\307\211\203J @\310 \311\316#\210 A\211\204: *\317\307 \211\203c @\310\f\311\320#\210 A\211\204S *\321\307 \211\203| @\310 \311\322#\210 A\211\204l *\323\307 +\211\203\230 @+\310+\311\324#\210 A\211\204\206 *\325\307 ,\211\203\264 @,\310,\311\326#\210 A\211\204\242 *\327\307 -\211\203\320 @-\310-\311\330#\210 A\211\204\276 *\331\307 .\211\203\354 @.\310.\311\332#\210 A\211\204\332 *\333\307 /\211\203 @/\310/\311\334#\210 A\211\204\366 *\335\307 0\211\203$ @0\3100\311\336#\210 A\211\204*\337\307 1\211\203@ @1\3101\311\340#\210 A\211\204.*\341\307 2\211\203\\ @2\3102\311\342#\210 A\211\204J*\343\307 3\211\203x @3\3103\311\344#\210 A\211\204f*\345\307 4\211\203\224 @4\3104\311\346#\210 A\211\204\202*\347\307 5\211\203\260 @5\3105\311\350#\210 A\211\204\236*\351\307 6\211\203\314 @6\3106\311\352#\210 A\211\204\272*\307\207" [#:sym --dolist-tail-- #:sym #:sym #:sym #:sym (semantic-elisp-setup-form-parser) nil put semantic-elisp-form-parser #[(form start end) "\305\3068!\307\310\311\312D \313\314\f\315\316 \317\n &,\207" [form attributes arg-list type name symbol-name 2 nil ("form" "start" "end") :form-parser t apply semantic-tag function :type :arguments] 9] (eval-and-compile eval-when-compile) #[(form start end) "\306\307\310\217\211\242\311\312\313\217)\203 \202( \314\315\n@\"\311\211 \316\317 \320\321\f &+)\207" [tags tag form attributes detail name foo (semantic-parse-region start end nil 1) ((error (message "MUNGE: %S" foo) nil)) nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) format "%S" apply semantic-tag code :detail] 8] (defun defun* defsubst defmacro define-overload define-overloadable-function) #[(form start end) "\305A@!\306\307\3108!\311\3128\242\313=\314\315\3168!\317@\320=\206$ @\321=\257 \322\323\f\324\325 \326\n &,\207" [form attributes arg-list type name symbol-name nil semantic-elisp-desymbolify-args 2 :user-visible-flag 4 interactive :documentation semantic-elisp-do-doc 3 :overloadable define-overload define-overloadable-function apply semantic-tag function :type :arguments] 10] (defvar defconst defcustom) #[(form start end) "\306\3078!\310A@!\311\3128\313 \205 G\314V\205 \314H\315U\316@\317=\320\321 !\257 \322\323 \324\325\f\326 \n&-\207" [form doc attributes default-value type name semantic-elisp-form-to-doc-string 3 symbol-name nil 2 :user-visible-flag 0 42 :constant-flag defconst :documentation semantic-elisp-do-doc apply semantic-tag variable :type :default-value] 10] (defface) #[(form start end) "\306\3078!\310A@!\311\3128\313 \205 G\314V\205 \314H\315U\316\317 !F \320\321 \322\323\f\324 \n&-\207" [form doc attributes default-value type name semantic-elisp-form-to-doc-string 3 symbol-name "face" 2 :user-visible-flag 0 42 :documentation semantic-elisp-do-doc apply semantic-tag variable :type :default-value] 9] (defimage defezimage) #[(form start end) "\306\3078!\310A@!\311\3128\313 \205 G\314V\205 \314H\315U\316\317 !F \320\321 \322\323\f\324 \n&-\207" [form doc attributes default-value type name semantic-elisp-form-to-doc-string 3 symbol-name "image" 2 :user-visible-flag 0 42 :documentation semantic-elisp-do-doc apply semantic-tag variable :type :default-value] 9] (defgroup) #[(form start end) "\305\3068!\307A@!\310\311\3128\313\314\315\316 !\257\211 \317\n!\320\211\257,\207" [form doc attributes class name semantic-elisp-form-to-doc-string 3 symbol-name customgroup :value 2 :user-visible-flag t :documentation semantic-elisp-do-doc semantic-tag-make-plist nil] 10] (autoload) #[(form start end) "\306\211A@)\211A@)!\307\211\310\3118\205 \3118\307=?\312\313\314\315\3168!\257 \317\320 \321\322\f\323 \n&,\207" [form x attributes arg-list type name symbol-name nil :user-visible-flag 4 :prototype-flag t :documentation semantic-elisp-do-doc 3 apply semantic-tag function :type :arguments] 12] (defmethod defgeneric) #[(form start end) "\3068\3078 <\203 \202 \n <\203 \307\202 \3108 \311A@!\312 @<\203< \311 \211 @@)!\313 A!B\202@ \313 A!\314 @<\205P \311 @\211 A@)!\315\316\f!F \317\320\321\322\323&.\207" [form a2 a3 args doc x 2 3 4 symbol-name nil semantic-elisp-desymbolify-args :parent :documentation semantic-elisp-do-doc apply semantic-tag function :type :arguments attributes arg-list type name] 10] (defadvice) #[(form start end) "\305A@!\306\307\3108!\306 \311\312\f\313\314 \315\n &,\207" [form attributes arg-list type name symbol-name nil semantic-elisp-desymbolify 2 apply semantic-tag function :type :arguments] 9] (defclass) #[(form start end) "\306\233\307A@!\310\311\3128!\313\3148!\315\313 @;?\205 !\316\317 @;\203, @\2024 \316 \235\211A@)!F \320\321\322\323\324 \325\f@\326\fA &\f.\207" [form docpart x attributes parents members 4 symbol-name "class" semantic-elisp-clos-args-to-semantic 3 semantic-elisp-desymbolify 2 :typemodifiers :documentation semantic-elisp-do-doc apply semantic-tag type :type :members :superclasses :interfaces name] 14] (defstruct) #[(form start end) "AA\211@;\203 A\306A@:\203 A@@\202 A@!\307\310 !\311\211B\311 \312\313\305\314 \315\f\316 @\317 A\n&\f.\207" [form slots attributes parents members type symbol-name "struct" semantic-elisp-desymbolify nil apply semantic-tag :type :members :superclasses :interfaces name] 14] (define-lex) #[(form start end) "\305A@!\306\211\307\310\311\312\3138!F \314\315\f\316\317 \320\n &,\207" [form attributes arg-list type name symbol-name nil :lexical-analyzer-flag t :documentation semantic-elisp-do-doc 2 apply semantic-tag function :type :arguments] 9] (define-mode-overload-implementation define-mode-local-override) #[(form start end) "\3068\307A@!\310 <\205 \311 !\312\313\314\307\3158!\316\317\3208!\257 \321\322 \323\324\f\325 \n&-\207" [form args attributes arg-list type name 3 symbol-name nil semantic-elisp-desymbolify :override-function-flag t :parent 2 :documentation semantic-elisp-do-doc 4 apply semantic-tag function :type :arguments] 11] (defvar-mode-local) #[(form start end) "\305\3068!\307\3108\311\312\313\305A@!\314\315\3168!\257 \317\320\f\321\322 \323\n &,\207" [form attributes default-value type name symbol-name 2 nil 3 :override-variable-flag t :parent :documentation semantic-elisp-do-doc 4 apply semantic-tag variable :type :default-value] 11] (require) #[(form start end) "A@\304 \242\305=\203 A@\202 !\306\307\3108D\311\312 \313\314 \n&,\207" [form name attributes system-flag symbol-name quote nil :directory 2 apply semantic-tag include :system-flag] 7] (provide) #[(form start end) "A@\304 \242\305=\203 A@\202 !\3068\307\310\311 \312\313 \n&,\207" [form name attributes detail symbol-name quote 3 nil apply semantic-tag package :detail] 7] #:sym #:sym #:sym #:sym #:sym #:sym #:sym #:sym #:sym #:sym #:sym #:sym] 5) #@120 Find the file BUFFER depends on described by TAG. Override semantic-dependency-tag-file in `emacs-lisp-mode' buffers. (defalias 'semantic-dependency-tag-file-emacs-lisp-mode #[(tag) "\304\305!\203 \306\307\310\217\207\311\211@)!\211\205 \312 !\211\313P\n\203- \314 !\203- \202M \n\203? \314\n\315P!\203? \n\315P\202M \n\203L \316\317\n\313P\"\202M \306+\207" [tag lib name nameel fboundp find-library-name nil (byte-code "\301\211@)!\207" [tag find-library-name] 3) ((error (byte-code "\301\302\211@)\"\207" [tag message "semantic: cannot find source file %s"] 4))) locate-library file-name-sans-extension ".el" file-exists-p ".el.gz" message "semantic: cannot find source file %s"] 5 (#$ . 16283)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-dependency-tag-file-emacs-lisp-mode definition-name semantic-dependency-tag-file mode-local-bind ((semantic-dependency-tag-file . semantic-dependency-tag-file-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@170 Return the documentation string generated for overloadable functions. Fetch the item for TAG. Only returns info about what symbols can be used to perform the override. (defalias 'semantic-emacs-lisp-overridable-doc #[(tag) "\211A@)\302=\203& \303\304\3058) \"*\203& \306\307\211@)!!\207\310\207" [tag attribute function :overloadable plist-get 2 overload-docstring-extension intern ""] 4 (#$ . 17288)]) #@163 Indicate that TAG is a new name that has obsoleted some old name. Unfortunately, this requires that the tag in question has been loaded into Emacs Lisp's memory. (defalias 'semantic-emacs-lisp-obsoleted-doc #[(tag) "\303\211@)!\304\211\205# \305\306!\210 \203\" \307\310 \211@)#\202# \311*\207" [tag obsoleter obsoletethis intern-soft nil mapatoms #[(a) "\304N\211\205 @\n=\205 \211)\207" [a oi obsoletethis obsoleter byte-obsolete-info] 3] format "\n@obsolete{%s,%s}" ""] 5 (#$ . 17709)]) #@151 Return the documentation string for TAG. Optional argument NOSNARF is ignored. Override semantic-documentation-for-tag in `emacs-lisp-mode' buffers. (defalias 'semantic-documentation-for-tag-emacs-lisp-mode #[(tag &optional nosnarf) "\305!\211\204\242 \306!\203p \307r\310!q\210\211\3118)\312 !\203+ \313 !\202. \314H*b\210\315\211\3118)\312 !\203G \313 !\202J \314H*\211\3118)\312 !\203` \316 !\202c \317H*B!)\305!)\202\242 \320\211@)!\203\242 \320\211@)! \211A@)\321=\203\224 \322\f!\202\231 \323\f\324\") \203\242 \325 P \205\306 \326 G\314V\203\275 \314H\327U\203\275 \317\330O\202\276 !\331!\332!Q)\207" [tag d semantic-elisp-store-documentation-in-tag o sym semantic-tag-docstring semantic-tag-with-position-p t semantic-tag-buffer 4 semantic-overlay-p semantic-overlay-start 0 semantic-elisp-use-read semantic-overlay-end 1 intern-soft function documentation documentation-property variable-documentation "System Doc: \n" substitute-command-keys 42 nil semantic-emacs-lisp-overridable-doc semantic-emacs-lisp-obsoleted-doc] 5 (#$ . 18219)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-documentation-for-tag-emacs-lisp-mode definition-name semantic-documentation-for-tag mode-local-bind ((semantic-documentation-for-tag . semantic-documentation-for-tag-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@163 Return the name of the tag with .el appended. If there is a detail, prepend that directory. Override semantic-tag-include-filename in `emacs-lisp-mode' buffers. (defalias 'semantic-tag-include-filename-emacs-lisp-mode #[(tag) "\211@)\304\305\3068) \"*\307 \n\"\310P*\207" [tag attribute detail name :directory plist-get 2 expand-file-name ".el"] 5 (#$ . 19608)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-include-filename-emacs-lisp-mode definition-name semantic-tag-include-filename mode-local-bind ((semantic-tag-include-filename . semantic-tag-include-filename-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@144 Insert TAG at point. Attempts a simple prototype for calling or using TAG. Override semantic-insert-foreign-tag in `emacs-lisp-mode' buffers. (defalias 'semantic-insert-foreign-tag-emacs-lisp-mode #[(tag) "\302\211\211A@) *=\203 \303\211@)\304\261\210\305u\207\211@)c\207" [tag class function "(" " )" -1] 4 (#$ . 20278)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-insert-foreign-tag-emacs-lisp-mode definition-name semantic-insert-foreign-tag mode-local-bind ((semantic-insert-foreign-tag . semantic-insert-foreign-tag-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@154 Return the protection of TAG in PARENT. Override function for `semantic-tag-protection'. Override semantic-tag-protection in `emacs-lisp-mode' buffers. (defalias 'semantic-tag-protection-emacs-lisp-mode #[(tag &optional parent) "\304\305\3068) \"*\211\204 \203 \307\202T \n\310\230\203% \307\202T \n\311\230\203/ \307\202T \n\312\230\2039 \313\202T \n\314\230\203C \313\202T \n\315\230\203M \316\202T \n\317\230\205T \316)\207" [tag attribute prot parent :protection plist-get 2 public ":public" "public" ":private" private "private" ":protected" protected "protected"] 4 (#$ . 20900)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-protection-emacs-lisp-mode definition-name semantic-tag-protection mode-local-bind ((semantic-tag-protection . semantic-tag-protection-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@153 Return non-nil if TAG is static in PARENT class. Overrides `semantic-nonterminal-static'. Override semantic-tag-static-p in `emacs-lisp-mode' buffers. (defalias 'semantic-tag-static-p-emacs-lisp-mode #[(tag &optional parent) "\302\303\3048) \"*\207" [tag attribute :static-flag plist-get 2] 3 (#$ . 21770)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-static-p-emacs-lisp-mode definition-name semantic-tag-static-p mode-local-bind ((semantic-tag-static-p . semantic-tag-static-p-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@374 Move up one context in an Emacs Lisp function. A Context in many languages is a block with its own local variables. In Emacs, we will move up lists and stop when one starts with one of the following context specifiers: `let', `let*', `defun', `with-slots' Returns non-nil it is not possible to go up a context. Override semantic-up-context in `emacs-lisp-mode' buffers. (defalias 'semantic-up-context-emacs-lisp-mode #[(&optional point bounds-type) "\301 \302\303!\204 \204 \301 \202 )\207" [last-up semantic-up-context-default looking-at "(\\(let\\*?\\|def\\(un\\|method\\|generic\\|define-mode-overload\\)\\|with-slots\\)"] 2 (#$ . 22349)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-up-context-emacs-lisp-mode definition-name semantic-up-context mode-local-bind ((semantic-up-context . semantic-up-context-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@132 Return a string which is the current function being called. Override semantic-ctxt-current-function in `emacs-lisp-mode' buffers. (defalias 'semantic-ctxt-current-function-emacs-lisp-mode #[(&optional point same-as-symbol-return) "\212\203 b\210\202 `\303\304\305\217?\205. \303\306\307\217\211\205- \212\303\310\311\217)\203+ \n\202- C))\207" [point fun same-as-symbol-return nil (byte-code "\212\300\301!\210\302\303!)\205 \212\300\304!\210\302\305!)\207" [up-list -2 looking-at "((" -3 "(let"] 2) ((error)) (byte-code "\212\300\301!\210\302u\210\303`\304\302!\210`\")\207" [up-list -1 1 buffer-substring-no-properties forward-sexp] 4) ((error)) (byte-code "\302\303!\210\304\305!!\205 `G\\X\207" [fun point forward-sexp -1 looking-at regexp-quote] 3) ((error t))] 4 (#$ . 23258)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-function-emacs-lisp-mode definition-name semantic-ctxt-current-function mode-local-bind ((semantic-ctxt-current-function . semantic-ctxt-current-function-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@237 Return a list of local variables for POINT. Scan backwards from point at each successive function. For all occurrences of `let' or `let*', grab those variable names. Override semantic-get-local-variables in `emacs-lisp-mode' buffers. (defalias 'semantic-get-local-variables-emacs-lisp-mode #[(&optional point) "\306\211\212\307`\310C\"@\211\203\327 \310=\204\320 \311\235\203t \312\313!\210\314u\210\315\314!\210\316\306w\210\317\320`\212\321\314!\210`)\"!\211\203p \n@\2119\203H \202J @ \322\f!\306\211\211 \323\324\f\325\326 \327 &,B*\nA\211\204< )\202\320 \330\230\203\320 \312\313!\210\314u\210\314v\210\316\306w\210\317\320`\212\321\314!\210`)\"!\211 \203\317 @ \322\f!\331H\332U\204\305 \322\f!\306\211\211 \323\324\f\325\326 \327 &,B) A\211 \204\232 )\312\313!\210\202 )\237*\207" [vars fn varlst oneelt name attributes nil semantic-ctxt-current-function-emacs-lisp-mode t ("let" "let*" "with-slots") up-list -1 1 forward-symbol "* \n" read buffer-substring-no-properties forward-sexp symbol-name apply semantic-tag variable :type :default-value "lambda" 0 38 default-value type arglst] 10 (#$ . 24355)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-get-local-variables-emacs-lisp-mode definition-name semantic-get-local-variables mode-local-bind ((semantic-get-local-variables . semantic-get-local-variables-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@174 Move cursor to the end of the current command. In Emacs Lisp this is easily defined by parenthesis bounding. Override semantic-end-of-command in `emacs-lisp-mode' buffers. (defalias 'semantic-end-of-command-emacs-lisp-mode #[nil "\300\301\302\217\207" [nil (up-list 1) ((error))] 3 (#$ . 25802)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-end-of-command-emacs-lisp-mode definition-name semantic-end-of-command mode-local-bind ((semantic-end-of-command . semantic-end-of-command-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@186 Move cursor to the beginning of the current command. In Emacs Lisp this is easily defined by parenthesis bounding. Override semantic-beginning-of-command in `emacs-lisp-mode' buffers. (defalias 'semantic-beginning-of-command-emacs-lisp-mode #[nil "\300\301\302\217\207" [nil (byte-code "\300\301!\210\302u\207" [up-list -1 1] 2) ((error))] 3 (#$ . 26372)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-beginning-of-command-emacs-lisp-mode definition-name semantic-beginning-of-command mode-local-bind ((semantic-beginning-of-command . semantic-beginning-of-command-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@99 List the symbol under point. Override semantic-ctxt-current-symbol in `emacs-lisp-mode' buffers. (defalias 'semantic-ctxt-current-symbol-emacs-lisp-mode #[(&optional point) "\212\203 b\210\302\303!\210\304\305!\211\205 C*\207" [point sym require thingatpt thing-at-point symbol] 3 (#$ . 27025)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-symbol-emacs-lisp-mode definition-name semantic-ctxt-current-symbol mode-local-bind ((semantic-ctxt-current-symbol . semantic-ctxt-current-symbol-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@125 What is the variable being assigned into at POINT? Override semantic-ctxt-current-assignment in `emacs-lisp-mode' buffers. (defalias 'semantic-ctxt-current-assignment-emacs-lisp-mode #[(&optional point) "\212\203 b\210\302!`\211\203 @ \203. \303\230\204% \304\230\203. \212\305\306\307\217)\202@ \305\310\311\217\203? \212\312 \210\313 )\202@ \305+\207" [point fn semantic-ctxt-current-function "setq" "set" nil (byte-code "\304\305\211\306\307!\210\310\311!\210\312\311!\210` W\2035 \nT\313\311!\210`\312\311!\210\n\314\246\311U\203 \315`\"\202 \205; C+\207" [start lastodd count point 0 nil up-list -1 down-list 1 forward-sexp forward-comment 2 buffer-substring-no-properties] 3) ((error)) (byte-code "\212\300\301!\210\302\303!)\205 \212\300\304!\210\302\305!)\207" [up-list -2 looking-at "((" -3 "(let"] 2) ((error)) semantic-beginning-of-command semantic-ctxt-current-symbol] 4 (#$ . 27620)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-assignment-emacs-lisp-mode definition-name semantic-ctxt-current-assignment mode-local-bind ((semantic-ctxt-current-assignment . semantic-ctxt-current-assignment-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@133 Return the index into the argument the cursor is in, or nil. Override semantic-ctxt-current-argument in `emacs-lisp-mode' buffers. (defalias 'semantic-ctxt-current-argument-emacs-lisp-mode #[(&optional point) "\212\203 b\210\302\303!\203 \304u\210\305\306\307\310\217\203 T\202 \305U\203* \305\202, S*\207" [point count looking-at "\\<\\w" 1 0 nil (byte-code "\300\301!\210\302\207" [forward-sexp -1 t] 2) ((error))] 3 (#$ . 28850)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-argument-emacs-lisp-mode definition-name semantic-ctxt-current-argument mode-local-bind ((semantic-ctxt-current-argument . semantic-ctxt-current-argument-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@387 Return a list of tag classes allowed at POINT. Emacs Lisp knows much more about the class of the tag needed to perform completion than some languages. We distinctly know if we are to be a function name, variable name, or any type of symbol. We could identify fields and such to, but that is for some other day. Override semantic-ctxt-current-class-list in `emacs-lisp-mode' buffers. (defalias 'semantic-ctxt-current-class-list-emacs-lisp-mode #[(&optional point) "\212\203 b\210`\301\302\303\217)\207" [point nil (byte-code "\302\303\304!\210\305u\210` W\203 T\306\305!\210\202 \305U\203# \307\202$ \310)\207" [count point 0 up-list -1 1 forward-sexp (function) (variable)] 2) ((error '(variable)))] 3 (#$ . 29596)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-class-list-emacs-lisp-mode definition-name semantic-ctxt-current-class-list mode-local-bind ((semantic-ctxt-current-class-list . semantic-ctxt-current-class-list-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@117 Return an abbreviated string describing tag. Override semantic-format-tag-abbreviate in `emacs-lisp-mode' buffers. (defalias 'semantic-format-tag-abbreviate-emacs-lisp-mode #[(tag &optional parent color) "\211A@)\305 \n#\211 \306=\203 \307 \310Q\202 \311 \n#*\207" [tag parent color name class semantic-format-tag-name function "(" ")" semantic-format-tag-abbreviate-default] 6 (#$ . 30634)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-abbreviate-emacs-lisp-mode definition-name semantic-format-tag-abbreviate mode-local-bind ((semantic-format-tag-abbreviate . semantic-format-tag-abbreviate-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@364 Return a prototype string describing tag. In Emacs Lisp, a prototype for something may start (autoload ...). This is certainly not expected if this is used to display a summary. Make up something else. When we go to write something that needs a real Emacs Lisp prototype, we can fix it then. Override semantic-format-tag-prototype in `emacs-lisp-mode' buffers. (defalias 'semantic-format-tag-prototype-emacs-lisp-mode #[(tag &optional parent color) "\211A@)\306 \n#\211 \307=\203B \211\310 \311\3128) \"+ \313\314\n# \315 \2038 \316\2029 \317\320\260*\202G \321 \n#*\207" [tag parent color name class attribute semantic-format-tag-name function :arguments plist-get 2 semantic--format-tag-arguments identity "(" " " "" ")" semantic-format-tag-prototype-default args argstr] 6 (#$ . 31335)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-prototype-emacs-lisp-mode definition-name semantic-format-tag-prototype mode-local-bind ((semantic-format-tag-prototype . semantic-format-tag-prototype-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@198 Return a concise prototype string describing tag. See `semantic-format-tag-prototype' for Emacs Lisp for more details. Override semantic-format-tag-concise-prototype in `emacs-lisp-mode' buffers. (defalias 'semantic-format-tag-concise-prototype-emacs-lisp-mode #[(tag &optional parent color) "\303 \n#\207" [tag parent color semantic-format-tag-prototype] 4 (#$ . 32444)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-concise-prototype-emacs-lisp-mode definition-name semantic-format-tag-concise-prototype mode-local-bind ((semantic-format-tag-concise-prototype . semantic-format-tag-concise-prototype-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@190 Return a uml prototype string describing tag. See `semantic-format-tag-prototype' for Emacs Lisp for more details. Override semantic-format-tag-uml-prototype in `emacs-lisp-mode' buffers. (defalias 'semantic-format-tag-uml-prototype-emacs-lisp-mode #[(tag &optional parent color) "\303 \n#\207" [tag parent color semantic-format-tag-prototype] 4 (#$ . 33147)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-uml-prototype-emacs-lisp-mode definition-name semantic-format-tag-uml-prototype mode-local-bind ((semantic-format-tag-uml-prototype . semantic-format-tag-uml-prototype-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode] 4) #@120 Insert TAG into the current buffer based on completion. Override semantic-ia-insert-tag in `emacs-lisp-mode' buffers. (defalias 'semantic-ia-insert-tag-emacs-lisp-mode #[(tag) "\211@)c\210\211A@)\211\304\305\3068) \"+\211\307=\2033 \n\203. \310c\2024 \311c\2024 \312*\207" [tag attribute args tt :arguments plist-get 2 function " " ")" nil] 5 (#$ . 33822)]) (byte-code "\306\307\310\311#\210\312\313\314\315#\210\316\312\317BC\320\315#\210\321\322\315\"\210\210)\306\317\315\323\n!\324 \204B \211\204B -\205A \325\f\" \203l \204l \326N\203[ \325\f \326N\"\211\204B \211\327N\206f \330N)\211\204F ,\331\324#\210. /\312\332/BC\320\315#\210\321\333\315\"\210/\210)\306\332\315\323\n!\324 \204\254 \211\204\254 -\205\253 \325\f\" \203\326 \204\326 \326N\203\305 \325\f \326N\"\211\204\254 \211\327N\206\320 \330N)\211\204\260 ,\331\324#\210\334 0\312\3350BC\320\315#\210\321\336\315\"\2100\210)\306\335\315\323\n!\324 \204 \211\204-\205\325\f\" \203? \204? \326N\203.\325\f \326N\"\211\204 \211\327N\2069 \330N)\211\204 ,\331\324#\210\334 1\312\3371BC\320\315#\210\321\340\315\"\2101\210)\306\337\315\323\n!\324 \204~ \211\204~-\205}\325\f\" \203\250 \204\250 \326N\203\227\325\f \326N\"\211\204~ \211\327N\206\242 \330N)\211\204\202 ,\331\324#\210\341 2\312\3422BC\320\315#\210\321\343\315\"\2102\210)\306\342\315\323\n!\324 \204\347 \211\204\347-\205\346\325\f\" \203 \204 \326N\203 \325\f \326N\"\211\204\347 \211\327N\206 \330N)\211\204\353 ,\331\324#\210\344 3\312\3453BC\320\315#\210\321\346\315\"\2103\210)\306\345\315\323\n!\324 \204P \211\204P-\205O\325\f\" \203z \204z \326N\203i\325\f \326N\"\211\204P \211\327N\206t \330N)\211\204T ,\331\324#\210\347 4\312\3504BC\320\315#\210\321\351\315\"\2104\210)\306\350\315\323\n!\324 \204\271 \211\204\271-\205\270\325\f\" \203\343 \204\343 \326N\203\322\325\f \326N\"\211\204\271 \211\327N\206\335 \330N)\211\204\275 ,\331\352#\210\353\315 5\306 \3275#\210\321\354 \"*\207" [#1=#:tmp0 mode symbol bind name mode-local-active-mode put semantic-ia-insert-tag-emacs-lisp-mode definition-name semantic-ia-insert-tag mode-local-bind ((semantic-ia-insert-tag . semantic-ia-insert-tag-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode semantic-emacs-lisp-lexer semantic-lex-analyzer (mode-variable-flag t) mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-lex-analyzer make-local-variable] 2] symbol-name nil intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent variable-documentation semantic--parse-table #[nil "\302\301!\210\211\207" [#2=#:tmp0 semantic--parse-table make-local-variable] 2] " " semantic-function-argument-separator #[nil "\302\301!\210\211\207" [#3=#:tmp0 semantic-function-argument-separator make-local-variable] 2] semantic-function-argument-separation-character #[nil "\302\301!\210\211\207" [#4=#:tmp0 semantic-function-argument-separation-character make-local-variable] 2] ((type . "Types") (variable . "Variables") (function . "Defuns") (include . "Requires") (package . "Provides")) semantic-symbol->name-assoc-list #[nil "\302\301!\210\211\207" [#5=#:tmp0 semantic-symbol->name-assoc-list make-local-variable] 2] semantic-create-imenu-index imenu-create-index-function #[nil "\302\301!\210\211\207" [#6=#:tmp0 imenu-create-index-function make-local-variable] 2] (function type variable) semantic-stickyfunc-sticky-classes #[nil "\302\301!\210\211\207" [#7=#:tmp0 semantic-stickyfunc-sticky-classes make-local-variable] 2] "Add variables.\nELisp variables can be pretty long, so track this one too." lisp-mode activate-mode-local-bindings major-mode semantic--elisp-parse-table #2# #3# #4# #5# #6# #7# parent] 5) #@56 Setup hook function for Emacs Lisp files and Semantic. (defalias 'semantic-default-elisp-setup #[nil "\300\207" ["Setup hook function for Emacs Lisp files and Semantic."] 1 (#$ . 37671)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\304\305\306\"\210\307\310!\207" [add-hook emacs-lisp-mode-hook semantic-default-elisp-setup lisp-mode-hook eval-after-load "semantic/db" (require 'semantic/db-el) provide semantic/bovine/el] 3)