| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/cedet/ede/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (require 'ede) #@34 The old variables for a project. (defvar eieio-ede-old-variables nil (#$ . 99)) #@60 Edit fields of the current project through EIEIO & Custom. (defalias 'ede-customize-project #[0 "\301\302!\210\303\304 \305\"\304 \306!\210\307\300!\210\211\207" [eieio-ede-old-variables require eieio-custom eieio-oref ede-current-project local-variables ede-customize make-local-variable] 4 (#$ . 185) nil]) (defalias 'customize-project 'ede-customize-project) #@59 Edit fields of the current target through EIEIO & Custom. (defalias 'ede-customize-current-target #[0 "\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 (#$ . 556) nil]) (defalias 'customize-target 'ede-customize-current-target) #@108 Edit fields of the current target through EIEIO & Custom. OBJ is the target object to customize. (fn OBJ) (defalias 'ede-customize-target #[257 "\300\301!\210\211\203 \302\303\"\204 \304\305!\210\306!\207" [require eieio-custom obj-of-class-p ede-target error "No logical target to customize" ede-customize] 4 (#$ . 925)]) (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)) #[257 "\300\301\"\207" [eieio-customize-object default] 4 "Customize the EDE project PROJ.\n\n(fn PROJ)"] ((target ede-target)) #[257 "\300\301\"\207" [eieio-customize-object default] 4 "Customize the EDE TARGET.\n\n(fn TARGET)"]] 6) #@67 Variable for tracking target order in `ede-project-sort-targets'. (defvar ede-project-sort-targets-order nil (#$ . 1632)) #@69 Create a custom-like buffer for sorting targets of current project. (defalias 'ede-project-sort-targets #[0 "\303 \304\305\306!!\210\307 \210\211\310\311\312\313\314$\210\315\316!\210\310\311\312\317\320$\210\315\321!\210\322\323\324\325\326\327\330\"GS\"\"\210\331 \210\332\n!\210\333 \210eb\207" [ede-object-project ede-project-sort-targets-order widget-keymap ede-current-project switch-to-buffer get-buffer-create "*EDE sort targets*" erase-buffer widget-create push-button :notify #[128 "\302\303\"\304\211 \211A\242\211\262\203 \3058C\"\262\202 \306\303#\266\307!\210\310 \207" [ede-object-project ede-project-sort-targets-order eieio-oref targets nil append eieio-oset ede-commit-project kill-buffer] 8 "\n\n(fn &rest IGNORE)"] " Accept " widget-insert " " #[128 "\300 \207" [kill-buffer] 2 "\n\n(fn &rest IGNORE)"] " Cancel " "\n\n" nil mapc #[257 "\300\301\211#\207" [add-to-ordered-list ede-project-sort-targets-order] 5 "\n\n(fn X)"] number-sequence 0 eieio-oref targets ede-project-sort-targets-list use-local-map widget-setup] 8 (#$ . 1760) nil]) #@62 Sort the target list while using `ede-project-sort-targets'. (defalias 'ede-project-sort-targets-list #[0 "\212\304\305\"\306\211eb\210\307y\210`d|\210\211G\310\211W\205k \211\310V\2030 \311\312\313\314\315\"\316$\210\2024 \317\320!\210GSW\203I \311\312\313\314\321\"\322$\210\202M \317\323!\210\317\324\325T!\326\3048 8\327\"\330\260!\266\211T\262\202 \266\202*\262)\207" [ede-object-project inhibit-modification-hooks inhibit-read-only ede-project-sort-targets-order eieio-oref targets t 2 0 widget-create push-button :notify make-closure #[128 " \302\301\3008\300S#\210\302\301\300S8\300#\266\303 \207" [V0 ede-project-sort-targets-order add-to-ordered-list ede-project-sort-targets-list] 6 "\n\n(fn &rest IGNORE)"] " Up " widget-insert " " #[128 " \302\301\3008\300T#\210\302\301\300T8\300#\266\303 \207" [V0 ede-project-sort-targets-order add-to-ordered-list ede-project-sort-targets-list] 6 "\n\n(fn &rest IGNORE)"] " Down " " " " " number-to-string ".: " name "\n"] 11 (#$ . 2845)]) (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)) #[257 "C\301\302\"\303\242\203, \304\242@@\"\204# \212\305\306\307\"\310!\"\210)\211\242A\240\210\202 \305\306\311\"\310!\"\207" [eieio-ede-old-variables eieio-oref local-variables nil assoc mapc make-closure #[257 "\211q\210\301\300\242@@!\207" [V0 kill-local-variable] 3 "\n\n(fn B)"] ede-project-buffers #[257 "\301\300\"\207" [V0 ede-set-project-variables] 4 "\n\n(fn B)"]] 7 "Call this when a user finishes customizing PROJ.\n\n(fn PROJ)"] ((_target ede-target)) #[257 "\300\207" [nil] 2 "Call this when a user finishes customizing TARGET.\n\n(fn TARGET)"] ede-commit-project ((_proj ede-project)) #[257 "\300\207" [nil] 2 "Commit any change to PROJ to its file.\n\n(fn PROJ)"] provide ede/custom] 6)