%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 \n 8C\"\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\211 eb\210\311y\210`d|\210\f GW\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\f GSW\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
8 8\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)
Zerion Mini Shell 1.0