WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/ede
Viewing File: /usr/share/emacs/24.3/lisp/cedet/ede/custom.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:31 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/ede/custom.el
;;; in Emacs version 24.3.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 (#$ . 574))
#@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 (#$ . 661) nil])
(defalias 'customize-project 'ede-customize-project)
#@59 Edit fields of the current target through EIEIO & Custom.
(defalias 'ede-customize-current-target #[nil "\302\303!\210\304	\"\204\305\306!\210\307!\207" [ede-object ede-target require eieio-custom obj-of-class-p error "Current file is not part of a target" ede-customize-target] 3 (#$ . 1043) 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) "\302\303!\210\203\304	\"\204\305\306!\210\307!\207" [obj ede-target require eieio-custom obj-of-class-p error "No logical target to customize" ede-customize] 3 (#$ . 1411)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\310\"\"\210\304\301\305\311\312$\207" [eieio--defalias ede-customize eieio--defgeneric-init-form #1="Customize the EDE project PROJ." eieio--defmethod nil ede-project #[(proj) "\301\302\"\207" [proj eieio-customize-object default] 3 #1#] #2="Customize the EDE TARGET." ede-target #[(target) "\301\302\"\207" [target eieio-customize-object default] 3 #2#]] 5)
#@67 Variable for tracking target order in `ede-project-sort-targets'.
(defvar ede-project-sort-targets-order nil (#$ . 2179))
#@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@\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 (#$ . 2307) 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 (#$ . 3407)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\310\"\"\210\304\301\305\311\312$\210\300\313\302\313\314\"\"\210\304\313\305\306\315$\210\316\317!\207" [eieio--defalias eieio-done-customizing eieio--defgeneric-init-form #1="Call this when a user finishes customizing PROJ." eieio--defmethod nil 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 #1#] #2="Call this when a user finishes customizing TARGET." ede-target #[(target) "\300\207" [nil] 1 #2#] ede-commit-project #3="Commit any change to PROJ to its file." #[(proj) "\300\207" [nil] 1 #3#] provide ede/custom] 5)
F1l3 Manager
