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-create-layout.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-create-layout.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require ecb-mode-line ecb-util custom-declare-group ecb-create-layout nil "Settings for creating new ECB-layouts." :group ecb-layout :prefix "ecb-create-layout-"] 8) #@72 *File where all layouts created by `ecb-create-new-layout' are stored. (custom-declare-variable 'ecb-create-layout-file '"~/.ecb-user-layouts.el" '(#$ . -854) :group 'ecb-create-layout :type 'file) #@44 *Frame width of the layout creation frame. (custom-declare-variable 'ecb-create-layout-frame-width '110 '(#$ . -1058) :group 'ecb-create-layout :type 'integer) #@45 *Frame height of the layout creation frame. (custom-declare-variable 'ecb-create-layout-frame-height '42 '(#$ . -1224) :group 'ecb-create-layout :type 'integer) (byte-code "\301B\306\302B\307\303B\310\304B\311\305B\312\313B\314\315B\316\315!\2042\317 \320B\316\320!\204?\317\321B\316\321!\204L\317\322B\316\322!\204Y\317\323B\316\323!\204f\317\324B\316\324!\204s\317\325B\316\325!\204\200\317\326B\316\326!\204\215\317\327B\316\327!\204\232\317\330B\316\330!\204\247\317\331B\316\331!\204\264\317\332B\316\332!\204\301\317\333B\316\333!\204\316\334\335B\316\335!\204\333\317\336B\316\336!\204\350\337\317\207" [current-load-list ecb-create-layout-buf-prefix ecb-create-layout-frame-name ecb-create-layout-all-buf-types ecb-create-layout-help-text-left-right ecb-create-layout-help-text-top " *ECB-LC-" "Creation of a new ECB-layout" ("directories" "history" "methods" "sources" "speedbar") "\n ECB layout creation mode\n ========================\n\n This is the help-screen of this mode. The window\n displaying this help text is called the edit-window\n which is neither selectable nor delete-able nor\n split-able in this mode.\n\n : Moving around in current\n window C-n, C-p: Go to next/previous window (beside\n the edit-window)\n\n C-s: Split current window. You will be asked:\n - If \"vertical\" or \"horizontal\" split\n - How to split: \"at-point\", \"half\" or\n \"other\" (i.e. you can specify any fraction\n between 0.1 and 0.9)\n - Which type (\"directories\", \"sources\",\n \"methods\", \"history\", \"speedbar\") the\n current window should be.\n C-u: Unsplit, ie. delete current window\n C-t: Give the current window a built-in type\n (\"directories\", \"sources\", \"methods\",\n \"history\", \"speedbar\") or any arbitrary user-\n defined type (\"other\"). See the Online-manual!\n\n C-c: Cancel layout creation. This does not save the\n layout. Deletes this frame.\n C-q: Save current defined layout and quit the layout\n creation. You will be asked for a layout-name.\n With TAB-completion you can get the names already\n in use. You have to choose a new name!\n Deletes this frame.\n\n There are NO other commands or keys available. ALL\n other keys are disabled in this mode!\n" " ECB layout creation mode\n ========================\n\n This is the help-screen of this mode. The window displaying this help text is called\n the edit-window which is neither selectable nor delete-able nor split-able in this mode.\n\n : Moving around in current window\n C-n, C-p: Go to next/previous window (beside the edit-window)\n\n C-s: Split current window. You will be asked:\n - If \"vertical\" or \"horizontal\" split\n - How to split: \"at-point\", \"half\" or \"other\" (i.e. you can specify any\n fraction between 0.1 and 0.9)\n - Which type (\"directories\", \"sources\", \"methods\", \"history\", \"speedbar\")\n the current window should be.\n C-u: Unsplit, ie. delete current window\n C-t: Give the current window a built-in type (\"directories\", \"sources\", \"methods\",\n \"history\", \"speedbar\") or any arbitrary user-defined type (\"other\").\n\n C-c: Cancel layout creation. This does not save the layout. Deletes this frame.\n C-q: Save current defined layout and quit the layout creation. You will be asked for a\n layout-name. With TAB-completion you can get the names already in use.\n You have to choose a new name! Deletes this frame.\n\n There are NO other commands or keys available. ALL other keys are disabled in this mode!\n" ecb-create-layout-file-header "\n\n;; Copyright (C) 2001 Jesper Nordenberg\n;; Copyright (C) 2001 Free Software Foundation, Inc.\n;; Copyright (C) 2001 Klaus Berndl \n\n;; Author: Klaus Berndl \n;; Maintainer: Klaus Berndl \n;; Keywords: java, class, browser\n\n;; This program is free software; you can redistribute it and/or modify it\n;; under the terms of the GNU General Public License as published by the Free\n;; Software Foundation; either version 2, or (at your option) any later\n;; version.\n\n;; This program is distributed in the hope that it will be useful, but WITHOUT\n;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or\n;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for\n;; more details.\n\n;; You should have received a copy of the GNU General Public License along\n;; with GNU Emacs; see the file COPYING. If not, write to the Free Software\n;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n\n;;; Commentary:\n\n;; This file contains all user-defined ECB-layouts created by the command\n;; `ecb-create-new-layout'.\n\n;; !!! DO NOT EDIT THIS FILE MANUALLY - IT IS GENERATED BY ECB !!!\n\n" ecb-create-layout-frame boundp nil ecb-create-layout-edit-window ecb-create-layout-old-global-map ecb-create-layout-old-minor-mode-map-alist ecb-create-layout-old-hscroll ecb-create-layout-old-debug-on-error ecb-create-layout-old-frame ecb-create-layout-old-vertical-div-map ecb-create-layout-old-modeline-map ecb-create-layout-old-after-frame-h ecb-create-layout-old-before-frame-h ecb-create-layout-generated-lisp ecb-create-layout-gen-counter 0 ecb-create-layout-buf-types ecb-create-layout-type left] 2) (defalias 'ecb-create-layout-initilize #[nil "\306!\307\307\307\307\307 \307\n\203 \307\f\307 \202&\307\307\307\310\211\207" [ecb-create-layout-all-buf-types ecb-create-layout-buf-types ecb-create-layout-frame ecb-create-layout-edit-window ecb-create-layout-old-global-map ecb-create-layout-old-minor-mode-map-alist ecb-copy-list nil 0 ecb-create-layout-old-hscroll ecb-create-layout-old-frame ecb-running-xemacs ecb-create-layout-old-vertical-div-map ecb-create-layout-old-modeline-map ecb-create-layout-old-after-frame-h ecb-create-layout-old-before-frame-h ecb-create-layout-generated-lisp ecb-create-layout-gen-counter] 2]) (ad-add-advice 'delete-frame '(ecb-create-layout nil t (advice lambda nil "Ensure calling `ecb-create-layout-cancel' during deleting the\nlayout-creation frame." (let ((frame (or (ad-get-arg 0) (selected-frame)))) (when (string= (ecb-frame-parameter frame 'name) ecb-create-layout-frame-name) (ecb-create-layout-cancel))))) 'before nil) #@66 Return not nil if current frame is the `ecb-create-layout-frame' (defalias 'ecb-create-layout-frame-ok #[nil "\205\301!\205\302 \232\207" [ecb-create-layout-frame frame-live-p selected-frame] 2 (#$ . 7715)]) #@51 Cancel layout-creation without saving the layout. (defalias 'ecb-create-layout-cancel #[(&rest ignore) "\300 \205\f\301t!\210\302\303!\207" [ecb-create-layout-frame-ok ecb-create-layout-clear-all message "ECB Layout Creation canceled - the layout is not saved!"] 2 (#$ . 7936) nil]) #@196 Resets all stuff to state before `ecb-create-new-layout' was called. If DELETE-FRAME is not nil then the new created frame will be deleted and the `ecb-create-layout-old-frame' will be selected. (defalias 'ecb-create-layout-clear-all #[(&optional delete-frame) "\306\307\310\311#\210\312\307!\210\313!\314\211\203+\n@\315\316\317 !\"\203$\320 !\210\nA\211\204*\321!\2036\322!\210\f\203<\f\203E\203U !\"#\202]$%&'()\203\315*\203|\323*!\203|\324*!\210\325*!\210\203\315\323!\203\315\326K\307K+,\327\216\330\326\331\326\332N\236A\333!\205\244K)\206\252,\"\210\330\307\331\307\332N\236A\333!\205\300K)\206\306+\"\210\307!\210+\314\211\207" [ecb-create-layout-frame b #1=#:--dolist-temp--47318 ecb-create-layout-old-global-map ecb-create-layout-old-minor-mode-map-alist minor-mode-map-alist ad-disable-advice delete-frame before ecb-create-layout ad-activate buffer-list nil string-match "^ \\*ECB-LC-" buffer-name kill-buffer keymapp use-global-map frame-live-p raise-frame select-frame quote ((byte-code "\302\303\"\210\302\304 \"\207" [ad-oRiGdEf-0 ad-oRiGdEf-1 ad-safe-fset quote delete-frame] 3)) ad-safe-fset origname ad-advice-info fboundp ecb-running-emacs-21 ecb-create-layout-old-hscroll automatic-hscrolling ecb-running-xemacs ecb-create-layout-old-vertical-div-map vertical-divider-map ecb-create-layout-old-modeline-map modeline-map ecb-create-layout-old-before-frame-h before-make-frame-hook ecb-create-layout-old-after-frame-h after-make-frame-functions ecb-create-layout-old-debug-on-error debug-on-error ecb-create-layout-old-frame ad-oRiGdEf-1 ad-oRiGdEf-0] 5 (#$ . 8227)]) #@59 Quit the ECB Layout creation and save the defined layout. (defalias 'ecb-create-layout-save-and-quit #[(&rest ignore) "\301 \205\302 \203t\303\216\304 *\207\305\306!\207" [delete-frame ecb-create-layout-frame-ok ecb-create-layout-ready-for-save-p ((byte-code "\301!\210\302\303!\207" [delete-frame ecb-create-layout-clear-all message "ECB Layout Creation finished."] 2)) ecb-create-layout-save-layout ecb-error "You must give every ECB-tree-window a type (use C-t)!"] 2 (#$ . 9891) nil]) #@68 Returns only not nil if all windows in current layout have a type. (defalias 'ecb-create-layout-ready-for-save-p #[nil "\304\212\305\306 \307\"\310\211\203'\n@\211\232\204 \311 !q\210\312 \nA\211\204+)\207" [save-p win #1=#:--dolist-temp--47319 ecb-create-layout-edit-window t ecb-window-list selected-frame 0 nil window-buffer ecb-create-layout-buffer-type] 4 (#$ . 10391)]) #@51 Insert LINE in current-buffer and adds a newline. (defalias 'ecb-create-layout-insert-line '(macro . #[(line) "\301\302D\303BB\207" [line progn insert ((insert "\n"))] 3 (#$ . 10785)])) (defalias 'ecb-create-layout-insert-file-header #[nil "\302\303\304!\"c\210 c\207" [ecb-create-layout-file ecb-create-layout-file-header format ";;; %s --- user defined ECB-layouts" file-name-nondirectory] 4]) #@51 Saves current layout in `ecb-create-layout-file'. (defalias 'ecb-create-layout-save-layout #[nil "\306 \210\237\307 \210\310\311\312\313!\313\"\314 !\204\315\n!\316\317\320!!\321\216rq\210\322 \210\323\315\n!!\203<\324\315\n!!\210\202?\325 \210db\210\326\327 \330 !#c\210\331c\210\313!\211\"\203p\"@!\326\332!\"c\210\331c\210\"A\211\"\204X*\333c\210\331c\210)rq\210~\210\334ed\f\313\335%\210,\336\315\n!!\210\337\340\n\")\207" [ecb-create-layout-generated-lisp layout-name ecb-create-layout-file #1=#:temp-buffer #2=#:temp-file ecb-create-layout-type ecb-create-layout-select-edit-window ecb-load-layouts "" ecb-choose-layout-name ecb-available-layouts-of-type nil ecb-available-layouts-member-p expand-file-name get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) erase-buffer file-readable-p insert-file-contents ecb-create-layout-insert-file-header format "(ecb-layout-define \"%s\" %s nil" symbol-name "\n" " %s" " )" write-region 0 load-file message "The new layout is saved in %s, loaded and available!" line #3=#:--dolist-temp--47320] 6 (#$ . 11189)]) (defalias 'ecb-create-layout-gen-lisp #[(lisp-statement) " B\211\207" [lisp-statement ecb-create-layout-generated-lisp] 2]) (defalias 'ecb-create-layout-split-ver #[(&optional fraction) "\206\302\303\304 `\"!\302\305 \306Z!\245\307 \310\"\210\311\307 \312BB!\210 )\207" [fraction factor float count-lines window-start window-height 2 ecb-split-ver t ecb-create-layout-gen-lisp (t)] 4]) (defalias 'ecb-create-layout-split-hor #[(&optional fraction) "\206\302`\303 Z!\302\304 \305Z!\245\306 \307\"\210\310\306 \311BB!\210\312 \210 )\207" [fraction factor float ecb-line-beginning-pos window-width 3 ecb-split-hor t ecb-create-layout-gen-lisp (t) beginning-of-line] 4]) (defalias 'ecb-create-layout-add-to-buf-types #[(type) ";\205 \235\205\303\302\"\210\304\n\305\"\211\207" [type ecb-create-layout-all-buf-types ecb-create-layout-buf-types add-to-list sort string-lessp] 3]) (defalias 'ecb-create-layout-remove-from-buf-type #[(type) ";\205\302\303 \"\304\"\211\207" [type ecb-create-layout-buf-types sort delete string-lessp] 4]) (defalias 'ecb-create-layout-buffer-type #[nil "\300e\301\"\207" [get-text-property ecb-create-layout-type] 3]) (defalias 'ecb-create-layout-buffer-factor #[nil "\300e\301\"\207" [get-text-property ecb-create-layout-factor] 3]) (defalias 'ecb-create-layout-set-buffer-type #[(type) "\302\303eeT\304 $)\207" [buffer-read-only type nil put-text-property ecb-create-layout-type] 5]) (defalias 'ecb-create-layout-set-buffer-factor #[(factor) "\302\303eeT\304 $)\207" [buffer-read-only factor nil put-text-property ecb-create-layout-factor] 5]) (defalias 'ecb-create-layout-gen-lisp-for-buffer-type #[(type) "\302\303\304\"!\305\306\307\310 DD C\311BBB!)\207" [type func-sym intern format "ecb-set-%s-buffer" ecb-create-layout-gen-lisp if fboundp quote ((ecb-set-default-ecb-buffer))] 5]) #@33 Give current ECB-buffer a type. (defalias 'ecb-create-layout-set-buffer-to-type #[(&optional type) "\303 \205=\304\206\f\305 !\210;\203\206\306\307 \310#\311\n!\210\312\313p!\314\nP\315\316$\210\317\n!\210t\203;\320\n!\210\321 \210\n)\207" [type ecb-create-layout-buf-types new-type ecb-create-layout-frame-ok ecb-create-layout-add-to-buf-types ecb-create-layout-buffer-type ecb-query-string "Type of current ECB-tree-buffer:" "Insert the buffer type" ecb-create-layout-remove-from-buf-type ecb-mode-line-set buffer-name "ECB " nil t ecb-create-layout-set-buffer-type ecb-create-layout-gen-lisp-for-buffer-type ecb-create-layout-next-window] 5 (#$ . 14205) nil]) (defalias 'ecb-create-layout-select-edit-window #[nil "\302\303 \232\204\304\305!\210T\202\306\307\310D\311BB!)\207" [counter ecb-create-layout-edit-window 0 selected-window other-window 1 ecb-create-layout-gen-lisp dotimes i ((other-window 1) (if (equal (selected-window) ecb-compile-window) (other-window 1)))] 4]) #@23 Split current window. (defalias 'ecb-create-layout-split #[nil "\306 \205u\307  \310\232\203\311\202\312\313\314\n\"\313\315\316\317#\211\320\230\203)\321\202B\f\322\230\2033\323\202B\324\325\f!!\203A\325\f!\202B\326\327\230\203O\330 !\202R\331 !#\332 $\333\216\334 \210\335\336 !\210\334 \210*\337#!\210\340\341!!\210\342 .\207" [old-buf-type ecb-create-layout-type split-choices split-type split-method fraction ecb-create-layout-frame-ok ecb-create-layout-buffer-type top ("horizontal" "vertical") ("vertical" "horizontal") ecb-query-string "Split type:" "Split method:" ("at-point" "half") "Insert a fraction between 0.1 and 0.9" "at-point" nil "half" 0.5 floatp string-to-number 0.5 "horizontal" ecb-create-layout-split-hor ecb-create-layout-split-ver selected-window ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) ecb-create-layout-new-buffer select-window next-window ecb-create-layout-set-buffer-factor ecb-create-layout-gen-lisp-for-buffer-type ecb-create-layout-set-buffer-to-type ecb-create-layout-next-window real-split-factor save-selected-window-window] 5 (#$ . 15211) nil]) #@29 Move one character forward. (defalias 'ecb-create-layout-forward-char #[nil "\301 \205`\302 Z\303 \203\304\202\305ZV?\205\306\307!\207" [ecb-running-xemacs ecb-create-layout-frame-ok ecb-line-beginning-pos window-width 3 2 call-interactively forward-char] 3 (#$ . 16391) nil]) #@120 Go to the next window. This command always goes to the next special ECB-window, i.e. it never selects the edit-window. (defalias 'ecb-create-layout-next-window #[nil "\302 \205 \303 \232\203\304\202\305\306 !\210\307\310\311 D\312BB!)\207" [ecb-create-layout-edit-window steps ecb-create-layout-frame-ok next-window 2 1 other-window ecb-create-layout-gen-lisp dotimes i ((other-window 1) (if (equal (selected-window) ecb-compile-window) (other-window 1)))] 4 (#$ . 16684) nil]) #@136 Go to the previous window. This command always goes to the ECB-window preceding current window, i.e. it never selects the edit-window. (defalias 'ecb-create-layout-previous-window #[nil "\302 \205%\303\304 \305\"\232\203\306\202\307\310 !\210\311\312\313\314 !D\315BB!)\207" [ecb-create-layout-edit-window steps ecb-create-layout-frame-ok previous-window selected-window 0 -2 -1 other-window ecb-create-layout-gen-lisp dotimes i abs ((other-window -1) (if (equal (selected-window) ecb-compile-window) (other-window -1)))] 5 (#$ . 17176) nil]) #@24 Delete current window. (defalias 'ecb-create-layout-delete-window #[nil "\302 \205s\303 \232\206\304\305\306\"G \307\232\203\310\202\311U?\205s \312\235\203N\313\303 \306\"\232\203N\314\315 !@\314 @V\203N\310\314!8\310\314 8U\203N\316\317!\207\320\321 !\210\322p!\210\323 \210\324\325!\210\303 \232\203h\326 \210\320\321 !\210\322p!\210\327 \207" [ecb-create-layout-edit-window ecb-create-layout-type ecb-create-layout-frame-ok selected-window ecb-window-list nil 0 left-right 3 2 (right left-right) previous-window ecb-window-edges next-window ecb-error "This window can not be deleted! Delete another one." ecb-create-layout-add-to-buf-types ecb-create-layout-buffer-type kill-buffer delete-window ecb-create-layout-gen-lisp (delete-window) ecb-create-layout-previous-window ecb-create-layout-new-buffer] 3 (#$ . 17732) nil]) #@35 `ecb-create-layout-mode' key-map. (defvar ecb-create-layout-mode-map nil (#$ . 18583)) (byte-code "\204\301\306 \307\310 \nW\203\"\311\312 \313\\!\314#\210 T\211\202\f*\307\310 W\203>\311\312 \315\\!\314#\210 T\211\202(*\316\310 \fW\203Z\311\312 \317\\!\314#\210 T\211\202D*\311\320\314#\210\311\321\314#\210 \203t\311\322\323#\210\202z\311\324\325#\210\311\326\327#\210\311\330\331#\210\311\332\333#\210\311\334\335#\210\311\336\337#\210\311\340\341#\210\311\342\343#\210\311\344\345#\210\311\346\347#\210\311\350\351#\210\311\352\353#\210\354\355\"\210\355\207" [ecb-create-layout-mode-map i #:--dotimes-temp--47321 #:--dotimes-temp--47322 #:--dotimes-temp--47323 ecb-running-xemacs make-sparse-keymap 26 0 define-key string 97 self-insert-command 65 10 48 "." "-" [BS] delete-backward-char "" backward-delete-char-untabify "" ecb-create-layout-save-and-quit "" ecb-create-layout-cancel "" ecb-create-layout-delete-window "" ecb-create-layout-split "" ecb-create-layout-set-buffer-to-type [left] backward-char [right] ecb-create-layout-forward-char [up] previous-line [down] next-line "" ecb-create-layout-next-window "" ecb-create-layout-previous-window set-keymap-parent nil] 6) (defalias 'ecb-create-layout-new-buffer #[(&optional do-not-fill) "\305\306 \307\"\210\310\311!!\210\312 \210 \204:\313 \314\nW\2039\315\316\317\320 \f\203+\321\202,\322Z\323\"\"c\210\nT\211\202*eb\210\324 \210\305\306 \325\"\207" [ecb-create-layout-buf-prefix do-not-fill i #1=#:--dotimes-temp--47324 ecb-running-xemacs set-window-dedicated-p selected-window nil switch-to-buffer generate-new-buffer erase-buffer window-height 0 format "%s\n" make-string window-width 3 1 32 ecb-create-layout-mode t] 6]) #@42 Major mode for creating new ECB-layouts. (defalias 'ecb-create-layout-mode #[nil "\304\305\306\n!\210\307\303!\210\310\311p!\312\313\314$\210\314\211\207" [major-mode mode-name ecb-create-layout-mode-map buffer-read-only ecb-create-layout-mode "ECB Create-Layout" use-local-map make-variable-buffer-local ecb-mode-line-set buffer-name "" nil t] 5 (#$ . 20337)]) (defalias 'ecb-create-layout-init-layout #[(&optional new) "\306 \210\307 \210\203\310\311\312\313\"! \314\232\203\315\n!\210\202J \316\232\203-\315\n[\317\"\210\202J \320\232\203:\321!\210\202J\315\322\n_[\317\"\210\315\323\n_\324\317#\210\307\317!\210\324 \320\232\203Z \202\\c\210)\325 \326\327p!\330\324\317$\210\331\325 \324\"\210\332\333!\210\307 \210 \334\232\205\205\332\333!\210\307 \207" [new ecb-create-layout-type ecb-windows-width ecb-windows-height buffer-read-only ecb-create-layout-help-text-top delete-other-windows ecb-create-layout-new-buffer intern ecb-query-string "Location of the the ECB-tree-windows:" ("left" "right" "top" "left-right") left ecb-split-hor right t top ecb-split-ver 0.667 0.667 nil selected-window ecb-mode-line-set buffer-name " ECB edit-window" set-window-dedicated-p other-window 1 left-right ecb-create-layout-help-text-left-right ecb-create-layout-edit-window] 5]) #@67 Create a new frame for the layout creation process and return it. (defalias 'ecb-create-layout-make-frame #[nil "\203\305\306 B\307\310\311\nB\312B\313BBBBB!\207\f\2030\305\306 B\314\315\311\nB\312B\316BBBBB!\207\305\306 B\317\320\311\nB\312B\321BBBBB!\207" [ecb-running-xemacs ecb-create-layout-frame-name ecb-create-layout-frame-width ecb-create-layout-frame-height ecb-running-emacs-21 make-frame name (minibuffer . t) (user-position . t) width height ((default-toolbar-visible-p) (left-toolbar-visible-p) (right-toolbar-visible-p) (top-toolbar-visible-p) (bottom-toolbar-visible-p) (default-gutter-visible-p) (left-gutter-visible-p) (right-gutter-visible-p) (top-gutter-visible-p) (bottom-gutter-visible-p) (has-modeline-p . t) (use-left-overflow) (vertical-scrollbar-visible-p) (horizontal-scrollbar-visible-p) (use-right-overflow) (menubar-visible-p)) (minibuffer . t) (user-position . t) ((vertical-scroll-bars) (horizontal-scroll-bars) (tool-bar-lines . 0) (menu-bar-lines . 0)) (minibuffer . t) (user-position . t) ((vertical-scroll-bars) (menu-bar-lines . 0))] 7 (#$ . 21641)]) #@38 Start interactively layout creating. (defalias 'ecb-create-new-layout #[nil "\306 \210\204 \307\307\310 \311 \312!\210\313!\210\314\315\316\317#\210\320\315!\210\321 \322!\210\307\203F\307\203X\307 \307!\"\307!\323\324!\207" [ecb-running-xemacs after-make-frame-functions ecb-create-layout-old-after-frame-h before-make-frame-hook ecb-create-layout-old-before-frame-h ecb-create-layout-old-frame ecb-create-layout-initilize nil selected-frame ecb-create-layout-make-frame raise-frame select-frame ad-enable-advice delete-frame before ecb-create-layout ad-activate current-global-map use-global-map ecb-create-layout-init-layout t ecb-create-layout-frame ecb-create-layout-old-global-map ecb-create-layout-mode-map minor-mode-map-alist ecb-create-layout-old-minor-mode-map-alist ecb-running-emacs-21 automatic-hscrolling ecb-create-layout-old-hscroll vertical-divider-map ecb-create-layout-old-vertical-div-map modeline-map ecb-create-layout-old-modeline-map debug-on-error ecb-create-layout-old-debug-on-error] 4 (#$ . 22742) nil]) #@189 Select a layout-name and delete this layout. This means the layout-definition is removed from the file `ecb-create-layout-file' and the layout-function and associated aliases are unbound. (defalias 'ecb-delete-new-layout #[nil "\306 \210\307\310\311\312!\313\314\"\"\315\"\312\211G\316U\203 \317\320!\210\202%\321\n\322\"\323!\324\325\326!!\327\216r\fq\210\330 \210\331\323!!\203I\332\323!!\210\202N\317\333\"\210eb\210\334\335\336 \337R\312\322#\203q\340 \210\316\224\341 \210`|\210\342 \210\343 !\202u\317\333\")r\fq\210~\210\344ed \312\316%\210.\207" [ecb-buildin-layouts layout-name new-layout-list ecb-create-layout-file #1=#:temp-buffer #2=#:temp-file ecb-load-layouts sort ecb-set-difference ecb-available-layouts-of-type nil mapcar #[(elem) "@\207" [elem] 1] string< 0 ecb-error "There are no layouts to delete!" ecb-choose-layout-name t expand-file-name get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) erase-buffer file-readable-p insert-file-contents "This layout is not defined in %s!" re-search-forward "^(ecb-layout-define +" "\"" "\".+$" beginning-of-line forward-sexp kill-line ecb-layout-undefine write-region] 8 (#$ . 23831) nil]) #@43 Debugging command for the ECB-developers. (defalias 'ecb-create-layout-debug #[nil "\300\301\302 \303 #\207" [message "Layout-Debug: Type: %s, Factor: %s" ecb-create-layout-buffer-type ecb-create-layout-buffer-factor] 4 (#$ . 25094) nil]) (provide 'ecb-create-layout)