;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:10 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/ede/system.el
;;; in Emacs version 24.3.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 (#$ . 574) 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 (#$ . 900) 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 (#$ . 1350) 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 (#$ . 2209) 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 (#$ . 2962) nil])
(provide 'ede/system)