;ELC ;;; compiled by jwz@thalidomide on Wed Feb 9 21:47:45 1994 ;;; from file /th/jwz/emacs19/lisp/energize/energize-windows.el ;;; emacs version 19.10 Lucid (beta2). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "MM" [energize-request-kill-buffer-if-dead #[(buffer) " !‡ ! ! !‡Ƈ" [bufferp buffer t buffer-name energize-buffer-p energize-request-kill-buffer nil] 2] energize-prune-killed-buffers-from-list #[(buffer-extent-list) " @ A@ AA T !\nT \"\"*X\nV\nV\n\" VΪ VЪ#!!+" [buffer-extent-list 0 deleted-count buffer-count rest buffer extent energize-request-kill-buffer-if-dead delq message format "Oops, confused about %s selected %s -- please try again." 1 "%d of the" "one of the" "the" "buffers" "buffer" ding t] 6]] 2) (defvar energize-auto-scroll-p t "\ *If t, energize will scroll your debugger and error log buffers to the bottom whenever output appears with reckless abandon. If nil, it will behave just like normal shell and gdb-mode buffers.") (defvar energize-error-log-context-lines 0 "\ *Number of lines to skip above the current error in the Energize error log") (byte-code "MMMMM" [energize-scroll-window-at-extent #[(window extent only-one) " !\n! ! != \" = \nqb [yy`)\" = \nqby !V[ \" \"`)\") > ! !q )Y \nq \\)\" *" [window-buffer window buffer energize-buffer-type type extent extent-start-position nil pos 0 set-window-point energize-error-log-buffer set-window-start energize-error-log-context-lines only-one energize-source-buffer window-height next-screen-context-lines vertical-motion -1 (energize-error-log-buffer energize-debugger-buffer) energize-auto-scroll-p window-point energize-user-input-buffer-mark buffer-size 1 zmacs-deactivate-region] 6] energize-show-all-buffers #[(buffer-extent-list) "\nAA?\n @ A@  \"  \" B  # AA+L@!\n @ A@ !!    \" B  #) AA*>@\"Aq ! !!?!!." [t nil buffer-extent-list only-one window-to-select buffer-extent-current dedicated-windows pop-up-windows buffer extent get-buffer-window selected-screen window set-window-buffer-dedicated energize-scroll-window-at-extent select-window pop-to-buffer energize-edit-buffer-externally-p buffer-read-only selected-window screen energize-auto-raise-screen screen-visible-p screen-totally-visible-p sit-for 0 make-screen-visible] 6] energize-main-buffer-of-list #[(list) " @\n>  q) AAg +" [nil result mode buffer list (energize-debugger-mode energize-breakpoint-mode) major-mode] 4] energize-make-buffers-visible #[(buffer-extent-list) " ! AA ! A@\" !  ‰# \"  !!?  !**" [energize-main-buffer-of-list buffer-extent-list nil window main-buffer energize-edit-buffer-externally-p energize-edit-buffer-externally-1 hacked-screen energize-split-screens-p get-screen-name-for-buffer t pre-display-buffer-function get-buffer-window select-screen window-screen energize-show-all-buffers] 4] energize-make-many-buffers-visible-function #[(arg) "@A \n! \n! !\"ʎ\n!**" [arg go-there buffer-extent-list energize-history-enqueue energize-prune-killed-buffers-from-list energize-make-buffers-visible selected-window window set-window-buffer-dedicated window-buffer ((byte-code " \" !" [set-window-buffer-dedicated window nil select-window] 3))] 5]] 2) (defvar energize-make-many-buffers-visible-should-enqueue-event t "\ Special variable bound by energize-execute-command to allow the buffers to be selected while the command is executed") (fset 'energize-make-many-buffers-visible #[(buffer-extent-list go-there) " B\" B!" [energize-make-many-buffers-visible-should-enqueue-event enqueue-eval-event energize-make-many-buffers-visible-function buffer-extent-list go-there t] 4 "\ First arg is a list of buffers and extents. All those should be made visible at the same time. If the second argument is T then point should be moved to the first character of the extent of the first buffer, or to the buffer if no extent is specified for this buffer. If second argument is NIL point should not change."]) (defvar energize-navigation-history '(nil) "\ List of places where Energize took you to. It is a list of (file-name/buffer-name . position)") (defvar energize-history-maximum-length 20 "\ Maximum number of locations kept in the energize history") (defvar energize-navigation-current nil "\ Current pointer into the energize-navigation-history") (byte-code "!" [boundp energize-navigation-current-length 0] 2) (fset 'energize-history-enqueue #[nil "p`\"TB @? B T\\V ȡ))" [buffer-file-truename count-lines 1 new-item energize-navigation-history energize-navigation-current-length energize-history-maximum-length tail nil] 5 "\ Memorize the current place in the history. Trim the history if need be."]) (fset 'energize-history-dequeue #[nil "A" [energize-navigation-history] 2 "\ Forget the current place in the history"]) (fset 'energize-history-go-back #[(item) "@A !  ; ! !\n!??\n! !+" [item nil buffer position buffer-or-file bufferp get-file-buffer find-file-noselect buffer-name pop-to-buffer goto-line t] 3 "\ Go back to the place memorized by item"]) (fset 'energize-history-previous #[nil "=\n @ @! A@ AAh @ ! A" [last-command energize-history-previous energize-navigation-history energize-navigation-current energize-history-enqueue energize-history-go-back energize-history-dequeue beep error "You reached the beginning of the Energize history"] 2 "\ Go back in the history. If the last command was the same go back more" nil]) (define-key global-map '(shift f14) 'energize-history-previous) (fset 'energize-history #[nil "! \"eb " [pop-to-buffer "*Energize History*" erase-buffer mapcar #[(item) "@\"c\"A\"c" [item format "%s" indent-to-column 32 1 "%s\n"] 3] energize-navigation-history energize-history-mode] 3 "\ Show the energize history in the energize history buffer" nil]) (defun energize-history-mode nil "\ Turn on energize history mode")