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 : source.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\302\303\304\305!\"\210\302\306\307\305!\"\210\302\310\306\"\210\311\310\312\313#\210\314\305\315\306#\316\305\317\320\321$\207" [require eieio-base defalias ede-sourcecode-p eieio-make-class-predicate ede-sourcecode ede-sourcecode--eieio-childp eieio-make-child-predicate ede-sourcecode-child-p make-obsolete "use (cl-typep ... \\='ede-sourcecode) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-instance-inheritor) ((name :initarg :name :type string :documentation "The name of this type of source code.\nSuch as \"C\" or \"Emacs Lisp\"") (sourcepattern :initarg :sourcepattern :initform ".*" :type string :documentation "Emacs regexp matching sourcecode this target accepts.") (auxsourcepattern :initarg :auxsourcepattern :initform nil :type (or null string) :documentation "Emacs regexp matching auxiliary source code this target accepts.\nAux source are source code files needed for compilation, which are not compiled\nthemselves.") (enable-subdirectories :initarg :enable-subdirectories :initform nil :type boolean :documentation "Non nil if this sourcecode type uses subdirectories.\nIf sourcecode always lives near the target creating it, this should be nil.\nIf sourcecode can, or typically lives in a subdirectory of the owning\ntarget, set this to t.") (garbagepattern :initarg :garbagepattern :initform nil :type list :documentation "Shell file regexp matching files considered as garbage.\nThis is a list of items added to an `rm' command when executing a `clean'\ntype directive.")) (:documentation "Description of some type of source code.\nObjects will use sourcecode objects to define the types of source\nthat they are willing to use.")] 6)
#@53 Create a new object of class type `ede-sourcecode'.
(defalias 'ede-sourcecode #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-sourcecode] 4 (#$ . 2132)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-sourcecode compiler-macro ede-sourcecode--anon-cmacro] 4)
(defalias 'ede-sourcecode--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])
#@39 The master list of all EDE compilers.
(defvar ede-sourcecode-list nil (#$ . 2642))
(byte-code "\300\301\302\303\304\305%\210\300\306\304\307\304\310%\210\300\311\304\312\304\313%\210\300\314\304\315\304\316%\210\300\317\304\320\304\321%\210\300\322\304\323\304\324%\210\300\325\304\326\304\327%\210\300\330\304\331\304\332%\207" [cl-generic-define-method initialize-instance (:after) ((this ede-sourcecode) &rest fields) nil #[(this &rest fields) "\211\203�\303\n\304\"\303	@\304\"\230\204�	A\211\204�	\203$�	\n\240\202)�\nB\211)\207" [ede-sourcecode-list lst this eieio-oref name] 5 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"] ede-want-file-p ((this ede-sourcecode) filename) #[(this filename) "\302	\"\206�\303	\"\207" [this filename ede-want-file-source-p ede-want-file-auxiliary-p] 3 "Return non-nil if sourcecode definition THIS will take FILENAME."] ede-want-file-source-p ((this ede-sourcecode) filename) #[(this filename) "\303\304\305	\306\"\n\")\207" [case-fold-search this filename nil string-match eieio-oref sourcepattern] 4 "Return non-nil if THIS will take FILENAME as an auxiliary ."] ede-want-file-auxiliary-p ((this ede-sourcecode) filename) #[(this filename) "\303\304	\305\"\205�\306	\305\"\205�\307\306	\305\"\n\")\207" [case-fold-search this filename nil slot-boundp auxsourcepattern eieio-oref string-match] 4 "Return non-nil if THIS will take FILENAME as an auxiliary ."] ede-want-any-source-files-p ((this ede-sourcecode) filenames) #[(this filenames) "\303	\203�\304\n	\211A\242\"\211\203�)\207" [found filenames this nil ede-want-file-source-p] 5 "Return non-nil if THIS will accept any source files in FILENAMES."] ede-want-any-auxiliary-files-p ((this ede-sourcecode) filenames) #[(this filenames) "\303	\203�\304\n	\211A\242\"\211\203�)\207" [found filenames this nil ede-want-file-auxiliary-p] 5 "Return non-nil if THIS will accept any aux files in FILENAMES."] ede-want-any-files-p ((this ede-sourcecode) filenames) #[(this filenames) "\303	\203�\304\n	\211A\242\"\211\203�)\207" [found filenames this nil ede-want-file-p] 5 "Return non-nil if THIS will accept any files in FILENAMES."] ede-buffer-header-file ((this ede-sourcecode) filename) #[(this filename) "\305!\306\307!!\310	\311\"\n\205�\312\f\313\314!\nP#+\207" [filename this ae ts dn file-name-directory file-name-sans-extension file-name-nondirectory eieio-oref auxsourcepattern directory-files t regexp-quote] 5 "Return a list of file names of header files for THIS with FILENAME.\nUsed to guess header files, but uses the auxsource regular expression."]] 6)
#@32 Scheme source code definition.
(defvar ede-source-scheme (ede-sourcecode :name "Scheme" :sourcepattern "\\.scm$") (#$ . 5303))
(provide 'ede/source)

${this.title}

Code Editor : source.elc