Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
progmodes /
[ HOME SHELL ]
Name
Size
Permission
Action
antlr-mode.elc
77.56
KB
-rw-r--r--
asm-mode.elc
7.42
KB
-rw-r--r--
autoconf.elc
4.55
KB
-rw-r--r--
bat-mode.elc
6.56
KB
-rw-r--r--
bug-reference.elc
7.3
KB
-rw-r--r--
cc-align.elc
39.52
KB
-rw-r--r--
cc-awk.elc
17.95
KB
-rw-r--r--
cc-bytecomp.elc
10.56
KB
-rw-r--r--
cc-cmds.elc
97.51
KB
-rw-r--r--
cc-defs.elc
66.37
KB
-rw-r--r--
cc-engine.elc
231.26
KB
-rw-r--r--
cc-fonts.elc
153.13
KB
-rw-r--r--
cc-guess.elc
13.35
KB
-rw-r--r--
cc-langs.elc
110.05
KB
-rw-r--r--
cc-menus.elc
8.05
KB
-rw-r--r--
cc-mode.elc
227.86
KB
-rw-r--r--
cc-styles.elc
16.66
KB
-rw-r--r--
cc-vars.elc
77.01
KB
-rw-r--r--
cfengine.elc
48.18
KB
-rw-r--r--
cmacexp.elc
6.2
KB
-rw-r--r--
compile.elc
92.53
KB
-rw-r--r--
cperl-mode.elc
212.98
KB
-rw-r--r--
cpp.elc
23.2
KB
-rw-r--r--
cwarn.elc
11.9
KB
-rw-r--r--
dcl-mode.elc
50.32
KB
-rw-r--r--
ebnf-abn.elc
6.95
KB
-rw-r--r--
ebnf-bnf.elc
8.02
KB
-rw-r--r--
ebnf-dtd.elc
13.53
KB
-rw-r--r--
ebnf-ebx.elc
8.12
KB
-rw-r--r--
ebnf-iso.elc
7.77
KB
-rw-r--r--
ebnf-otz.elc
8.47
KB
-rw-r--r--
ebnf-yac.elc
7.4
KB
-rw-r--r--
ebnf2ps.elc
121.12
KB
-rw-r--r--
ebrowse.elc
202.8
KB
-rw-r--r--
elisp-mode.elc
58.74
KB
-rw-r--r--
etags.elc
61.3
KB
-rw-r--r--
executable.elc
7.83
KB
-rw-r--r--
f90.elc
95.13
KB
-rw-r--r--
flymake-cc.elc
3.55
KB
-rw-r--r--
flymake-proc.elc
38.04
KB
-rw-r--r--
flymake.elc
63.5
KB
-rw-r--r--
fortran.elc
59.75
KB
-rw-r--r--
gdb-mi.elc
188.72
KB
-rw-r--r--
glasses.elc
10.37
KB
-rw-r--r--
grep.elc
40.95
KB
-rw-r--r--
gud.elc
98.55
KB
-rw-r--r--
hideif.elc
48.36
KB
-rw-r--r--
hideshow.elc
25.56
KB
-rw-r--r--
icon.elc
16.75
KB
-rw-r--r--
idlw-complete-structtag.elc
4.22
KB
-rw-r--r--
idlw-help.elc
35.91
KB
-rw-r--r--
idlw-shell.elc
129.89
KB
-rw-r--r--
idlw-toolbar.elc
27.44
KB
-rw-r--r--
idlwave.elc
250.95
KB
-rw-r--r--
inf-lisp.elc
21.06
KB
-rw-r--r--
js.elc
176.3
KB
-rw-r--r--
ld-script.elc
5.44
KB
-rw-r--r--
m4-mode.elc
6.34
KB
-rw-r--r--
make-mode.elc
62.21
KB
-rw-r--r--
meta-mode.elc
31.41
KB
-rw-r--r--
mixal-mode.elc
36.18
KB
-rw-r--r--
modula2.elc
30.37
KB
-rw-r--r--
octave.elc
63.2
KB
-rw-r--r--
opascal.elc
52.47
KB
-rw-r--r--
pascal.elc
39.22
KB
-rw-r--r--
perl-mode.elc
29.41
KB
-rw-r--r--
prog-mode.elc
15.82
KB
-rw-r--r--
project.elc
17.06
KB
-rw-r--r--
prolog.elc
85.47
KB
-rw-r--r--
ps-mode.elc
33
KB
-rw-r--r--
python.elc
178.17
KB
-rw-r--r--
ruby-mode.elc
63.86
KB
-rw-r--r--
scheme.elc
18.81
KB
-rw-r--r--
sh-script.elc
116.3
KB
-rw-r--r--
simula.elc
44.83
KB
-rw-r--r--
sql.elc
182.59
KB
-rw-r--r--
subword.elc
18.77
KB
-rw-r--r--
tcl.elc
40.14
KB
-rw-r--r--
vera-mode.elc
45.08
KB
-rw-r--r--
verilog-mode.elc
450.39
KB
-rw-r--r--
vhdl-mode.elc
528.7
KB
-rw-r--r--
which-func.elc
10.4
KB
-rw-r--r--
xref.elc
56.91
KB
-rw-r--r--
xscheme.elc
38
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ebrowse.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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\305\306\307\310\311\312%\210\313\314\315\316\317DD\320\311\306\321\322&\210\313\323\315\316\324DD\325\311\306\321\326&\210\313\327\315\316\330DD\331\311\306\321\326&\210\313\332\315\316\333DD\334\311\306\321\326&\210\313\335\315\316\336DD\337\311\306\321\340&\210\305\341\307\342\311\306%\210\313\343\315\316\344DD\345\311\341\321\326&\210\313\346\315\316\347DD\350\311\341\321\351&\210\313\352\315\316\353DD\354\311\341\321\340&\210\313\355\315\316\356DD\357\311\341\321\340&\210\313\360\315\316\361DD\362\311\341\321\340&\210\305\363\307\364\311\306%\210\313\365\315\316\366DD\367\311\363\321\340&\210\313\370\315\316\371DD\372\311\363\321\340&\210\313\373\315\316\374DD\375\311\363\321\351&\210\313\376\315\316\377DD\201@ \311\363\321\326&\210\305\201A \307\201B \311\306%\210\201C \201D \201E \201F \311\201A %\210\201C \201G \201H \201I \311\201A %\210\201C \201J \201K \201L \311\201A %\210\201C \201M \201N \201O \311\201A %\210\201C \201P \201Q \201R \311\201A %\210\201C \201S \201T \201U \311\201A %\210\201C \201V \201W \201X \311\201A %\207" [require cl-lib easymenu view ebuff-menu custom-declare-group ebrowse nil "Settings for the C++ class browser." :group tools custom-declare-variable ebrowse-search-path funcall function #[0 "\300\207" [nil] 1] "List of directories to search for source files in a class tree.\nElements should be directory names; nil as an element means to try\nto find source files relative to the location of the BROWSE file loaded." :type (repeat (choice (const :tag "Default" nil) (string :tag "Directory"))) ebrowse-view/find-hook #[0 "\300\207" [nil] 1] "Hooks run after finding or viewing a member or class." hook ebrowse-not-found-hook #[0 "\300\207" [nil] 1] "Hooks run when finding or viewing a member or class was not successful." ebrowse-electric-list-mode-hook #[0 "\300\207" [nil] 1] "Hook called by `ebrowse-electric-position-mode'." ebrowse-max-positions #[0 "\300\207" [50] 1] "Number of markers saved on electric position stack." integer ebrowse-tree "Settings for class tree buffers." ebrowse-tree-mode-hook #[0 "\300\207" [nil] 1] "Hook run in each new tree buffer." ebrowse-tree-buffer-name #[0 "\300\207" [#1="*Tree*"] 1 #1#] "The default name of class tree buffers." string ebrowse--indentation #[0 "\300\207" [4] 1] "The amount by which subclasses are indented in the tree." ebrowse-source-file-column #[0 "\300\207" [40] 1] "The column in which source file names are displayed in the tree." ebrowse-tree-left-margin #[0 "\300\207" [2] 1] "Amount of space left at the left side of the tree display.\nThis space is used to display markers." ebrowse-member "Settings for member buffers." ebrowse-default-declaration-column #[0 "\300\207" [25] 1] "The column in which member declarations are displayed in member buffers." ebrowse-default-column-width #[0 "\300\207" [25] 1] "The width of the columns in member buffers (short display form)." ebrowse-member-buffer-name #[0 "\300\207" [#2="*Members*"] 1 #2#] "The name of the buffer for member display." ebrowse-member-mode-hook #[0 "\300\207" [nil] 1] "Run in each new member buffer." ebrowse-faces "Faces used by Ebrowse." custom-declare-face ebrowse-tree-mark ((((min-colors 88)) :foreground "red1") (t :foreground "red")) "Face for the mark character in the Ebrowse tree." ebrowse-root-class ((((min-colors 88)) :weight bold :foreground "blue1") (t :weight bold :foreground "blue")) "Face for root classes in the Ebrowse tree." ebrowse-file-name ((t :slant italic)) "Face for filenames in the Ebrowse tree." ebrowse-default ((t)) "Face for items in the Ebrowse tree which do not have other faces." ebrowse-member-attribute ((((min-colors 88)) :foreground "red1") (t :foreground "red")) "Face for member attributes." ebrowse-member-class ((t :foreground "purple")) "Face used to display the class title in member buffers." ebrowse-progress ((((min-colors 88)) :background "blue1") (t :background "blue")) "Face for progress indicator."] 8) #@131 Return true if PREDICATE is true of some element of VECTOR. If so, return the value returned by PREDICATE. (fn PREDICATE VECTOR) (defalias 'ebrowse-some #[514 "\211G\300\301W\203 \211\204 H!\262T\262\202 \207" [0 nil] 8 (#$ . 4436)]) #@85 Return true if PREDICATE is true of every element of VECTOR. (fn PREDICATE VECTOR) (defalias 'ebrowse-every #[514 "\211G\300\301W\203 \211\203 H!\262T\262\202 \207" [0 t] 8 (#$ . 4688)]) #@135 Return the position of ITEM in LIST or nil if not found. Compare items with `eq' or TEST if specified. (fn ITEM LIST &optional TEST) (defalias 'ebrowse-position #[770 "\300\301\203# \203? @\"\203 \262\301\262A\262T\262\202 \203? @=\2034 \262\301\262A\262T\262\202# \207" [0 nil] 8 (#$ . 4894)]) #@70 Eval BODY with `completion-ignore-case' bound to t. (fn &rest BODY) (defalias 'ebrowse-ignoring-completion-case '(macro . #[128 "\300\301BB\207" [let ((completion-ignore-case t))] 4 (#$ . 5220)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ebrowse-ignoring-completion-case lisp-indent-function 0 put edebug-form-spec t] 5) #@57 For all trees in SPEC, eval BODY. (fn SPEC &rest BODY) (defalias 'ebrowse-for-all-trees '(macro . #[385 "\300\301!@A@\302\303\304\305\306\307\310\n\311\312\313BB\314\315\316DBB\257\207" [make-symbol "var" cl-loop for being the symbols of as = get ('ebrowse-root) do when vectorp] 21 (#$ . 5574)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ebrowse-for-all-trees lisp-indent-function 1 put edebug-form-spec ((sexp form) body)] 5) #@62 Set face of a region START END to FACE. (fn START END FACE) (defalias 'ebrowse-set-face #[771 "\300\301\"\302#\207" [overlay-put make-overlay face] 7 (#$ . 6047)]) (put 'ebrowse-set-face 'byte-optimizer 'byte-compile-inline-expand) #@502 Read a string in the minibuffer, with completion. Case is ignored in completions. PROMPT is a string to prompt with; normally it ends in a colon and a space. TABLE is an alist whose elements' cars are strings, or an obarray. TABLE can also be a function to do the completion itself. If INITIAL-INPUT is non-nil, insert it in the minibuffer initially. If it is (STRING . POSITION), the initial input is STRING, but point is placed POSITION characters into the string. (fn PROMPT TABLE INITIAL-INPUT) (defalias 'ebrowse-completing-read-value #[771 "\301\302\303\301%)\207" [completion-ignore-case t completing-read nil] 9 (#$ . 6290)]) #@115 Rename current buffer to NEW-NAME. If a buffer with name NEW-NAME already exists, delete it first. (fn NEW-NAME) (defalias 'ebrowse-rename-buffer #[257 "\300!\211p=?\205 \211\203 \212\301!\210)\302!\207" [get-buffer kill-buffer rename-buffer] 4 (#$ . 6937)]) #@123 Return a copy of STRING with leading white space removed. Replace sequences of newlines with a single space. (fn STRING) (defalias 'ebrowse-trim-string #[257 "\300\301\"\203 \302\303\225\"\262\300\304\"\203 \305\306\307\310$\262\202 \207" [string-match "^[ \n]+" substring 0 "[\n]+" replace-match " " nil t] 6 (#$ . 7209)]) #@164 Return the width of the display area for the current buffer. If buffer is displayed in a window, use that window's width, otherwise use the current frame's width. (defalias 'ebrowse-width-of-drawable-area #[0 "\300p!\211\203 \301!\202 \302 \207" [get-buffer-window window-width frame-width] 3 (#$ . 7551)]) #@69 compiler-macro for inlining `ebrowse-hs-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-hs-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-hs-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-ebrowse-hs-tags) t)) nil] 9 (#$ . 7867)]) (put 'ebrowse-hs-p 'compiler-macro 'ebrowse-hs-p--cmacro) #@13 (fn CL-X) (defalias 'ebrowse-hs-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ebrowse-hs-tags vectorp 5 0 t] 3 (#$ . 8236)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ebrowse-hs-p side-effect-free error-free put ebrowse-hs cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `ebrowse-hs-version'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-hs-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-hs-version (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-hs-tags)) (signal 'wrong-type-argument (list 'ebrowse-hs cl-x))) (aref cl-x 1))) nil] 9 (#$ . 8545)]) (put 'ebrowse-hs-version 'compiler-macro 'ebrowse-hs-version--cmacro) #@63 Access slot "version" of `ebrowse-hs' struct CL-X. (fn CL-X) (defalias 'ebrowse-hs-version #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-hs-tags 0 signal wrong-type-argument ebrowse-hs 1] 5 (#$ . 8987)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-hs-version side-effect-free t] 4) #@88 compiler-macro for inlining `ebrowse-hs-command-line-options'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-hs-command-line-options--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-hs-command-line-options (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-hs-tags)) (signal 'wrong-type-argument (list 'ebrowse-hs cl-x))) (aref cl-x 2))) nil] 9 (#$ . 9325)]) (put 'ebrowse-hs-command-line-options 'compiler-macro 'ebrowse-hs-command-line-options--cmacro) #@76 Access slot "command-line-options" of `ebrowse-hs' struct CL-X. (fn CL-X) (defalias 'ebrowse-hs-command-line-options #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-hs-tags 0 signal wrong-type-argument ebrowse-hs 2] 5 (#$ . 9832)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-hs-command-line-options side-effect-free t] 4) #@74 compiler-macro for inlining `ebrowse-hs-unused'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-hs-unused--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-hs-unused (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-hs-tags)) (signal 'wrong-type-argument (list 'ebrowse-hs cl-x))) (aref cl-x 3))) nil] 9 (#$ . 10209)]) (put 'ebrowse-hs-unused 'compiler-macro 'ebrowse-hs-unused--cmacro) #@62 Access slot "unused" of `ebrowse-hs' struct CL-X. (fn CL-X) (defalias 'ebrowse-hs-unused #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-hs-tags 0 signal wrong-type-argument ebrowse-hs 3] 5 (#$ . 10647)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-hs-unused side-effect-free t] 4) #@80 compiler-macro for inlining `ebrowse-hs-member-table'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-hs-member-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-hs-member-table (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-hs-tags)) (signal 'wrong-type-argument (list 'ebrowse-hs cl-x))) (aref cl-x 4))) nil] 9 (#$ . 10983)]) (put 'ebrowse-hs-member-table 'compiler-macro 'ebrowse-hs-member-table--cmacro) #@68 Access slot "member-table" of `ebrowse-hs' struct CL-X. (fn CL-X) (defalias 'ebrowse-hs-member-table #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-hs-tags 0 signal wrong-type-argument ebrowse-hs 4] 5 (#$ . 11451)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ebrowse-hs-member-table side-effect-free t defalias copy-ebrowse-hs copy-sequence] 4) #@127 compiler-macro for inlining `make-ebrowse-hs'. (fn CL-WHOLE &cl-quote &key VERSION COMMAND-LINE-OPTIONS UNUSED MEMBER-TABLE) (defalias 'make-ebrowse-hs--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D \211@\305>\203, \211AA\262\202 \306>A@\203; \307\262\202 \310\311@\"\210\202 \210\312\313\314\307 \307 & \207" [plist-member :version :command-line-options :unused :member-table (:version :command-line-options :unused :member-table :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:version :command-line-options :unused :member-table)" cl--defsubst-expand (version command-line-options unused member-table) (cl-block make-ebrowse-hs (vector 'ebrowse-hs version command-line-options unused member-table))] 16 (#$ . 11855)]) (put 'make-ebrowse-hs 'compiler-macro 'make-ebrowse-hs--cmacro) #@107 Constructor for objects of type `ebrowse-hs'. (fn &key VERSION COMMAND-LINE-OPTIONS UNUSED MEMBER-TABLE) (defalias 'make-ebrowse-hs #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D \211@\305>\203, \211AA\262\202 \306>A@\203; \307\262\202 \310\311@\"\210\202 \210\312\313%\207" [plist-member :version :command-line-options :unused :member-table (:version :command-line-options :unused :member-table :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:version :command-line-options :unused :member-table)" vector ebrowse-hs] 11 (#$ . 12727)]) (byte-code "\300\301\302\303#\304\305\306\307\310\303\311\312\305\307& \207" [function-put make-ebrowse-hs side-effect-free t cl-struct-define ebrowse-hs "Header structure found at the head of BROWSE files." nil vector ((cl-tag-slot) (version) (command-line-options) (unused) (member-table)) cl-struct-ebrowse-hs-tags] 11) #@69 compiler-macro for inlining `ebrowse-ts-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-p (and (vectorp cl-x) (>= (length cl-x) 11) (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags) t)) nil] 9 (#$ . 13660)]) (put 'ebrowse-ts-p 'compiler-macro 'ebrowse-ts-p--cmacro) #@13 (fn CL-X) (defalias 'ebrowse-ts-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ebrowse-ts-tags vectorp 11 0 t] 3 (#$ . 14031)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ebrowse-ts-p side-effect-free error-free put ebrowse-ts cl-deftype-satisfies] 5) #@73 compiler-macro for inlining `ebrowse-ts-class'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-class--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-class (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 1))) nil] 9 (#$ . 14342)]) (put 'ebrowse-ts-class 'compiler-macro 'ebrowse-ts-class--cmacro) #@61 Access slot "class" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-class #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 1] 5 (#$ . 14775)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-ts-class side-effect-free t] 4) #@78 compiler-macro for inlining `ebrowse-ts-subclasses'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-subclasses--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-subclasses (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 2))) nil] 9 (#$ . 15108)]) (put 'ebrowse-ts-subclasses 'compiler-macro 'ebrowse-ts-subclasses--cmacro) #@66 Access slot "subclasses" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-subclasses #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 2] 5 (#$ . 15566)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-ts-subclasses side-effect-free t] 4) #@84 compiler-macro for inlining `ebrowse-ts-member-variables'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-member-variables--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-member-variables (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 3))) nil] 9 (#$ . 15914)]) (put 'ebrowse-ts-member-variables 'compiler-macro 'ebrowse-ts-member-variables--cmacro) #@72 Access slot "member-variables" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-member-variables #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 3] 5 (#$ . 16402)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-ts-member-variables side-effect-free t] 4) #@84 compiler-macro for inlining `ebrowse-ts-member-functions'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-member-functions--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-member-functions (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 4))) nil] 9 (#$ . 16768)]) (put 'ebrowse-ts-member-functions 'compiler-macro 'ebrowse-ts-member-functions--cmacro) #@72 Access slot "member-functions" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-member-functions #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 4] 5 (#$ . 17256)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-ts-member-functions side-effect-free t] 4) #@84 compiler-macro for inlining `ebrowse-ts-static-variables'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-static-variables--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-static-variables (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 5))) nil] 9 (#$ . 17622)]) (put 'ebrowse-ts-static-variables 'compiler-macro 'ebrowse-ts-static-variables--cmacro) #@72 Access slot "static-variables" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-static-variables #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 5] 5 (#$ . 18110)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-ts-static-variables side-effect-free t] 4) #@84 compiler-macro for inlining `ebrowse-ts-static-functions'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-static-functions--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-static-functions (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 6))) nil] 9 (#$ . 18476)]) (put 'ebrowse-ts-static-functions 'compiler-macro 'ebrowse-ts-static-functions--cmacro) #@72 Access slot "static-functions" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-static-functions #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 6] 5 (#$ . 18964)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-ts-static-functions side-effect-free t] 4) #@75 compiler-macro for inlining `ebrowse-ts-friends'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-friends--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-friends (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 7))) nil] 9 (#$ . 19330)]) (put 'ebrowse-ts-friends 'compiler-macro 'ebrowse-ts-friends--cmacro) #@63 Access slot "friends" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-friends #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 7] 5 (#$ . 19773)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-ts-friends side-effect-free t] 4) #@73 compiler-macro for inlining `ebrowse-ts-types'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-types--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-types (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 8))) nil] 9 (#$ . 20112)]) (put 'ebrowse-ts-types 'compiler-macro 'ebrowse-ts-types--cmacro) #@61 Access slot "types" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-types #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 8] 5 (#$ . 20545)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-ts-types side-effect-free t] 4) #@80 compiler-macro for inlining `ebrowse-ts-base-classes'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-base-classes--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-base-classes (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 9))) nil] 9 (#$ . 20878)]) (put 'ebrowse-ts-base-classes 'compiler-macro 'ebrowse-ts-base-classes--cmacro) #@68 Access slot "base-classes" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-base-classes #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 9] 5 (#$ . 21346)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-ts-base-classes side-effect-free t] 4) #@72 compiler-macro for inlining `ebrowse-ts-mark'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-ts-mark--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-ts-mark (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-ts-tags)) (signal 'wrong-type-argument (list 'ebrowse-ts cl-x))) (aref cl-x 10))) nil] 9 (#$ . 21700)]) (put 'ebrowse-ts-mark 'compiler-macro 'ebrowse-ts-mark--cmacro) #@60 Access slot "mark" of `ebrowse-ts' struct CL-X. (fn CL-X) (defalias 'ebrowse-ts-mark #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-ts-tags 0 signal wrong-type-argument ebrowse-ts 10] 5 (#$ . 22129)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ebrowse-ts-mark side-effect-free t defalias copy-ebrowse-ts copy-sequence] 4) #@195 compiler-macro for inlining `make-ebrowse-ts'. (fn CL-WHOLE &cl-quote &key CLASS SUBCLASSES MEMBER-VARIABLES MEMBER-FUNCTIONS STATIC-VARIABLES STATIC-FUNCTIONS FRIENDS TYPES BASE-CLASSES MARK) (defalias 'make-ebrowse-ts--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\n\211\203n \211@\313>\203V \211AA\262\202C \314\f>A@\203e \315\262\202C \316\317@\"\210\202C \210\320\321\322\315\315&\207" [plist-member :class :subclasses :member-variables :member-functions :static-variables :static-functions :friends :types :base-classes :mark (:class :subclasses :member-variables :member-functions :static-variables :static-functions :friends :types :base-classes :mark :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:class :subclasses :member-variables :member-functions :static-variables :static-functions :friends :types :base-classes :mark)" cl--defsubst-expand (class subclasses member-variables member-functions static-variables static-functions friends types base-classes mark) (cl-block make-ebrowse-ts (vector 'ebrowse-ts class subclasses member-variables member-functions static-variables static-functions friends types base-classes mark))] 28 (#$ . 22510)]) (put 'make-ebrowse-ts 'compiler-macro 'make-ebrowse-ts--cmacro) #@175 Constructor for objects of type `ebrowse-ts'. (fn &key CLASS SUBCLASSES MEMBER-VARIABLES MEMBER-FUNCTIONS STATIC-VARIABLES STATIC-FUNCTIONS FRIENDS TYPES BASE-CLASSES MARK) (defalias 'make-ebrowse-ts #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\n\211\203n \211@\313>\203V \211AA\262\202C \314\f>A@\203e \315\262\202C \316\317@\"\210\202C \210\320\321&\207" [plist-member :class :subclasses :member-variables :member-functions :static-variables :static-functions :friends :types :base-classes :mark (:class :subclasses :member-variables :member-functions :static-variables :static-functions :friends :types :base-classes :mark :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:class :subclasses :member-variables :member-functions :static-variables :static-functions :friends :types :base-classes :mark)" vector ebrowse-ts] 23 (#$ . 23907)]) (byte-code "\300\301\302\303#\304\305\306\307\310\303\311\312\305\307& \207" [function-put make-ebrowse-ts side-effect-free t cl-struct-define ebrowse-ts "Tree structure.\nFollowing the header structure, a BROWSE file contains a number\nof `ebrowse-ts' structures, each one describing one root class of\nthe class hierarchy with all its subclasses." nil vector ((cl-tag-slot) (class) (subclasses) (member-variables) (member-functions) (static-variables) (static-functions) (friends) (types) (base-classes) (mark)) cl-struct-ebrowse-ts-tags] 11) #@69 compiler-macro for inlining `ebrowse-bs-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-bs-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-bs-p (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-ebrowse-bs-tags) t)) nil] 9 (#$ . 25456)]) (put 'ebrowse-bs-p 'compiler-macro 'ebrowse-bs-p--cmacro) #@13 (fn CL-X) (defalias 'ebrowse-bs-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ebrowse-bs-tags vectorp 7 0 t] 3 (#$ . 25826)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ebrowse-bs-p side-effect-free error-free put ebrowse-bs cl-deftype-satisfies] 5) #@72 compiler-macro for inlining `ebrowse-bs-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-bs-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-bs-name (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-bs-tags)) (signal 'wrong-type-argument (list 'ebrowse-bs cl-x))) (aref cl-x 1))) nil] 9 (#$ . 26136)]) (put 'ebrowse-bs-name 'compiler-macro 'ebrowse-bs-name--cmacro) #@60 Access slot "name" of `ebrowse-bs' struct CL-X. (fn CL-X) (defalias 'ebrowse-bs-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-bs-tags 0 signal wrong-type-argument ebrowse-bs 1] 5 (#$ . 26564)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-bs-name side-effect-free t] 4) #@73 compiler-macro for inlining `ebrowse-bs-scope'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-bs-scope--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-bs-scope (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-bs-tags)) (signal 'wrong-type-argument (list 'ebrowse-bs cl-x))) (aref cl-x 2))) nil] 9 (#$ . 26894)]) (put 'ebrowse-bs-scope 'compiler-macro 'ebrowse-bs-scope--cmacro) #@61 Access slot "scope" of `ebrowse-bs' struct CL-X. (fn CL-X) (defalias 'ebrowse-bs-scope #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-bs-tags 0 signal wrong-type-argument ebrowse-bs 2] 5 (#$ . 27327)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-bs-scope side-effect-free t] 4) #@73 compiler-macro for inlining `ebrowse-bs-flags'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-bs-flags--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-bs-flags (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-bs-tags)) (signal 'wrong-type-argument (list 'ebrowse-bs cl-x))) (aref cl-x 3))) nil] 9 (#$ . 27660)]) (put 'ebrowse-bs-flags 'compiler-macro 'ebrowse-bs-flags--cmacro) #@61 Access slot "flags" of `ebrowse-bs' struct CL-X. (fn CL-X) (defalias 'ebrowse-bs-flags #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-bs-tags 0 signal wrong-type-argument ebrowse-bs 3] 5 (#$ . 28093)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-bs-flags side-effect-free t] 4) #@72 compiler-macro for inlining `ebrowse-bs-file'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-bs-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-bs-file (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-bs-tags)) (signal 'wrong-type-argument (list 'ebrowse-bs cl-x))) (aref cl-x 4))) nil] 9 (#$ . 28426)]) (put 'ebrowse-bs-file 'compiler-macro 'ebrowse-bs-file--cmacro) #@60 Access slot "file" of `ebrowse-bs' struct CL-X. (fn CL-X) (defalias 'ebrowse-bs-file #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-bs-tags 0 signal wrong-type-argument ebrowse-bs 4] 5 (#$ . 28854)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-bs-file side-effect-free t] 4) #@75 compiler-macro for inlining `ebrowse-bs-pattern'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-bs-pattern--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-bs-pattern (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-bs-tags)) (signal 'wrong-type-argument (list 'ebrowse-bs cl-x))) (aref cl-x 5))) nil] 9 (#$ . 29184)]) (put 'ebrowse-bs-pattern 'compiler-macro 'ebrowse-bs-pattern--cmacro) #@63 Access slot "pattern" of `ebrowse-bs' struct CL-X. (fn CL-X) (defalias 'ebrowse-bs-pattern #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-bs-tags 0 signal wrong-type-argument ebrowse-bs 5] 5 (#$ . 29627)]) (byte-code "\300\301\302\303#\300\207" [function-put ebrowse-bs-pattern side-effect-free t] 4) #@73 compiler-macro for inlining `ebrowse-bs-point'. (fn CL-WHOLE-ARG CL-X) (defalias 'ebrowse-bs-point--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ebrowse-bs-point (progn (or (and (memq (aref cl-x 0) cl-struct-ebrowse-bs-tags)) (signal 'wrong-type-argument (list 'ebrowse-bs cl-x))) (aref cl-x 6))) nil] 9 (#$ . 29966)]) (put 'ebrowse-bs-point 'compiler-macro 'ebrowse-bs-point--cmacro) #@61 Access slot "point" of `ebrowse-bs' struct CL-X. (fn CL-X) (defalias 'ebrowse-bs-point #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ebrowse-bs-tags 0 signal wrong-type-argument ebrowse-bs 6] 5 (#$ . 30399)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ebrowse-bs-point side-effect-free t defalias copy-ebrowse-bs copy-sequence] 4) #@114 compiler-macro for inlining `make-ebrowse-bs'. (fn CL-WHOLE &cl-quote &key NAME SCOPE FLAGS FILE PATTERN POINT) (defalias 'make-ebrowse-bs--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202'