Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
auto.elc	10.63 KB	-rw-r--r--
autoconf-edit.elc	11.67 KB	-rw-r--r--
base.elc	23.07 KB	-rw-r--r--
config.elc	25.6 KB	-rw-r--r--
cpp-root.elc	11.53 KB	-rw-r--r--
custom.elc	5.03 KB	-rw-r--r--
detect.elc	4.46 KB	-rw-r--r--
dired.elc	3.47 KB	-rw-r--r--
emacs.elc	10.68 KB	-rw-r--r--
files.elc	13.2 KB	-rw-r--r--
generic.elc	20.99 KB	-rw-r--r--
linux.elc	13.76 KB	-rw-r--r--
loaddefs.el	5.4 KB	-rw-r--r--
locate.elc	14.63 KB	-rw-r--r--
make.elc	2.36 KB	-rw-r--r--
makefile-edit.elc	2.72 KB	-rw-r--r--
pconf.elc	4.83 KB	-rw-r--r--
pmake.elc	18.02 KB	-rw-r--r--
proj-archive.elc	3.08 KB	-rw-r--r--
proj-aux.elc	2.07 KB	-rw-r--r--
proj-comp.elc	15.81 KB	-rw-r--r--
proj-elisp.elc	16.25 KB	-rw-r--r--
proj-info.elc	6.78 KB	-rw-r--r--
proj-misc.elc	3.44 KB	-rw-r--r--
proj-obj.elc	9.86 KB	-rw-r--r--
proj-prog.elc	5.63 KB	-rw-r--r--
proj-scheme.elc	2.02 KB	-rw-r--r--
proj-shared.elc	6.47 KB	-rw-r--r--
proj.elc	25.66 KB	-rw-r--r--
project-am.elc	43.49 KB	-rw-r--r--
shell.elc	1.6 KB	-rw-r--r--
simple.elc	4.64 KB	-rw-r--r--
source.elc	5.33 KB	-rw-r--r--
speedbar.elc	10.52 KB	-rw-r--r--
srecode.elc	2.12 KB	-rw-r--r--
system.elc	2.95 KB	-rw-r--r--
util.elc	2.43 KB	-rw-r--r--

