| 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.
(byte-code "\300\301!\210\300\302!\207" [require dired ede] 2)
#@39 Keymap used for ede dired minor mode.
(defvar ede-dired-keymap (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\314\315!\210\316\317\320\321$\210\207" [make-sparse-keymap define-key ".a" ede-dired-add-to-target ".t" ede-new-target ".s" ede-speedbar ".C" ede-compile-project ".d" ede-make-dist (lambda (#1=#:def-tmp-var) (defvar ede-dired-menu #1# #2="EDE Dired Minor Mode Menu")) nil easy-menu-do-define ede-dired-menu #2# ("Project" ["Add files to target" ede-dired-add-to-target (ede-current-project)] ("Build" :filter ede-build-forms-menu) "-" ["Create Project" ede-new (not (ede-current-project))] ["Create Target" ede-new-target (ede-current-project)] "-" ("Customize Project" :filter ede-customize-forms-menu) ["View Project Tree" ede-speedbar (ede-current-project)])] 6) (#$ . 147))
#@109 Non-nil if EDE-Dired minor mode is enabled.
Use the command `ede-dired-minor-mode' to change this variable.
(defvar ede-dired-minor-mode nil (#$ . 1004))
(make-variable-buffer-local 'ede-dired-minor-mode)
#@627 A minor mode that should only be activated in DIRED buffers.
This is a minor mode. If called interactively, toggle the `EDE-Dired
minor mode' mode. If the prefix argument is positive, enable the
mode, and if it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable the
mode if ARG is nil, omitted, or is a positive number. Disable the
mode if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate `ede-dired-minor-mode'.
The mode's hook is called both when the mode is enabled and when it is
disabled.
(fn &optional ARG)
(defalias 'ede-dired-minor-mode #[256 "\303 \304=\203
?\202 \247\203 \305W\203 \306\202 \307\310\301!\2031 \311\300 \"\2031 \300 B\312\313!\204= \306\314\315!\210\316\n!\204K \317\320!\204K \306\321\322\203U \323\202V \324\"\210\317\320!\203x \303 \203j \211\303 \232\203x \325\326\203t \327\202u \330\331#\210\210\332 \210\207" [ede-dired-minor-mode local-minor-modes default-directory current-message toggle 1 nil t boundp delq derived-mode-p dired-mode error "Not in DIRED mode" ede-directory-project-p called-interactively-p any run-hooks ede-dired-minor-mode-hook ede-dired-minor-mode-on-hook ede-dired-minor-mode-off-hook message "EDE-Dired minor mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 1216) (byte-code "\203\n \301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar ede-dired-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [ede-dired-keymap ede-dired-minor-mode-hook variable-documentation put "Hook run after entering or leaving `ede-dired-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode ede-dired-minor-mode " EDE"] 6)
#@61 Add a file, or all marked files into a TARGET.
(fn TARGET)
(defalias 'ede-dired-add-to-target #[257 "\301\302!\211\205( \211@\303\"\210\304!\203! r\304!q\210\305\306p!)A\266\202\202 \207" [ede-object dired-get-marked-files t project-add-file get-file-buffer nil ede-buffer-object] 6 (#$ . 3203) (byte-code "\301 \302\303\304\")C\207" [ede-object ede-current-project ede-invoke-method project-interactive-select-target "Add files to Target: "] 3)])
(provide 'ede/dired)