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-examples.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-examples.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\303\304!\210\303\305!\210\301B\306\302B\307\302!\204 \310\310\207" [current-load-list ecb-examples-bufferinfo-buffer-name ecb-examples-bufferinfo-last-file require ecb-util ecb-layout " *ECB buffer info*" boundp nil] 2)
#@63 Insert in buffer BUFFER some file-information about FILENAME.
(defalias 'ecb-examples-print-file-attributes #[(buffer filename) "\306!\203U \212q\210\307\216\310\311 \210\312\313\n\"c\210\314\n!\312\315 @\204& \316\202; @\317\232\2031 \320\202; @;\205; \321 @P\" \312\322\323 8\" \312\324\325 8\" \f
\261.\207\326\327!\207" [buffer buffer-read-only filename attributes type size buffer-live-p ((byte-code "\301\301\207" [buffer-read-only t] 1)) nil erase-buffer format "Bufferinfo for %s:\n\n" file-attributes "Type: %s\n" "File" t "Directory" "Link to " "Size: %d\n" 7 "Modes: %s\n" 8 ecb-error "Try to set a not existing buffer." modes] 4 (#$ . 839)])
#@75 Insert in buffer BUFFER a small message for buffer with name BUFFER-NAME.
(defalias 'ecb-examples-print-non-filebuffer #[(buffer buffer-name) "\303!\203 \212q\210\304\216\305\306 \210\307\310\n\"c\210\311c\210\312c*\207\313\314!\207" [buffer buffer-read-only buffer-name buffer-live-p ((byte-code "\301\301\207" [buffer-read-only t] 1)) nil erase-buffer format "Bufferinfo for buffer %s\n\n" "This is a not a filebuffer, so there are no\n" "informations available." ecb-error "Try to set a not existing buffer."] 3 (#$ . 1511)])
#@209 Synchronizes the buffer-info buffer with current source if changed.
Can be called interactively but normally this should not be necessary because
it will be called autom. with `ecb-current-buffer-sync-hook'.
(defalias 'ecb-examples-bufferinfo-sync #[nil "\306\307!\205 \307J;\205 \310\307J!\311!\205 \312!\n\205e \313 \232\205e \205e \314 !\205e \f\232?\205e \315p!\211 \203[ \316
!\203[ \317
!\317!\230?\205d
\320
\"\202d \321\322\323p!\")*\207" [visible-buffer visible-window ecb-minor-mode ecb-frame ecb-edit-window filename boundp ecb-examples-bufferinfo-buffer-name get-buffer bufferp get-buffer-window selected-frame window-live-p buffer-file-name file-readable-p ecb-fix-filename ecb-examples-print-file-attributes nil ecb-examples-print-non-filebuffer buffer-name ecb-examples-bufferinfo-last-file] 5 (#$ . 2052) nil])
#@111 Set the buffer in the current window to the bufferinfo-buffer and make this
window dedicated for this buffer.
(defalias 'ecb-examples-set-bufferinfo-buffer #[nil "\302\303\304B\"\210\305\216\306\307 \310\"\210\311\312!!\210\313\211)\207" [ecb-examples-bufferinfo-buffer-name buffer-read-only add-to-list ecb-buffer-setfunction-registration ecb-examples-set-bufferinfo-buffer ((byte-code "\300\301 \302\"\207" [set-window-dedicated-p selected-window t] 3)) set-window-dedicated-p selected-window nil switch-to-buffer get-buffer-create t] 4 (#$ . 2905)])
(byte-code "\301B\303\302B\304\302!\204 \305\305\207" [current-load-list ecb-examples-action-buffer-name ecb-examples-action-buffer-keymap " *ECB action buffer*" boundp nil] 2)
#@83 Insert TEXT at point and make it highlight-able for mouse-movement over the
text.
(defalias 'ecb-examples-insert-text-in-action-buffer #[(text) "` c\210\302\211 G\\\303\304$)\207" [p text put-text-property mouse-face highlight] 5 (#$ . 3651)])
#@240 Return the action-buffer with name `ecb-examples-action-buffer-name' If
the buffer does not exist it will be created. The buffer is read only,
contains two buttons [prior] and [next] and mouse-2 calls
`ecb-examples-action-buffer-clicked'.
(defalias 'ecb-examples-action-buffer-create #[nil "\212\305!\203
\305!\202h \306\307!q\210\310\302!\210\311 \312\n \203% \313\202& \314\315#\210\312\n\316 #\210\312\n\317 #\210\312\n\320 #\210\321\n!\210\322p!\203b \212pq\210\323\216\324\325 \210\326\327!\210\330c\210\326\331!\210\330c\210*\202f \332\333!\210p))\207" [ecb-examples-action-buffer-name nop ecb-examples-action-buffer-keymap ecb-running-xemacs buffer-read-only get-buffer #[nil "\300\207" [nil] 1 nil nil] get-buffer-create make-local-variable make-sparse-keymap define-key (button2) [down-mouse-2] ecb-examples-action-buffer-clicked [mouse-2] [double-mouse-2] [triple-mouse-2] use-local-map buffer-live-p ((byte-code "\301\301\207" [buffer-read-only t] 1)) nil erase-buffer ecb-examples-insert-text-in-action-buffer "[prior]" "\n" "[next]" ecb-error "Try to set a not existing buffer."] 4 (#$ . 3904)])
#@227 Perform the right action for the mouse-click.
If the user clicks onto [prior] the buffer in the edit-window is scrolled up,
if clicks onto [next] the buffer in the edit-window is scrolled down.
Otherwise nothing will be done.
(defalias 'ecb-examples-action-buffer-clicked #[(e) "\302!\210\303 \304 {\305\306 \"\203 \307 \210\310\311!\202+ \305\312 \"\203* \307 \210\310\313!\202+ \314)\207" [e line mouse-set-point ecb-line-beginning-pos ecb-line-end-pos string-match "prior" ecb-select-edit-window call-interactively scroll-down "next" scroll-up nil] 3 (#$ . 5028) "e"])
#@107 Set the buffer in the current window to the action-buffer and make this
window dedicated for this buffer.
(defalias 'ecb-examples-set-action-buffer #[nil "\301\302 !\303\304\305B\"\210\306\216\307\310 \311\"\210\312\301\302 !!*\207" [buf-name buffer-name ecb-examples-action-buffer-create add-to-list ecb-buffer-setfunction-registration ecb-examples-set-action-buffer ((byte-code "\300\301 \302\"\207" [set-window-dedicated-p selected-window t] 3)) set-window-dedicated-p selected-window nil switch-to-buffer] 4 (#$ . 5610)])
(ecb-layout-type-p 'top t)
#@1870 This function creates the following layout:
-------------------------------------------------------
|Bufferinfo for : |[prior] |
|Type: file |[next] |
|Size: 23456 | |
|Modes: rw-rw-rw- | |
|-----------------------------------------------------|
| |
| |
| |
| |
| Edit |
| |
| |
| |
| |
-------------------------------------------------------
| |
| Compilation |
| |
-------------------------------------------------------
If you have not set a compilation-window in `ecb-compile-window-height' then
the layout contains no durable compilation window and the other windows get a
little more place.
The top-left window always displays informations about the current buffer in
the selected edit-window. This window demonstrates how autom. synchronizing
a special window/buffer of a layout with current edit-window.
The top-right window offers two buttons which can be used with the middle
mouse-button to scroll the edit-window. This is not very senseful but it
demonstrates how to drive the edit-window with actions performed in a special
window/buffer of a layout.
(defalias 'ecb-layout-function-example-layout1 #[(&optional create-code-fcn) "\203 \306\232\204 \307\n!\310\232\203 \311[\312\211#\210\313 \311\f\312\"\210
\2038 \307\n!\314\232\2048
\210\315\313 !\210\202G \316 \210\317\320!\210\321 \210\315\313 !\210\203c \322\232\203c \307\n!\310\232\204c \311[\312\211#\210\313 \323 \211\207" [ecb-compile-window-height ecb-compile-window-width ecb-layout-name ecb-compile-window ecb-windows-height create-code-fcn frame ecb-get-layout-type top ecb-split-ver t next-window left-right select-window ecb-examples-set-bufferinfo-buffer ecb-split-hor 0.75 ecb-examples-set-action-buffer edit-window selected-window ecb-edit-window] 4 (#$ . 6173)])
(byte-code "\304\305\306\"\210\304\307\310\"\210\311\312\313\"\210\301B\314\301!\204 \315\302B\314\302!\204' \315\303B\314\303!\2043 \315\315\207" [current-load-list ecb-examples-preact-layout ecb-examples-preact-windows-height ecb-examples-preact-compile-window-height defalias ecb-delete-other-windows-in-editwindow-example-layout1 ecb-delete-other-windows-ecb-windows-top ecb-delete-window-in-editwindow-example-layout1 ecb-delete-window-ecb-windows-top ecb-available-layouts-add "example-layout1" top boundp nil] 3)
(defalias 'ecb-examples-preactivation-state #[(action) "\306\232\203
\211\207\307\232\205 \n\f\211\207" [action ecb-layout-name ecb-examples-preact-layout ecb-windows-height ecb-examples-preact-windows-height ecb-compile-window-height save restore ecb-examples-preact-compile-window-height] 2])
#@266 Activate the new layout "example-layout1".
Add `ecb-examples-bufferinfo-sync' to `ecb-current-buffer-sync-hook', set
`ecb-compile-window-height' to 5 and `ecb-windows-height' to 6. The
preactivation-state is saved and will be restored by
`ecb-examples-deactivate'.
(defalias 'ecb-examples-activate #[nil "\305\306!\204\n \307\310!\210\204 \307\311!\210\312 \232\204 \307\313!\210\n\314\230\203' \307\315!\210\316\317\320\"\210\321\322!\210\323\324\325\314!\207" [ecb-minor-mode ecb-frame ecb-layout-name ecb-windows-height ecb-compile-window-height featurep ecb error "ECB must be loaded!" "ECB must be activated!" selected-frame "The ECB-frame must be selected!" "example-layout1" "The examples-layout1 is already active!" add-hook ecb-current-buffer-sync-hook ecb-examples-bufferinfo-sync ecb-examples-preactivation-state save 6 5 ecb-layout-switch] 3 (#$ . 9587) nil])
#@164 Deactivate the new layout "example-layout1".
Remove `ecb-examples-bufferinfo-sync' from `ecb-current-buffer-sync-hook' and
restore the state as before activation.
(defalias 'ecb-examples-deactivate #[nil "\303\304!\204\n \305\306!\210\204 \305\307!\210\310 \232\204 \305\311!\210\n\312\230\204' \305\313!\210\314\315\316\"\210\317\320!\210\321\n!\207" [ecb-minor-mode ecb-frame ecb-layout-name featurep ecb error "ECB must be loaded!" "ECB must be activated!" selected-frame "The ECB-frame must be selected!" "example-layout1" "The example-layout1 is not active!" remove-hook ecb-current-buffer-sync-hook ecb-examples-bufferinfo-sync ecb-examples-preactivation-state restore ecb-layout-switch] 3 (#$ . 10472) nil])
(provide 'ecb-examples)