Code Editor : emacs.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!\207" [require ede semantic/db] 2)
#@33 Get the root directory for DIR.
(defalias 'ede-emacs-project-root #[(&optional _dir) "\300\207" [nil] 1 (#$ . 477)])
#@93 Find the Emacs version for the Emacs src in DIR.
Return a tuple of ( EMACSNAME . VERSION ).
(defalias 'ede-emacs-version #[(dir) "\306\307!\310\311\312rq\210\313 \210\314\f!\315\316!\2039�\317\320\316!\210eb\210\321\322!\210\323\324!\325\323\326!\325\323\327!\260\202z�\315\330!\203]�\331\320\332!\210eb\210\321\333!\210\323\324!\325\323\326!\325\323\327!\260\202z�\315\n!\204k�\315\334\211!\203z�\320\n!\210eb\210\321\335!\210\323\324!	-B\207" [ver emacs configure_ac buff dir default-directory get-buffer-create " *emacs-query*" "configure.ac" "Emacs" "" erase-buffer file-name-as-directory file-exists-p "version.sh" "XEmacs" insert-file-contents re-search-forward "emacs_major_version=\$[0-9]+\$\nemacs_minor_version=\$[0-9]+\$\nemacs_beta_version=\$[0-9]+\$" match-string 1 "." 2 3 "sxemacs.pc.in" "SXEmacs" "sxemacs_version.m4" "m4_define(\\[SXEM4CS_MAJOR_VERSION\\], \\[\$[0-9]+\$\\])\nm4_define(\\[SXEM4CS_MINOR_VERSION\\], \\[\$[0-9]+\$\\])\nm4_define(\\[SXEM4CS_BETA_VERSION\\], \\[\$[0-9]+\$\\])" "configure.in" "AC_INIT(\$?:GNU \$?[eE]macs,\\s-*\$[0-9.]+\$\\s-*[,)]"] 6 (#$ . 600)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ede-emacs-project-p eieio-make-class-predicate ede-emacs-project ede-emacs-project--eieio-childp eieio-make-child-predicate ede-emacs-project-child-p make-obsolete "use (cl-typep ... \\='ede-emacs-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-project) nil (:documentation "Project Type for the Emacs source code." :method-invocation-order :depth-first)] 6)
#@56 Create a new object of class type `ede-emacs-project'.
(defalias 'ede-emacs-project #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-emacs-project] 4 (#$ . 2288)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-emacs-project compiler-macro ede-emacs-project--anon-cmacro] 4)
(defalias 'ede-emacs-project--anon-cmacro #[(whole &rest slots) "@;\204�	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
#@183 Return an Emacs Project object if there is a match.
Return nil if there isn't one.
Argument DIR is the directory it is created for.
ROOTPROJ is nil, since there is only one project.
(defalias 'ede-emacs-load #[(dir &optional _rootproj) "\302!\303	@\304	@\305	A\306\307!\310\311\312\"&	)\207" [dir vertuple ede-emacs-version ede-emacs-project :name :version :directory file-name-as-directory :file expand-file-name "src/emacs.c"] 12 (#$ . 2817)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320&\321\"\210\322\323\324\325!\"\210\322\326\327\325!\"\210\322\330\326\"\210\331\330\332\333#\210\334\325\335\326#\336\325\337\316\340$\207" [ede-add-project-autoload make-instance ede-project-autoload :name "EMACS ROOT" :file ede/emacs :proj-file "src/emacs.c" :load-type ede-emacs-load :class-sym ede-emacs-project :new-p nil :safe-p t unique defalias ede-emacs-target-c-p eieio-make-class-predicate ede-emacs-target-c ede-emacs-target-c--eieio-childp eieio-make-child-predicate ede-emacs-target-c-child-p make-obsolete "use (cl-typep ... \\='ede-emacs-target-c) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) (:documentation "EDE Emacs Project target for C code.\nAll directories need at least one target.")] 17)
#@57 Create a new object of class type `ede-emacs-target-c'.
(defalias 'ede-emacs-target-c #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-emacs-target-c] 4 (#$ . 4115)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-emacs-target-c compiler-macro ede-emacs-target-c--anon-cmacro] 4)
(defalias 'ede-emacs-target-c--anon-cmacro #[(whole &rest slots) "@;\204�	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ede-emacs-target-el-p eieio-make-class-predicate ede-emacs-target-el ede-emacs-target-el--eieio-childp eieio-make-child-predicate ede-emacs-target-el-child-p make-obsolete "use (cl-typep ... \\='ede-emacs-target-el) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "EDE Emacs Project target for Emacs Lisp code.\nAll directories need at least one target.")] 6)
#@58 Create a new object of class type `ede-emacs-target-el'.
(defalias 'ede-emacs-target-el #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-emacs-target-el] 4 (#$ . 5225)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-emacs-target-el compiler-macro ede-emacs-target-el--anon-cmacro] 4)
(defalias 'ede-emacs-target-el--anon-cmacro #[(whole &rest slots) "@;\204�	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ede-emacs-target-misc-p eieio-make-class-predicate ede-emacs-target-misc ede-emacs-target-misc--eieio-childp eieio-make-child-predicate ede-emacs-target-misc-child-p make-obsolete "use (cl-typep ... \\='ede-emacs-target-misc) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "EDE Emacs Project target for Misc files.\nAll directories need at least one target.")] 6)
#@60 Create a new object of class type `ede-emacs-target-misc'.
(defalias 'ede-emacs-target-misc #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-emacs-target-misc] 4 (#$ . 6346)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-emacs-target-misc compiler-macro ede-emacs-target-misc--anon-cmacro] 4)
(defalias 'ede-emacs-target-misc--anon-cmacro #[(whole &rest slots) "@;\204�	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\207" [cl-generic-define-method initialize-instance nil ((this ede-emacs-project) &rest _fields) t #[(#1=#:cl--cnm this &rest _fields) " \210\302	\303\"?\205�\304	\305\306#\207" [#1# this slot-boundp targets eieio-oset :targets nil] 4 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"] ede-project-root-directory ((this ede-emacs-project) &optional _file) #[(this &optional _file) "\301\302\303\304\"!!\207" [this ede-up-directory file-name-directory eieio-oref file] 5 "Return the root for THIS Emacs project with file."] ede-project-root ((this ede-emacs-project)) #[(this) "\207" [this] 1 "Return my root."] ede-find-subproject-for-directory ((proj ede-emacs-project) _dir) #[(proj _dir) "\207" [proj] 1 "Return PROJ, for handling all subdirs below DIR."]] 6)
#@69 Find a target that is a CLASS and is in DIR in the list of TARGETS.
(defalias 'ede-emacs-find-matching-target #[(class dir targets) "\306	\306\211\203&�@\307\n\f\"\203�\310\n\311\"
\230\203�\nA\211\204\n�*)\207" [match targets T --dolist-tail-- class dir nil object-of-class-p eieio-oref path] 4 (#$ . 7805)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method ede-find-target nil ((proj ede-emacs-project) buffer) #[(proj buffer) "\306\307!!\211\204�\310\202%�\311\312	\"\203�\313\202%�\311\314	\"\203$�\315\202%�\310\316\304\"
\317\n\f#\211\204S�\320\n\321\322\323!!\324\325\326&\327\330#\210-\207" [buffer ext cls proj targets default-directory file-name-extension buffer-file-name ede-emacs-target-misc string-match "c\\|h" ede-emacs-target-c "elc?" ede-emacs-target-el eieio-oref ede-emacs-find-matching-target make-instance :name file-name-nondirectory directory-file-name :path :source nil object-add-to-list :targets dir ans] 9 "Find an EDE target in PROJ for BUFFER.\nIf one doesn't exist, create a new one for this directory."] ede-preprocessor-map ((this ede-emacs-target-c)) #[(this) "\306\307!\210\310!\311	!\312\313\n\314\"!\312\313\n\315\"!\316\2032�\317!\203*�\320!\210\321
\322\323\"\"\f\203H�\317\f!\203@�\320\f!\210\321
\322\f\323\"\"
-\207" [this proj root table config filemap require semantic/db ede-target-parent ede-project-root semanticdb-file-table-object ede-expand-filename "lisp.h" "config.h" nil semanticdb-needs-refresh-p semanticdb-refresh-table append eieio-oref lexical-table] 5 "Get the pre-processor map for Emacs C code.\nAll files need the macros from lisp.h!"]] 6)
#@46 Find NAME is BASE directory sublist of DIRS.
(defalias 'ede-emacs-find-in-directories #[(name base dirs) "\306	\203l�\204l�	@\307\n\"\307
\f\"\310!\203%�\202e�\311\f\312\"\306\211\306\211\203\\�@\313!\203S�\314\315\"\204S�BA\211\2048�*\316
\f#*	A+\202�)\207" [ans dirs D base ed name nil expand-file-name file-exists-p directory-files t file-directory-p string-match "\\.$" ede-emacs-find-in-directories ef moredirs dirfile DF --dolist-tail--] 5 (#$ . 9510)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\311\312!\207" [cl-generic-define-method ede-expand-filename-impl nil ((proj ede-emacs-project) name) t #[(#1=#:cl--cnm proj name) "\306!\307\n!\310!	\204�\311\2026�\312\313	\"\203�\314\2026�\312\315	\"\203*�\316\2026�\312\317	\"\2035�\320\2026�\311\211\204A� \202F�\321\f
#,\207" [name ext proj root dir dirs file-name-extension ede-project-root ede-project-root-directory nil string-match "h\\|c" ("src" "lib-src" "lwlib") "elc?" ("lisp") "texi" ("doc") ede-emacs-find-in-directories #1#] 5 "Within this project PROJ, find the file NAME.\nKnows about how the Emacs source tree is organized."] project-rescan ((this ede-emacs-project)) #[(this) "\302\303!!\304\305	@#\210\304\306	A#)\207" [this ver ede-emacs-version ede-project-root-directory eieio-oset name version] 4 "Rescan this Emacs project from the sources."] provide ede/emacs] 6)

${this.title}

Code Editor : emacs.elc