Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/dired.elc
;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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require easymenu dired ede] 2)
#@39 Keymap used for ede dired minor mode.
(defvar ede-dired-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\315\316!\210\317\320\321\322$\210)\207" [map 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)])] 5) (#$ . 493))
#@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 (#$ . 1357))
(make-variable-buffer-local 'ede-dired-minor-mode)
#@310 A minor mode that should only be activated in DIRED buffers.
If called interactively, enable Ede-Dired minor mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(defalias 'ede-dired-minor-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\311\312!\204 \313\314\315!\210\316 !\204. \317\320!\204. \313\321\322\n\2038 \323\2029 \324\"\210\317\320!\203^ \305 \203M \305 \232\203^ \325 \326\327\n\203Y \330\202Z \331\f#\210))\332 \210\n\207" [#1=#:last-message arg ede-dired-minor-mode default-directory local current-message toggle prefix-numeric-value 0 derived-mode-p dired-mode nil 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 " in current buffer" message "Ede-Dired minor mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1569) (list (or current-prefix-arg 'toggle))])
(defvar ede-dired-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\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.)" add-minor-mode ede-dired-minor-mode " EDE" nil] 6)
#@48 Add a file, or all marked files into a TARGET.
(defalias 'ede-dired-add-to-target #[(target) "\304\305!\306\211\205- @\307\n\"\210\310!\203% r\310!q\210\306\311p!) A\211\204\n \306*\207" [file --dolist-tail-- target ede-object dired-get-marked-files t nil project-add-file get-file-buffer ede-buffer-object] 4 (#$ . 3072) (list (let ((ede-object (ede-current-project))) (ede-invoke-method 'project-interactive-select-target "Add files to Target: ")))])
(provide 'ede/dired)
Mini Shell