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 : custom.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'ede)
#@34 The old variables for a project.
(defvar eieio-ede-old-variables nil (#$ . 423))
#@60 Edit fields of the current project through EIEIO & Custom.
(defalias 'ede-customize-project #[nil "\303\304!\210\305\306 \307\"\306 \310	!\210\311\302!\210\211*\207" [ov cp eieio-ede-old-variables require eieio-custom eieio-oref ede-current-project local-variables ede-customize make-local-variable] 3 (#$ . 510) nil])
(defalias 'customize-project 'ede-customize-project)
#@59 Edit fields of the current target through EIEIO & Custom.
(defalias 'ede-customize-current-target #[nil "\301\302!\210\303\304\"\204�\305\306!\210\307!\207" [ede-object require eieio-custom obj-of-class-p ede-target error "Current file is not part of a target" ede-customize-target] 3 (#$ . 892) nil])
(defalias 'customize-target 'ede-customize-current-target)
#@98 Edit fields of the current target through EIEIO & Custom.
OBJ is the target object to customize.
(defalias 'ede-customize-target #[(obj) "\301\302!\210\203�\303\304\"\204�\305\306!\210\307!\207" [obj require eieio-custom obj-of-class-p ede-target error "No logical target to customize" ede-customize] 3 (#$ . 1262)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\207" [cl-generic-define-method ede-customize nil ((proj ede-project)) #[(proj) "\301\302\"\207" [proj eieio-customize-object default] 3 "Customize the EDE project PROJ."] ((target ede-target)) #[(target) "\301\302\"\207" [target eieio-customize-object default] 3 "Customize the EDE TARGET."]] 6)
#@67 Variable for tracking target order in `ede-project-sort-targets'.
(defvar ede-project-sort-targets-order nil (#$ . 1955))
#@69 Create a custom-like buffer for sorting targets of current project.
(defalias 'ede-project-sort-targets #[nil "\306 \307\310\211\311\312\313!!\210\314 \210\315\316\317\320\321$\210\322\323!\210\315\316\317\324\325$\210\322\326!\210\310\327\330\331\332\333\334\"GS\"\"\210\335 \210\336 !\210\337 \210eb,\207" [order current count proj ede-object-project ede-project-sort-targets-order ede-current-project 1 nil switch-to-buffer get-buffer-create "*EDE sort targets*" erase-buffer widget-create push-button :notify #[(&rest ignore) "\305\303\"\306\211\f\211A\242\211\203�\307	\n8C\"\202	�\310\303	#\210+\311!\210\312 \207" [ede-object-project newtargets cur targets ede-project-sort-targets-order eieio-oref nil append eieio-oset ede-commit-project kill-buffer] 4] " Accept " widget-insert "   " #[(&rest ignore) "\300 \207" [kill-buffer] 1] " Cancel " "\n\n" mapc #[(x) "\301\302\211#\207" [x add-to-ordered-list ede-project-sort-targets-order] 4] number-sequence 0 eieio-oref targets ede-project-sort-targets-list use-local-map widget-setup widget-keymap] 7 (#$ . 2083) nil])
#@62 Sort the target list while using `ede-project-sort-targets'.
(defalias 'ede-project-sort-targets-list #[nil "\212\306\307\303\"\310\211eb\210\311y\210`d|\210\fGW\205\236�\f\306V\203K�\312\313\314\315\316\317\320\321\322\323\f\324BB\325\fDF\321\326\323\325\fD\327BB\fFF\330BBB\331$\210\202O�\332\333!\210\fGSW\203�\312\313\314\315\334\317\335\321\336\323\f\337BB\340\fDF\321\341\323\340\fD\342BB\fFF\343BBB\344$\210\202\203�\332\345!\210\332\346\347\fT!\350\307\f
88\351\"\352\260!\210\fT\211\202�-\207" [ede-object-project inhibit-modification-hooks inhibit-read-only targets count ede-project-sort-targets-order 0 eieio-oref t 2 widget-create push-button :notify lambda (&rest ignore) let ((cur ede-project-sort-targets-order)) add-to-ordered-list 'ede-project-sort-targets-order nth (cur) 1- 'ede-project-sort-targets-order (cur) ((ede-project-sort-targets-list)) " Up " widget-insert "      " (&rest ignore) ((cur ede-project-sort-targets-order)) 'ede-project-sort-targets-order (cur) 1+ 'ede-project-sort-targets-order (cur) ((ede-project-sort-targets-list)) " Down " "        " " " number-to-string ".:   " name "\n"] 14 (#$ . 3186)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\210\312\313!\207" [cl-generic-define-method eieio-done-customizing nil ((proj ede-project)) #[(proj) "\304	\305\"\306\203&�\307@@\n\"\204�\212\310\311\312	!\"\210)A\211\204
�\310\313\312	!\"*\207" [eieio-ede-old-variables proj nv ov eieio-oref local-variables nil assoc mapc #[(b) "q\210\302	@@!\207" [b ov kill-local-variable] 2] ede-project-buffers #[(b) "\302	\"\207" [proj b ede-set-project-variables] 3]] 5 "Call this when a user finishes customizing PROJ."] ((target ede-target)) #[(target) "\300\207" [nil] 1 "Call this when a user finishes customizing TARGET."] ede-commit-project ((proj ede-project)) #[(proj) "\300\207" [nil] 1 "Commit any change to PROJ to its file."] provide ede/custom] 6)

${this.title}

Code Editor : custom.elc