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-speedbar.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-speedbar.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require speedbar ecb-util] 2) #@353 These functions of speedbar are always adviced if ECB is active. Each element of the list is a cons-cell where the car is the function-symbol and the cdr the advice-class (before, around or after). If a function should be adviced with more than one class (e.g. with a before and an after-advice) then for every class a cons must be added to this list. (defconst ecb-speedbar-adviced-functions '((speedbar-click . around) (speedbar-frame-mode . around) (speedbar-get-focus . around) (dframe-mouse-set-point . around)) (#$ . 671)) (byte-code "\300\301\302\303\304$\210\300\305\306\303\304$\210\300\307\310\303\304$\210\300\311\312\303\304$\207" [ad-add-advice speedbar-click (ecb nil t (advice lambda nil "Makes the function compatible with ECB. If ECB is active and the window of\n`ecb-speedbar-buffer-name' is visible (means a layouts uses the\nspeedbar-integration) and the clicked node in speedbar is a file then the\nECB-edit-window is selected at the end. So always the edit-window is selected\nafter clicking onto a filename in the speedbar." (let ((item (and (fboundp 'speedbar-line-file) (speedbar-line-file)))) ad-do-it (if (and ecb-minor-mode (equal (selected-frame) ecb-frame) (window-live-p (get-buffer-window ecb-speedbar-buffer-name)) (and item (file-exists-p item) (not (file-directory-p item)))) (ecb-select-edit-window))))) around nil speedbar-frame-mode (ecb nil t (advice lambda nil "During running speedbar within ECB this command is disabled!" (if ecb-minor-mode (message "This command is disabled during running speedbar within ECB!") ad-do-it))) speedbar-get-focus (ecb nil t (advice lambda nil "During running speedbar within ECB this function behaves like follows:\nChange window focus to or from the ECB-speedbar-window. If the selected window\nis not speedbar-window, then the speedbar-window is selected. If the\nspeedbar-window is active, then select the edit-window." (if ecb-minor-mode (if (equal (current-buffer) (get-buffer ecb-speedbar-buffer-name)) (ecb-select-edit-window) (ecb-speedbar-select-speedbar-window)) ad-do-it))) dframe-mouse-set-point (ecb nil t (advice lambda nil "Fixes a bug in the original implementation: if clicked onto an image then\nthe point was not set by `mouse-set-point'." (if (and (fboundp 'event-over-glyph-p) (event-over-glyph-p e)) (let ((ext (event-glyph-extent e))) (if (extent-end-position ext) (progn (mouse-set-point e) (goto-char (1- (extent-end-position ext)))) (mouse-set-point e))) (mouse-set-point e))))] 5) #@34 Name of the ECB speedbar buffer. (defconst ecb-speedbar-buffer-name " SPEEDBAR" (#$ . 3159)) (defalias 'ecb-speedbar-select-speedbar-window #[nil "\300\301\302\217\207" [#1=#:G47338 (byte-code "\301\302!!\205 \303\302!!\207" [ecb-speedbar-buffer-name window-live-p get-buffer-window select-window] 3) ((error))] 3]) #@37 Set the speedbar buffer within ECB. (defalias 'ecb-speedbar-set-buffer #[nil "\302 \210\303\304 \305!\"\210 \205\306\307!\310L\207" [ecb-speedbar-buffer-name ecb-running-emacs-21 ecb-speedbar-activate set-window-buffer selected-window get-buffer-create make-local-variable automatic-hscrolling nil] 4 (#$ . 3484)]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list ecb-speedbar-verbosity-level-old ecb-speedbar-select-frame-method-old boundp nil] 2) #@251 Make sure the speedbar is running. WARNING: This could be dependent on the current speedbar implementation but normally it should work with recent speedbar versions >= 0.14beta1. But be aware: If the speedbar impl changes in future this could break. (defalias 'ecb-speedbar-activate #[nil "\306!\210\307 \210 \204 \n\310\311!\204!\212\312\f!\211q\210\313 \210)\314 \210\315 \210\316\317!\210  \204:\320\321\322\323\"\210\324\211\207" [ecb-speedbar-adviced-functions ecb-speedbar-select-frame-method-old speedbar-select-frame-method speedbar-buffer ecb-speedbar-buffer-name ecb-frame ecb-enable-advices speedbar-disable-update attached buffer-live-p get-buffer-create speedbar-mode speedbar-reconfigure-keymaps speedbar-update-contents speedbar-set-timer 1 0 add-hook ecb-current-buffer-sync-hook ecb-speedbar-current-buffer-sync nil speedbar-frame dframe-attached-frame ecb-speedbar-verbosity-level-old speedbar-verbosity-level speedbar-last-selected-file] 4 (#$ . 3990)]) #@51 Reset things as before activating speedbar by ECB (defalias 'ecb-speedbar-deactivate #[nil "\306!\210\307\307\310 \210\203\307 \203 \307\311\312\313\"\210\2056\314!\2056\315!\210\307\211\207" [ecb-speedbar-adviced-functions speedbar-frame dframe-attached-frame ecb-speedbar-select-frame-method-old speedbar-select-frame-method ecb-speedbar-verbosity-level-old ecb-disable-advices nil speedbar-enable-update remove-hook ecb-current-buffer-sync-hook ecb-speedbar-current-buffer-sync buffer-live-p kill-buffer speedbar-verbosity-level speedbar-buffer] 3 (#$ . 4991)]) #@73 Return not nil if speedbar is active and integrated in the `ecb-frame'. (defalias 'ecb-speedbar-active-p #[nil "\302!\205\f\303\302! \"\207" [ecb-speedbar-buffer-name ecb-frame get-buffer get-buffer-window] 3 (#$ . 5586)]) #@36 Encapsulate updating the speedbar. (defalias 'ecb-speedbar-update-contents #[nil "\300 \207" [speedbar-update-contents] 1 (#$ . 5818)]) #@67 Update the speedbar so that it's synced up with the current file. (defalias 'ecb-speedbar-current-buffer-sync #[nil "\306\307!\205\307J;\205\310\307J!\311!\205\312!\n\205]\313 \232\205] \205]\314 !\205] \f\232?\205]\212q\210\315 !)\315 !\211\230?\205\\\205\\\316!\205\\\317 **\207" [visible-buffer visible-window ecb-minor-mode ecb-frame ecb-edit-window default-directory boundp ecb-speedbar-buffer-name get-buffer bufferp get-buffer-window selected-frame window-live-p ecb-fix-filename buffer-live-p ecb-speedbar-update-contents ecb-default-directory speedbar-default-directory speedbar-buffer] 4 (#$ . 5960) nil]) #@76 Return not nil if TOKEN is a semantic-token generated from a speedbar tag. (defalias 'ecb-speedbar-sb-token-p #[(token) "\303\304 G\nZ8\"A*\207" [token key semantic-tfe-properties ecb-speedbar-token assoc] 4 (#$ . 6612)]) (byte-code "\300\301!\210\300\302!\207" [require tree-buffer ecb-face] 2) #@491 Add all tags of TAG-LIST with side-effects as children to NODE. TAG-LIST is a list generated by `ecb-get-tags-for-non-semantic-files'. TAG-LIST is of the form: ( ("name" . marker-or-number) <-- one tag at this level ("name" ("name" . mon) ("name" . mon) ) <-- one group of tags ("name" mon ("name" . mon) ) <-- group w/ a pos. and tags Groups can contain tags which are groups again...therefore this function is called recursive for the elements of a group. Return NODE. (defalias 'ecb-create-non-semantic-tree #[(node tag-list) "\306\211\n\306\211\203\311\f@\211\203\302\307!\203I@\310@!\306\211\211\311\312A\"\257\313\314\315#\210\316\317\320@G\321 D@$\210@\320\315%\210\202\302\322!\203\220@\310@!\306\211\211\311\312A@\"\257\313\314\315#\210\323\316\317\320@G\321 D@$\210@\320\306%\211AA\"\210\324 \235\"\210\202\302\325!\203\276\323\316\317\320@G\321 D@$\210@\326\306\211%\211A\"\210\324 \235\"\210\202\302\327\330!\210\fA\211\204\f**\207" [new-token new-node tag-list tag #1=#:--dolist-temp--47339 ecb-method-non-semantic-face nil speedbar-generic-list-tag-p intern make-vector 2 semantic-token-put ecb-speedbar-token t tree-node-new set-text-properties 0 face speedbar-generic-list-positioned-group-p ecb-create-non-semantic-tree tree-node-set-expanded speedbar-generic-list-group-p 1 ecb-error "ecb-create-non-semantic-tree: malformed tag-list!" node major-mode ecb-non-semantic-methods-initial-expand] 9 (#$ . 6920)]) #@134 Get a tag-list for current source-file. This is done via the `speedbar-fetch-dynamic-tags' mechanism which supports imenu and etags. (defalias 'ecb-get-tags-for-non-semantic-files #[nil "\306\307!\210 \235?\205V\310\n\"\204\202\310\n\"A\311BC\312\313p!!)\211A @@@\230\203: A\314\315\215\203T\203T@ !A\211\204E +\207" [major-mode ecb-non-semantic-exclude-modes ecb-non-semantic-parsing-function speedbar-dynamic-tags-function-list lst tag-list require imenu assoc identity speedbar-fetch-dynamic-tags buffer-file-name --cl-block-nil-- (byte-code "\303\211\203#\n@\304 !\204\305 !\203\306\307\303\"\210\nA\211\204\303*\310\207" [tag-list tag #1=#:--dolist-temp--47340 nil speedbar-generic-list-positioned-group-p speedbar-generic-list-group-p throw --cl-block-nil-- t] 4) speedbar-tag-hierarchy-method methods imenu--rescan-item] 4 (#$ . 8434)]) (provide 'ecb-speedbar)