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:46 2003 ;;; from file d:/emacs/ecb/ecb-mode-line.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-mode-line.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ecb-util) #@1376 *Prefixes shown in the modelines of the special ECB-buffers. The displayed prefix then looks like: "[ [: ]]", means if a prefix is defined for an special ECB-buffer then a single space is prepended and if there is additional text to display (e.g. the current directory in the sources buffer, see `ecb-mode-line-data') then also the string ": " is appended. Everey element of this list is a cons-cell where the car is used to define a buffer-name and the cdr to define the modeline-prefix for that buffer. The buffer-name can either be defined as plain string or with a symbol which contains the buffer-name as value. The latter one is recommended to define a prefix for one of the builtin ECB-tree-buffers because then simply the related option-symbol can be used. To add a prefix for the builtin directories tree-buffer just set the symbol `ecb-directories-buffer-name' as car. The cdr is the prefix for a buffer and can either be a string which used as it is or a function-symbol which is called with three argument (the buffer-name, the current selected directory and the current selected source-file) and must return either nil (for no prefix) or a string which is then used a prefix. If a special ECB-buffer should not have a prefix in its modeline then this buffer-name should either not being added to this option or added with "No prefix" (= nil as cdr). (custom-declare-variable 'ecb-mode-line-prefixes ''((ecb-directories-buffer-name) (ecb-sources-buffer-name) (ecb-methods-buffer-name) (ecb-history-buffer-name . "History")) '(#$ . -623) :group 'ecb-general :set #'(lambda (symbol value) (set symbol value) (if (and (boundp 'ecb-minor-mode) ecb-minor-mode) (ecb-mode-line-format))) :initialize 'custom-initialize-default :type '(repeat (cons :tag "Prefix-definition" (choice :tag "Buffer-name" :menu-tag "Buffer-name" (string :tag "Buffer-name as string") (symbol :tag "Symbol containing buffer-name")) (choice :tag "Prefix" :menu-tag "Prefix" (const :tag "No prefix" :value nil) (string :tag "Prefix-string") (function :tag "Compute prefix with"))))) #@684 *Display in the modeline of every special ECB-window the window-number. The left-top-most window in a frame has the window-number 0 and all other windows are numbered with increasing numbers in the sequence, functions like `other-window' or `next-window' would walk through the frame. This can be used to jump to windows by number with commands like: (defun my-switch-to-window-number (number) "Switch to the nth window" (interactive "P") (if (integerp number) (select-window (nth number (window-list))))) Currently this feature is only available for GNU Emacs 21.X, because neither GNU Emacs < 21 nor XEmacs can evaluate dynamically forms in the mode-line. (custom-declare-variable 'ecb-mode-line-display-window-number 't '(#$ . -2705) :group 'ecb-general :set #'(lambda (symbol value) (set symbol value) (if (and (boundp 'ecb-minor-mode) ecb-minor-mode) (ecb-mode-line-format))) :initialize 'custom-initialize-default :type 'boolean) #@1260 *Data shown in the modelines of the special ECB-buffers. Everey element of this list is a cons-cell where the car is used to define a buffer-name and the cdr to define the modeline-data for that buffer. For details about how to defining a buffer-name see `ecb-mode-line-prefixes' - its completely the same. The cdr is the data for ths modeline and can either be the symbol 'sel-dir or 'sel-source whereas the former one displays the current selected directory as modeline-data and the latter one the current selected source-file (without path). In addition to these two predefined values for every special ECB-buffer a function can be specified which gets three args (name of the buffer, current selected directory and current selected source-file) and must return a string which will be displayed in the modeline (or nil if no data should be displayed). If a special ECB-buffer should not display special data in its modeline then this buffer-name should either not being added to this option or added with "No data" (= nil as cdr). The whole modeline of the special ECB-buffer consists of the prefix of `ecb-mode-line-prefixes' and the data of `ecb-mode-line-data' - eventually prepended by the window-number, see `ecb-mode-line-display-window-number'. (custom-declare-variable 'ecb-mode-line-data ''((ecb-directories-buffer-name . sel-dir) (ecb-sources-buffer-name . sel-dir) (ecb-methods-buffer-name . sel-source) (ecb-history-buffer-name)) '(#$ . -3674) :group 'ecb-general :set #'(lambda (symbol value) (set symbol value) (if (and (boundp 'ecb-minor-mode) ecb-minor-mode) (ecb-mode-line-format))) :initialize 'custom-initialize-default :type '(repeat (cons :tag "Data-definition" (choice :tag "Buffer-name" :menu-tag "Buffer-name" (string :tag "Buffer-name as string") (symbol :tag "Symbol containing buffer-name")) (choice :tag "Modeline-data" :menu-tag "Modeline-data" (const :tag "No data" :value nil) (const :tag "Current selected directory" :value sel-dir) (const :tag "Current selected source" :value sel-source) (function :tag "Compute data with"))))) #@49 Update all of the modelines of each ecb buffer. (defalias 'ecb-mode-line-format #[nil "\212\300\301\302 \")\207" [mapc #[(buffer) "\306\307\"\211\204 \310\202# ;\203 \202#\311 !\205# \312\n!\f#\306\313\"\211\314\232\2035\202^\315\232\203F\f\205^\316\f!\202^\204O\310\202^\311!\205^\312\n!\f#\317\312\n! #,\207" [ecb-mode-line-prefixes prefix-elem buffer ecb-path-selected-directory ecb-path-selected-source prefix-str ecb-some #[(p) "@;\203@\302 !\230\2057A\207@9\2033\303@!\2033@J;\2033@J\302 !\230\2057A\207\304\305\"\207" [p buffer buffer-name boundp ecb-error "ecb-mode-line-format: Can not get prefix-elem: %s"] 3] nil functionp buffer-name #[(p) "@;\203@\302 !\230\2057A\207@9\2033\303@!\2033@J;\2033@J\302 !\230\2057A\207\304\305\"\207" [p buffer buffer-name boundp ecb-error "ecb-mode-line-format: Can not get data-elem: %s"] 3] sel-dir sel-source file-name-nondirectory ecb-mode-line-set ecb-mode-line-data data-elem data-str] 5] ecb-get-current-visible-ecb-buffers] 3 (#$ . 5749)]) #@365 Sets the mode line for a buffer. The mode line has the scheme: "[WIN-NR ][PREFIX[: ]][TEXT]". WIN-NR is the number of the window which displays BUFFER-NAME and is only displayed if the option `ecb-mode-line-display-window-number' is not nil and if NO-WIN-NR is nil. See this option for a description of the window-number. WIN-NR will be displayed as "W-". (defalias 'ecb-mode-line-set #[(buffer-name prefix &optional text no-win-nr) "\306 \"\205d\n;\203\307\n;\203\310\202\311Q\202&;\203%\307\202&\311\312 \203;\203;\204;\313\202<\311\f;\205`\314\fG \203W\203W\204W\315\202X\316\\\317\306!!#PD\")\207" [buffer-name ecb-frame prefix text shown-prefix ecb-running-emacs-21 get-buffer-window " " ": " "" ecb-mode-line-update-buffer (:eval (format " W-%d" (ecb-window-number))) ecb-mode-line-get-directory 4 0 window-width ecb-mode-line-display-window-number no-win-nr] 10 (#$ . 6816)]) #@262 Given the prefix-length for the mode-line (' ECB Sources: '), the directory to display, and the width of the window, compute what directory name to display. This should trim the beginning of the directory so that the mode-line does not stretch past the screen. (defalias 'ecb-mode-line-get-directory #[(prefix-length directory width) " W\203\305\306 \"\210 \nG\\V\2038\nG\307 \f\\Z\211\310\\\211\fY\203.\311\2027\n\fO\312\nP*\n\207" [width prefix-length directory offset len-dir ecb-error "Given prefix-length '%d' is longer than modeline, increase window width" nil 3 "" "..."] 4 (#$ . 7749)]) #@29 Update the given buffer.... (defalias 'ecb-mode-line-update-buffer #[(buffer-name new-mode-line-format) "\304!\203\212q\210 \203\305 \202\306 )\207\307\310\"\207" [buffer-name new-mode-line-format mode-line-format ecb-running-xemacs get-buffer redraw-modeline force-mode-line-update message "This buffer isn't available: %s"] 3 (#$ . 8366)]) (provide 'ecb-mode-line)