Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;ELC ;;; Compiled by leavens@LEAVENS on Mon Sep 15 16:19:44 2003 ;;; from file d:/emacs/ecb/ecb-help.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`ecb-help.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\305\306!\210\305\307!\210\301B\310\302B\311\303B\312\304B\313\314\315\316\317\320\321%\207" [current-load-list ecb-help-info-start-file ecb-help-html-start-file ecb-help-info-subdir ecb-help-html-subdir require ecb-layout ecb-util "ecb.info" "ecb.html" "./info-help/" "./html-help/" custom-declare-group ecb-help nil "Settings for the ECB online help" :group ecb] 6) #@317 *The format `ecb-show-help' shows its online help. Allowed values are 'info (for the Info format) and 'html (for HTML format). If the value is 'html then `browse-url-browser-function' says which browser is used. Note: If you got ECB as a standard XEmacs-package maybe the HTML-online-documentation is not included. (custom-declare-variable 'ecb-show-help-format ''info '(#$ . -984) :group 'ecb-help :type '(choice :tag "Online-help format" :menu-tag "Online-help format" (const :tag "Info" :value info) (const :tag "Html" :value html))) #@638 *Path where the ECB online help in info format resides. This must be the location of the file "ecb.info" which comes with the ECB distribution. If is installed by unpacking the archive available on the ECB web-site then this is the subdir `ecb-help-info-subdir' of the installation directory of ECB. If it is installed as XEmacs-package (e.g. via the package manager of XEmacs) then this is probably the directory "../../info/" (relativ to the Elisp directory of ECB). The path can either be an absolute path or a path relative to the directory where the Elisp files of ECB are. Normally there should be no need to change this option! (custom-declare-variable 'ecb-help-info-path '(concat (if ecb-running-xemacs (if (file-exists-p (concat ecb-ecb-dir ecb-help-info-subdir ecb-help-info-start-file)) ecb-help-info-subdir "../../info/") ecb-help-info-subdir) ecb-help-info-start-file) '(#$ . -1529) :group 'ecb-help :type 'file) #@678 *Path where the ECB online help in HTML format resides. This must be the location of the file "index.html" which comes with the ECB distribution. If is installed by unpacking the archive available on the ECB web-site then this is the subdir `ecb-help-html-subdir' of the installation directory of ECB. If it is installed as XEmacs-package (e.g. via the package manager of XEmacs) then this is probably either the directory "../../html/" or "../../etc/ecb/html/" (both relative to the Elisp directory of ECB). The path can either be an absolute path or a path relative to the directory where the Elisp files of ECB are. Normally there should be no need to change this option! (custom-declare-variable 'ecb-help-html-path '(if (not ecb-running-xemacs) (concat ecb-help-html-subdir ecb-help-html-start-file) (cond ((file-exists-p (concat ecb-ecb-dir ecb-help-html-subdir ecb-help-html-start-file)) (concat ecb-help-html-subdir ecb-help-html-start-file)) ((file-exists-p (concat ecb-ecb-dir "../../html/" ecb-help-html-start-file)) (concat "../../html/" ecb-help-html-start-file)) ((file-exists-p (concat ecb-ecb-dir "../../html/ecb/index.html")) "../../html/ecb/index.html") (t (concat "../../etc/ecb/html/" ecb-help-html-start-file)))) '(#$ . -2465) :group 'ecb-help :type 'file) #@219 Starts `info' with INFO-FILE. If INFO-FILE does not exists then nil is returned otherwise true. If NO-FILE-NOT-EXIST-ERR is not nil then just nil is returned if INFO-FILE does not exist otherwise an error is reported. (defalias 'ecb-info #[(info-file &optional no-file-not-exist-err) "\302!\203\f\303\304!\210\207 \204\305\306\"\210\307\207" [info-file no-file-not-exist-err file-exists-p t info ecb-error "Info file %s does not exists!" nil] 3 (#$ . 3752)]) #@251 Opens HTML-FILE in the standard-webbrowser with `browse-url'. If INFO-FILE does not exists then nil is returned otherwise true. If NO-FILE-NOT-EXIST-ERR is not nil then just nil is returned if HTML-FILE does not exist otherwise an error is reported. (defalias 'ecb-browse-html-file #[(html-file &optional no-file-not-exist-err) "\304!\2030\305\306\307!\203+\310\311!\203+\312\311!\203+\311\313P\314\301!\203' \202(\n\"\210\207\315\316!\210\207\2049\315\317\"\210\320\207" [html-file browse-url-new-window-flag browse-url-new-window-p no-file-not-exist-err file-exists-p t locate-library "browse-url" require browse-url fboundp "file://" boundp ecb-error "Function 'browse-url needed for displaying HTML!" "HTML file %s does not exists!" nil] 5 (#$ . 4224)]) #@504 Shows the online help of ECB in Info or HTML-format. The format depends on the setting in `ecb-show-help-format'. If called with prefix argument, i.e. if FORMAT is not nil then the user is prompted to choose the format of the help (Info or Html). If an error about not finding the needed help-file occurs please take a look at the options `ecb-help-info-start-file' and `ecb-help-html-start-file'! Note: If you got ECB as a standard XEmacs-package maybe the HTML-online-documentation is not included. (defalias 'ecb-show-help #[(&optional format) "\203 \306\307\310\311\"!\202 \312\313\314\n\"\204!\313\315\316!P\n\"\203'\f\nP\202(\n!\317\313\314 \"\204=\313\315\316!P \"\203C\f P\202D !\211\320\232\203X\321!\202`\322\323!\210\324!+\207" [format ecb-show-help-format ecb-help-info-path ecb-help-info-start-file ecb-ecb-dir ecb-help-html-path intern ecb-query-string "Choose format of online-help:" ("html" "info") expand-file-name string-match "^\\." "^" regexp-quote ecb-fix-filename info ecb-info message "Opening ECB online-help in a web-browser..." ecb-browse-html-file ecb-help-html-start-file html-path-abs info-path-abs f] 8 (#$ . 5000) "P"]) (byte-code "\301B\303\301!\204\f\304\302B\305\301\207" [current-load-list ecb-problem-report-mail-address ecb-problem-report-message boundp "ecb-list@lists.sourceforge.net" "Please enter the details of your bug report here"] 2) #@415 Submit a problem report for the ECB to the ECB mailing-list. This command generates in the edit-window a problem-report which contains already the current values of all ECB options, the current backtrace-buffer if there is any and the current message-buffer. You will be asked for a problem-report subject and then you must insert a description of the problem. Please describe the problem as detailed as possible! (defalias 'ecb-submit-problem-report #[nil "\306 \232\203\307 \204\310 \210\311\312!\204\313\314!\207\315\316!\210\317\320!\205j\321\322!\210\323 \324\325\n\f \326\327!\203:\202;\330&\331 \332\333$&\210\306 \232\203P\334 \210\335 \210\336\337\324\340\n\"\"c\210\341 \210\342$!\210\332\210\321\343!\207" [ecb-frame ecb-problem-report-mail-address ecb-version semantic-version eieio-version speedbar-version selected-frame ecb-point-in-edit-window ecb-select-edit-window locate-library "reporter" ecb-error "You need the reporter.el package to submit a bugreport for ECB!" require reporter y-or-n-p "Do you want to submit a problem report on the ECB? " message "Preparing problem report..." reporter-submit-bug-report format "ECB: %s, semantic: %s, eieio: %s, speedbar: %s, JDEE: %s" boundp jde-version "No JDEE" ecb-problem-report-list-all-variables nil ecb-problem-report-post-hook ecb-redraw-layout mail-subject read-string "Problem report subject: " "ECB-%s -- " mail-text search-forward "Preparing bug report...done" ecb-problem-report-message] 10 (#$ . 6420) nil]) #@131 Function run the reporter package done its work. It looks for a message- and a backtrace-buffer and inserts the contents of that. (defalias 'ecb-problem-report-post-hook #[nil "\212\303 \210\304\305\306\307#\203\310 \210\311c\210\312y\210\202db\210\313c\210\314\203'\315\202(\316!\314\317!\320c\210\n\203G\321c\210\322\n!\210\323\307!b\210\324c\210\202J\325c\210\326c\210\327c\210 \203f\330c\210\322 !\210\323\307!b\210\331c\210\202i\332c\210\326c+\207" [ecb-running-xemacs messages-buffer backtrace-buffer beginning-of-buffer re-search-forward "^--[ ]*$" nil t beginning-of-line "\n\n\n" -2 "\n\n" get-buffer " *Message-Log*" "*Messages*" "*Backtrace*" "\n\n-----------------------------------------------------\n" "The contents of the *Backtrace* buffer were\n\n" insert-buffer mark "\nEnd Insert *Backtrace* buffer" "There was no *Backtrace* buffer" "\n-----------------------------------------------------\n\n" "-----------------------------------------------------\n" "The contents of the *Messages* buffer were\n\n" "\nEnd Insert *Messages* buffer" "There was no *Messages* buffer"] 4 (#$ . 7930)]) #@106 List all variables starting with `ecb-' and some other variables which could be interesting for support. (defalias 'ecb-problem-report-list-all-variables #[nil "\306\307\310\311\312\313\314\315\316\317\320\321!\205\321\320\322!\205\322\323\320\324!\205 \324\320\325!\205'\325\320\326!\205.\326\320\327!\2055\327\320\330!\205<\330\331\332\320\333!\205E\333\257\"\334\"\306\335\336\"\306\337\340\"\341\342\306\310\343\344 \345#)\346\"\"\306\347\350\"*\351* \f\n%-\207" [completion-ignore-case obarray ecb-internal-vars ecb-options speedbar-vars semantic-vars sort delete nil pre-command-hook post-command-hook after-save-hook help-mode-hook compilation-mode-hook truncate-partial-width-windows truncate-lines boundp compilation-window-height temp-buffer-max-height auto-mode-alist c-mode-hook c++-mode-hook c-mode-common-hook java-mode-hook jde-mode-hook system-type window-system ediff-quit-hook #[(l r) "\302!\302 !\231\207" [l r symbol-name] 3] (semantic-after-toplevel-cache-change-hook semantic-after-partial-cache-change-hook semantic-face-alist semantic-uml-colon-string semantic-orphaned-member-metaparent-type) #[(l r) "\302!\302 !\231\207" [l r symbol-name] 3] (speedbar-dynamic-tags-function-list speedbar-tag-hierarchy-method speedbar-tag-group-name-minimum-length speedbar-tag-split-minimum-length speedbar-tag-regroup-maximum-length speedbar-fetch-etags-command speedbar-fetch-etags-arguments speedbar-fetch-etags-parse-list) #[(l r) "\302!\302 !\231\207" [l r symbol-name] 3] mapcar intern all-completions "ecb-" user-variable-p string-lessp (ecb-path-selected-directory ecb-path-selected-source ecb-use-semantic-grouping ecb-idle-timer-alist ecb-post-command-hooks ecb-minor-mode ecb-toggle-layout-state) #[(l r) "\302!\302 !\231\207" [l r symbol-name] 3] append emacs-vars] 22 (#$ . 9056)]) (provide 'ecb-help)