ikan Uploader :
Directory : /proc/self/root/usr/share/emacs/25.2/lisp/cedet/ede/
Upload File : |
| Current File : //proc/self/root/usr/share/emacs/25.2/lisp/cedet/ede/dired.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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) (#$ . 495))
#@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 (#$ . 1359))
(make-variable-buffer-local 'ede-dired-minor-mode)
#@132 A minor mode that should only be activated in DIRED buffers.
If ARG is nil or a positive number, force on, if
negative, force off.
(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 (#$ . 1571) (list (or current-prefix-arg 'toggle))])
#@185 Hook run after entering or leaving `ede-dired-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar ede-dired-minor-mode-hook nil (#$ . 2471))
(byte-code "\301\302\303\304\211%\207" [ede-dired-keymap 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 (#$ . 2821) (list (let ((ede-object (ede-current-project))) (ede-invoke-method 'project-interactive-select-target "Add files to Target: ")))])
(provide 'ede/dired)
Kontol Shell Bypass