ikan Uploader :
Directory : /proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/ede/
Upload File : |
| Current File : //proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/ede/system.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ede)
#@46 Browse the home page of the current project.
(defalias 'ede-web-browse-home #[nil "\301 \204 \302\303!\210\304\301 \305\"\211\306\230\203 \302\307!\210\310\311!\210\311!)\207" [home ede-toplevel error "No project" eieio-oref web-site-url "" "Now URL is stored in this project" require browse-url] 4 (#$ . 425) nil])
#@37 Edit the web site for this project.
(defalias 'ede-edit-web-page #[nil "\304 \305\306\"\305\307\"\310 !\nP\311\312 \"\203 \313\314!\210\315 !\204; \n\311\312 \"\2031 \313\314!\210\315 !\204; \316\317!\210\320 !,\207" [toplevel dir file endfile ede-toplevel eieio-oref web-site-directory web-site-file file-name-as-directory string-match "^/r[:@]" require tramp file-exists-p error "No project file found" find-file] 3 (#$ . 751) nil])
#@188 Upload the current distribution to the correct location.
Use /user@ftp.site.com: file names for FTP sites.
Download tramp, and use /r:machine: for names on remote sites w/out FTP access.
(defalias 'ede-upload-distribution #[nil "\303\304 !\305\304 \306\"\307\230\203 \305\304 \310\"\202 \305\304 \306\"\211\307\230\204) \311 !\204. \312\313 \"\210\203e \314\305\304 \315\"!@P\311\n!\204P \316\317\n\"\210\320 \210\312\317\n\"\210\321 !\322\323\n!Q\324\n \"\210A)\202. *\316\325!\207" [files upload localfile project-dist-files ede-toplevel eieio-oref ftp-upload-site "" ftp-site file-exists-p error "Upload directory %S does not exist" file-name-directory file message "File %s does not exist yet. Building a distribution" ede-make-dist directory-file-name "/" file-name-nondirectory copy-file "Done uploading files..."] 5 (#$ . 1201) nil])
#@187 Upload the current distributions documentation as HTML.
Use /user@ftp.site.com: file names for FTP sites.
Download tramp, and use /r:machine: for names on remote sites w/out FTP access.
(defalias 'ede-upload-html-documentation #[nil "\303\304\305 \306\"\307\230\203 \304\305 \310\"\202 \304\305 \306\"\211\307\230\204& \311 !\204+ \312\313 \"\210\203V \314\304\305 \315\"!@P\311\n!\204J \316\317\n\"\210\312\317\n\"\210\320\n \"\210A)\202+ *\316\321!\207" [files upload localfile nil eieio-oref ede-toplevel ftp-upload-site "" ftp-site file-exists-p error "Upload directory %S does not exist" file-name-directory file message "File %s does not exist yet. Building a distribution" copy-file "Done uploading files..."] 5 (#$ . 2060) nil])
#@38 Run `vc-dir' on the current project.
(defalias 'ede-vc-project-directory #[nil "\302!\303 \304\")\207" [default-directory top ede-toplevel-project-or-nil vc-dir nil] 3 (#$ . 2813) nil])
(provide 'ede/system)
Kontol Shell Bypass