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:43 2003 ;;; from file d:/emacs/ecb/ecb-compilation.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-compilation.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ecb-util) #@464 *Additional buffer names that should be displayed in the compile-window. Buffer names can either be defined as strings or as regexps. If the buffer-name of a buffer matches one of the defined string or regexp then it will be displayed in the compile-window of ECB even if `compilation-buffer-p' says nil for this buffer. It is not recommended to add the name of eshell-buffers to this list because ECB already handles the eshell-integration as best as possible. (custom-declare-variable 'ecb-compilation-buffer-names '`(("*Calculator*") ("*vc*") ("*vc-diff*") ,(if ecb-running-xemacs '("\\*Apropos.*\\*" . t) '("*Apropos*")) ("*Occur*") ("*shell*") ("\\*[cC]ompilation.*\\*" . t) ("\\*i?grep.*\\*" . t) ("*JDEE Compile Server*") ,(if ecb-running-xemacs '("\\*Help.*\\*" . t) '("*Help*")) ("*Completions*") ("*Backtrace*") ("*Compile-log*") ("*bsh*") (,(if ecb-running-xemacs " *Message-Log*" "*Messages*"))) '(#$ . -626) :group 'ecb-compilation :type '(repeat (cons (string :tag "Buffer name") (boolean :tag "Handled as regexp")))) #@199 This variable is for ECB internal use and can be used by ECB to add buffer-names to the set specified in `ecb-compilation-buffer-names'. Type is the same as of option `ecb-compilation-buffer-names' (defvar ecb-compilation-buffer-names-internal nil (#$ . 1666)) #@191 Return the set of buffer names which should be displayed in the compile-window of ECB. This is a list combined of `ecb-compilation-buffer-names' and `ecb-compilation-buffer-names-internal'. (defalias 'ecb-compilation-buffer-names #[nil "\302 \"\207" [ecb-compilation-buffer-names ecb-compilation-buffer-names-internal append] 3 (#$ . 1934)]) #@110 Check if name belongs to the set of buffers returned by `ecb-compilation-buffer-names'. If yes returns NAME. (defalias 'ecb-compilation-registered-buffer-p #[(name) "\300\301\215\207" [exit (byte-code "\304 \305\211\203: @\211A\204 \n@\230\2033\306\307\n\"\210\2023\310 \311\216\312@\n\"\2032\306\307\n\"\210* A\211\204 *\305\207" [b #1=#:--dolist-temp--47314 name save-match-data-internal ecb-compilation-buffer-names nil throw exit match-data ((set-match-data save-match-data-internal)) string-match] 4)] 2 (#$ . 2284)]) #@347 *Additional major-mode that should be displayed in the compile-window. All buffers of a major-mode contained in this list are displayed in the compile-window even if `compilation-buffer-p' says nil for such a buffer. It is not recommended to add `eshell-mode' to this list because ECB already handles the eshell-integration as best as possible. (custom-declare-variable 'ecb-compilation-major-modes ''(compilation-mode) '(#$ . -2827) :group 'ecb-compilation :type '(repeat (symbol :tag "major-mode name"))) #@143 This variable is for ECB internal use and can be used by ECB to add major-mode symbols to the set specified in `ecb-compilation-major-modes'. (defvar ecb-compilation-major-modes-internal nil (#$ . 3342)) #@181 Return all major-mode symbols which should be displayed in the compile-window. This is a list combined of `ecb-compilation-major-modes' and `ecb-compilation-major-modes-internal'. (defalias 'ecb-compilation-major-modes #[nil "\302 \"\207" [ecb-compilation-major-modes ecb-compilation-major-modes-internal append] 3 (#$ . 3553)]) #@665 *Predicates when a buffer should be treated as compilation-buffer. Every element of this list has to be a function or lambda-expression which gets as argument a buffer-object and which has to return not nil when this buffer should be treated as compilation-buffer (even if `compilation-buffer-p' says nil) and therefore be displayed in the compile-window of ECB (if there is any). In combination with the values of `ecb-compilation-buffer-names' and `ecb-compilation-major-modes' ECB decides when a buffer is displayed in the compile-window. Default value is the function `comint-check-proc' which returns not nil when the buffer is related to a living process. (custom-declare-variable 'ecb-compilation-predicates ''(comint-check-proc) '(#$ . -3890) :group 'ecb-compilation :type '(repeat (symbol :tag "Compilation predicate"))) #@132 This variable is for ECB internal use and can be used by ECB to add predicates to the set defined in `ecb-compilation-predicates'. (defvar ecb-compilation-predicates-internal nil (#$ . 4729)) #@206 Return all predicates which should be used to test if a buffer should be displayed in the compile-window. This is a list combined of `ecb-compilation-predicates' and `ecb-compilation-predicates-internal'. (defalias 'ecb-compilation-predicates #[nil "\302 \"\207" [ecb-compilation-predicates ecb-compilation-predicates-internal append] 3 (#$ . 4928)]) #@74 Get all known compilation buffer names. See `ecb-compilation-buffer-p'. (defalias 'ecb-compilation-get-buffers #[nil "\306\302!\307\310\n\311\"\211\306\211\2032 @\312\f!\203+\313\314\f! BC\" T A\211\204*+\207" [ecb-frame index buffer-list buffer-names buffer #1=#:--dolist-temp--47315 nil 0 sort #[(first second) "\302!\302 !\231\207" [first second buffer-name] 3] ecb-compilation-buffer-p append buffer-name] 6 (#$ . 5286)]) #@1311 Test if the given buffer BUFFER-OR-NAME should be treated as a compilation buffer. Note that in this case we define "compilation buffer" as a buffer that should ideally be displayed in the compile-window of ECB (see `ecb-compile-window-height'). This means that in some situations this might not be the result of a real `compile-internal'. A good example would be the *Help* buffer. BUFFER-OR-NAME can be the name of a buffer or a buffer-object. This function returns the buffer-object of BUFFER-OR-NAME - i.e. BUFFER-OR-NAME will be treated as compilation-buffer - if: - The name of the buffer is contained in the list returned by the function `ecb-compilation-buffer-names' or - the `major-mode' of the buffer is contained in the list returned by the function `ecb-compilation-major-modes' or - if `compilation-buffer-p' returns true or - one of the predicates returned by `ecb-compilation-predicates' returns not nil for the buffer. Otherwise nil is returned. Summary for ECB-end-users: A buffer will be treated as compilation-buffer if either - `compilation-buffer-p' returns not nil, i.e. if a real compilation-buffer or - if at least one of the options `ecb-compilation-buffer-names', `ecb-compilation-major-modes' or `ecb-compilation-predicates' define the buffer as compilation-buffer. (defalias 'ecb-compilation-buffer-p #[(buffer-or-name) ";\203\306!\202\307!\203\202\310\311 \211\205Z\312\313\n!!\203*\n\202Z\212\nq\210\314 \235)\203:\n\202Z\n\212\nq\210\f\206K \206K\315=*\203S\n\202Z\316\317\215\205Z\n*\207" [buffer-or-name ecb-comp-predicates buffer major-mode compilation-shell-minor-mode compilation-minor-mode get-buffer bufferp nil ecb-compilation-predicates ecb-compilation-registered-buffer-p buffer-name ecb-compilation-major-modes compilation-mode --cl-block-nil-- (byte-code "\304\211\203#\n@\305 !\203 !\203\306\307\310\"\210\nA\211\204*\304\207" [ecb-comp-predicates p #1=#:--dolist-temp--47316 buffer nil fboundp throw --cl-block-nil-- t] 4)] 4 (#$ . 5739)]) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\305\303B\304\303!\204$\306\305\207" [current-load-list ecb-compilation-update-menu-p ecb-compilation-buffer-list-cache ecb-compilation-update-idle-time boundp nil 0.25] 2) #@47 Initialize the compilation buffer list cache. (defalias 'ecb-compilation-buffer-list-init #[nil "\302\302\303 \207" [ecb-compilation-update-menu-p ecb-compilation-buffer-list-cache nil ecb-compilation-buffer-list-changed-p] 1 (#$ . 8027)]) #@207 Check if current active buffer list has changed - i.e. if a new buffer has been created or a buffer has been deleted. If yes then `ecb-compilation-update-menu-p' is set to not nil and the cache is updated. (defalias 'ecb-compilation-buffer-list-changed-p #[nil "\303 \211 \232?\205\304\211)\207" [new-buffer-list ecb-compilation-buffer-list-cache ecb-compilation-update-menu-p buffer-list t] 3 (#$ . 8276)]) #@296 Create an install a menu that allows the user to navigate buffers that are valid ECB compilation buffers. This is only done if `ecb-compilation-update-menu-p' is not nil; see `ecb-compilation-buffer-list-changed-p'. For more information about compilation buffers see `ecb-compilation-buffer-p'. (defalias 'ecb-compilation-update-menu #[nil "\205\303\304 \303\305\306\217*\207" [ecb-compilation-update-menu-p buffers submenu nil ecb-compilation-get-buffers (byte-code "\306 \306\211\203$@\307\f\310\n@\311\312\n@E\313\314$C\"A\211\204\n*\315 C\316\f\317$\210\314\207" [ecb-compilation-update-menu-p buffers buffer #1=#:--dolist-temp--47317 submenu ecb-menu-name nil append vector funcall 'switch-to-buffer-other-window :active t easy-menu-change "Compilation Buffers" "Navigate"] 8) ((error))] 3 (#$ . 8697)]) (provide 'ecb-compilation)