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-navigate.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-navigate.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306$\207" [require eieio eieio-defclass ecb-dlist-node nil ((previous :initform nil) (next :initform nil) (data :initarg :data :initform nil)) ("A node in a double linked list.")] 5) (defalias 'ecb-dlist-node-new #[(data) "\301\302\303#\207" [data ecb-dlist-node "node" :data] 4]) (eieio-defmethod 'ecb-get-data '(((node ecb-dlist-node)) #[(node) "\301\302\"\207" [node eieio-oref data] 3])) (eieio-defmethod 'ecb-get-next '(((node ecb-dlist-node)) #[(node) "\301\302\"\207" [node eieio-oref next] 3])) (eieio-defmethod 'ecb-get-previous '(((node ecb-dlist-node)) #[(node) "\301\302\"\207" [node eieio-oref previous] 3])) (eieio-defmethod 'ecb-set-data '(((node ecb-dlist-node) data) #[(node data) "\302\301 #\207" [node data eieio-oset] 4])) (eieio-defmethod 'ecb-set-next '(((node ecb-dlist-node) next) #[(node next) "\303!\211\203\304 \305\306#\210\304\302 #\210 \205\"\307 \306\"\210\304 \305#)\207" [node old-next next ecb-get-next eieio-oset previous nil ecb-set-previous] 5])) (eieio-defmethod 'ecb-set-previous '(((node ecb-dlist-node) previous) #[(node previous) "\303!\211\203\304 \305\306#\210\304\302 #\210 \205\"\307 \306\"\210\304 \305#)\207" [node old-previous previous ecb-get-previous eieio-oset next nil ecb-set-next] 5])) (eieio-defclass 'ecb-nav-history-item nil '((pos :initarg :pos :initform 0) (window-start :initarg :window-start :initform 0)) nil) (eieio-defmethod 'ecb-nav-set-pos '(((item ecb-nav-history-item) pos) #[(item pos) "\302\301 #\207" [item pos eieio-oset] 4])) (eieio-defmethod 'ecb-nav-set-window-start '(((item ecb-nav-history-item) point) #[(item point) "\302\303 #\207" [item point eieio-oset window-start] 4])) (eieio-defmethod 'ecb-nav-get-pos '(((item ecb-nav-history-item)) #[(item) "\301\302\"\207" [item eieio-oref pos] 3])) (eieio-defmethod 'ecb-nav-get-window-start '(((item ecb-nav-history-item)) #[(item) "\301\302\"\207" [item eieio-oref window-start] 3])) (eieio-defmethod 'ecb-nav-to-string '(((item ecb-nav-history-item)) #[(item) "\301\302!!\303\301\304!!Q\207" [item int-to-string ecb-nav-get-pos ":" ecb-nav-get-window-start] 5])) (eieio-defmethod 'ecb-nav-save '(((item ecb-nav-history-item)) #[(item) "\300\207" [t] 1])) (eieio-defmethod 'ecb-nav-is-valid '(((item ecb-nav-history-item)) #[(item) "\300\207" [t] 1])) (eieio-defclass 'ecb-nav-token-history-item '(ecb-nav-history-item) '((token-buffer :initarg :token-buffer :initform nil) (token-start :initarg :token-start :initform nil) (token-end :initarg :token-end :initform nil) (token-name :initarg :token-name :initform nil) (narrow :initarg :narrow :initform nil)) nil) (defalias 'ecb-nav-token-history-item-new #[(token-name token-buffer token-start token-end &optional narrow) "\305\306 \307\n\310\311\312\f&\207" [token-name token-buffer token-start token-end narrow ecb-nav-token-history-item :token-buffer :token-start :token-end :token-name :narrow] 12]) (eieio-defmethod 'ecb-nav-get-token-buffer '(((item ecb-nav-token-history-item)) #[(item) "\301\302\"\207" [item eieio-oref token-buffer] 3])) (eieio-defmethod 'ecb-nav-get-token-start '(((item ecb-nav-token-history-item)) #[(item) "\301\302\"\207" [item eieio-oref token-start] 3])) (eieio-defmethod 'ecb-nav-get-token-end '(((item ecb-nav-token-history-item)) #[(item) "\301\302\"\207" [item eieio-oref token-end] 3])) (eieio-defmethod 'ecb-nav-get-token-name '(((item ecb-nav-token-history-item)) #[(item) "\301\302\"\207" [item eieio-oref token-name] 3])) (eieio-defmethod 'ecb-nav-get-narrow '(((item ecb-nav-token-history-item)) #[(item) "\301\302\"\207" [item eieio-oref narrow] 3])) (eieio-defmethod 'ecb-nav-goto '(((item ecb-nav-token-history-item)) #[(item) "\306!\307!\310!\311\312 \"\210\313\216\314!\210~\210) b\210\315!\203+\316 }\210\317 \320!\\b\210\321\312 \322!\\\"+\207" [item tok-end tok-start tok-buffer ecb-basic-adviced-functions ecb-buffer-narrowed-by-ecb ecb-nav-get-token-buffer ecb-nav-get-token-start ecb-nav-get-token-end set-window-buffer selected-window ((ecb-enable-advices ecb-basic-adviced-functions)) ecb-disable-advices ecb-nav-get-narrow ecb-line-beginning-pos t ecb-nav-get-pos set-window-start ecb-nav-get-window-start] 5])) (eieio-defmethod 'ecb-nav-save '(((item ecb-nav-token-history-item)) #[(item) "\302!\211\205\303 !\205\304` Z\"\210\305\306 Z\"\210\307)\207" [item tok-start ecb-nav-get-token-start marker-buffer ecb-nav-set-pos ecb-nav-set-window-start window-start t] 5 "Return only nil if token-start of ITEM points into a dead buffer. In this case no position saving is done."])) (eieio-defmethod 'ecb-nav-to-string '(((item ecb-nav-token-history-item)) #[(item) "\301!\302\303 Q\207" [item ecb-nav-get-token-name ":" call-next-method] 3])) (eieio-defmethod 'ecb-nav-is-valid '(((item ecb-nav-token-history-item)) #[(item) "\304!\305!\306!\211\205+\307!\205+ \205+\307 !\205+ \205+\310 !\205+\311+\207" [item tok-end tok-buf tok-start ecb-nav-get-token-start ecb-nav-get-token-buffer ecb-nav-get-token-end marker-buffer buffer-live-p t] 5])) (eieio-defclass 'ecb-nav-file-history-item '(ecb-nav-history-item) '((file :initarg :file :initform "")) nil) (defalias 'ecb-nav-file-history-item-new #[nil "\301\302 \303\302 #\304`\"\210\305\306\307p!!\"\210)\207" [item ecb-nav-file-history-item buffer-file-name :file ecb-nav-set-pos ecb-nav-set-window-start window-start get-buffer-window] 5]) (eieio-defmethod 'ecb-nav-get-file '(((item ecb-nav-file-history-item)) #[(item) "\301\302\"\207" [item eieio-oref file] 3])) (eieio-defmethod 'ecb-nav-set-file '(((item ecb-nav-file-history-item) file) #[(item file) "\302\301 #\207" [item file eieio-oset] 4])) (eieio-defmethod 'ecb-nav-save '(((item ecb-nav-file-history-item)) #[(item) "\301`\"\210\302\303 \"\210\304\305 \"\210\306\207" [item ecb-nav-set-pos ecb-nav-set-window-start window-start ecb-nav-set-file buffer-file-name t] 3])) (eieio-defmethod 'ecb-nav-goto '(((item ecb-nav-file-history-item)) #[(item) "\301\302!!\210~\210\303!b\210\304\305 \306!\"\207" [item find-file ecb-nav-get-file ecb-nav-get-pos set-window-start selected-window ecb-nav-get-window-start] 4])) (eieio-defmethod 'ecb-nav-to-string '(((item ecb-nav-file-history-item)) #[(item) "\301!\302\303 Q\207" [item ecb-nav-get-file ":" call-next-method] 3])) (eieio-defmethod 'ecb-nav-is-valid '(((item ecb-nav-file-history-item)) #[(item) "\300\207" [t] 1])) (byte-code "\301B\303\301!\204\f\304\305\306\307!!\302B\303\302!\204\304 \304\207" [current-load-list ecb-nav-first-node ecb-nav-current-node boundp nil ecb-dlist-node-new ecb-nav-history-item "First item"] 3) (defalias 'ecb-nav-initialize #[nil "\302\303\304!!\211\211\207" [ecb-nav-first-node ecb-nav-current-node ecb-dlist-node-new ecb-nav-history-item "First item"] 4]) (defalias 'ecb-nav-jump-to-token #[(file token &optional narrow) "\303 \210\304!\210\305\306 \n\"!\207" [file token narrow ecb-nav-save-current find-file ecb-nav-add-item ecb-nav-token-history-item] 4]) (defalias 'ecb-nav-jump-to-file #[(file) "\301 \210\302!\210\303\304!!\207" [file ecb-nav-save-current find-file ecb-nav-add-item ecb-nav-file-history-item] 3]) (defalias 'ecb-nav-add-item #[(item) "\303!\304 \305\n!\"\210\304\n \"\210 \211)\207" [item node ecb-nav-current-node ecb-dlist-node-new ecb-set-next ecb-get-next] 4]) (defalias 'ecb-nav-remove-current-node #[nil "\301!\207" [ecb-nav-current-node ecb-nav-remove-node] 2]) #@83 Remove NODE and set `ecb-nav-first-node' and `ecb-nav-current-node' if necessary. (defalias 'ecb-nav-remove-node #[(node) "\305!\306!\211\203\307\n\306!\"\210 \203\310 \305!\"\210=\203.\n\206- \206-\f\f=\205@ \203> \211\202@\311 *\207" [node next prev ecb-nav-current-node ecb-nav-first-node ecb-get-previous ecb-get-next ecb-set-next ecb-set-previous ecb-nav-initialize] 5 (#$ . 8070)]) (defalias 'ecb-nav-remove-invalid-nodes #[nil "\303\211\205\304\n!\305\306\n!!\204\307\n!\210 \211\204\303*\207" [ecb-nav-first-node next-node node nil ecb-get-next ecb-nav-is-valid ecb-get-data ecb-nav-remove-node] 4]) (defalias 'ecb-nav-save-current #[nil "\301\302!!?\205\303 \210\202\207" [ecb-nav-current-node ecb-nav-save ecb-get-data ecb-nav-remove-current-node] 3]) #@44 Go forward in the navigation history list. (defalias 'ecb-nav-goto-next #[nil "\301\302!!\207" [ecb-nav-current-node ecb-nav-goto--internal ecb-get-next] 3 (#$ . 8875) nil]) #@41 Go back in the navigation history list. (defalias 'ecb-nav-goto-previous #[nil "\301\302!!\207" [ecb-nav-current-node ecb-nav-goto--internal ecb-get-previous] 3 (#$ . 9056) nil]) (defalias 'ecb-nav-dump-history #[nil "\301 \210\302!\207" [ecb-nav-first-node ecb-nav-remove-invalid-nodes ecb-nav-dump-history--internal] 2 nil nil]) (defalias 'ecb-nav-dump-history--internal #[(node) "\205\301\302!!\303\261\210\304\305!!\207" [node ecb-nav-to-string ecb-get-data "\n" ecb-nav-dump-history--internal ecb-get-next] 3]) (defalias 'ecb-nav-goto--internal #[(node) "\203\n =\203\303\304!\207\305 \210\306 \210\307\310!!\207" [node ecb-nav-first-node ecb-nav-current-node message "No more valid history items!" ecb-nav-remove-invalid-nodes ecb-nav-save-current ecb-nav-goto ecb-get-data] 3]) (provide 'ecb-navigate)