;ELC ;;; compiled by jwz@thalidomide on Fri May 6 16:37:09 1994 ;;; from file /th/jwz/emacs19/lisp/energize/energize-init.el ;;; emacs version 19.10 Lucid (beta21). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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.")) (defvar energize-auto-raise-screen t "\ If T screens are automatically raised when Energize wants to show them.") (defvar energize-connect-hook nil "\ *Function or functions to run when the Energize connection is established.") (defvar energize-disconnect-hook nil "\ *Function or functions to run when the Emacs/Energize connection is closed.") (byte-code "!!‡" [boundp energize-screen-mode nil energize-split-screens-p t] 2) (fset 'energize-multi-screen-mode #[nil "#############ۇ" [put project instance-limit 0 sources 5 manual browser energize-debugger-mode screen-name debugger gdb-mode energize-top-level-mode energize energize-browser-mode energize-breakpoint-mode energize-project-mode energize-no-file-project-mode energize-log-mode error-log energize-manual-entry-mode energize-external-editor get-screen-for-buffer-default-screen-name pop-to-buffer buffers-menu-switch-to-buffer-function multi energize-screen-mode t] 4 "\ Call this function to put Energize into multi-screen mode. A screen named \"debugger\" will be used for the *Debugger* buffer, and its associated source files. A screen named \"energize\" will be used for the Top-Level buffer. A screen named \"browser\" will be created for each L.E. Browser buffer. At most 5 of these will be created; then they will be reused. A screen named \"project\" will be created for each Project buffer. A screen named \"error-log\" will be created for the Error Log buffer and its associated source files (as when the Next Error command displays a source file.) A screen named \"manual\" will be created for each UNIX Manual page. At most 5 of these will be created; then they will be reused. If an external editor is being used, then source files will be displayed read-only in the \"debugger\" screen. If an external editor is not being used, then screens named \"sources\" will be created to edit source files. At most five of these will be created; then they will be reused. Find-file will use the current screen, whatever that happens to be, but find-file-other-window, and selecting source files from the Buffers menu will use an existing screen displaying the file in question, or create a new one if there isn't one. Call `energize-single-screen-mode' to turn this off. See the documentation for the function get-screen-for-buffer for information on how to customize this." nil]) (fset 'energize-several-screens-mode #[nil " \"\"\"\"ɇ" [energize-multi-screen-mode remprop browser instance-limit project manual sources several energize-screen-mode t] 3 "\ Call this function to put Energize into multi-screen mode, but with only a few screens. See also `energize-multi-screen-mode'. A screen named \"debugger\" will be used for the *Debugger* buffer, and its associated source files. A screen named \"energize\" will be used for the Top-Level buffer. A single screen named \"browser\" will be created for L.E. Browser buffers. A single screen named \"project\" will be created for Project buffers. A screen named \"error-log\" will be created for the Error Log buffer and its associated source files (as when the Next Error command displays a source file.) A single screen named \"manual\" will be created for UNIX Manual page buffers. If an external editor is being used, then source files will be displayed read-only in the \"debugger\" screen. If an external editor is not being used, then a single screen named \"sources\" will be created to edit source files. Find-file will use the current screen, whatever that happens to be, but find-file-other-window, and selecting source files from the Buffers menu will use an existing screen displaying the file in question, or create a new one if there isn't one. Call `energize-single-screen-mode' to turn this off. See the documentation for the function get-screen-for-buffer for information on how to customize this." nil]) (fset 'energize-single-screen-mode #[nil "\"\"\"\"\"\"\"\"\"\"\"\"\"Ї" [remprop browser instance-limit project manual sources energize-debugger-mode screen-name gdb-mode energize-top-level-mode energize-browser-mode energize-breakpoint-mode energize-project-mode energize-no-file-project-mode energize-log-mode energize-manual-entry-mode nil get-screen-for-buffer-default-screen-name switch-to-buffer buffers-menu-switch-to-buffer-function single energize-screen-mode] 3 "\ Call this function to put Energize into single-screen mode. All buffers will be displayed in the currently selected screen." nil]) (byte-code " !  @A! At)M" [energize-single-screen-mode energize-attributes-mapping purecopy ((0 . default) (1 . bold) (2 . italic) (3 . bold-italic) (4 . attributeSmall) (50 . attributeGlyph) (51 . attributeSectionHeader) (52 . attributeToplevelFormGlyph) (53 . attributeModifiedToplevelFormGlyph) (54 . attributeBrowserHeader) (68 . attributeWriteProtected) (69 . attributeModifiedText)) rest make-face any-energize-buffers-p #[nil "  @! @p Al\n*" [buffer-list nil result rest energize-buffer-p] 3]] 3) (fset 'connect-to-energize #[(server &optional enarg) " ! Ě  t\n:\n>\n!\"\n\n \"!! ! !j! !+" [connected-to-energize-p error "Already connected to the server." server "" system-name "energize" default-screen-name energize-rename-things energize-hack-external-editor-mode energize-disconnect-hook save-buffers-kill-emacs delq copy-sequence connect-to-energize-internal enarg get-process "Could not connect to Energize." nil b p "Energize connection refused." any-energize-buffers-p accept-process-output pop-to-buffer delete-other-windows run-hooks energize-connect-hook] 4 "\ Connect this emacs to a Energize server. The SERVER argument should be the name of the host that the kernel is running on (empty-string for localhost). It may also be of the form ``hostname:user'' or ``:user'', meaning to use the server running with userid USER." (byte-code " !!C" [connected-to-energize-p error "Already connected to the server." read-string "connect to energize server: "] 2)]) (fset 'disconnect-from-energize #[nil " " [close-connection-to-energize] 1 nil nil]) (fset 'energize-all-buffers #[nil " !Ë" [connected-to-energize-p error "You have to connect to Energize first" ((byte-code " @A ! q\nh !c\n\"] !\"! q B !\n! q !\"! q\" B > !\"\n!\n !\"!! !." [buffer-list nil filename buffer lock-directory buffers-to-avoid buffers buffer-file-name energize-buffer-p energize-query-buffer t buffer-modified-p y-or-n-p format "Buffer %s must be saved to be Energized; save it? " buffer-name save-buffer verify-visited-file-modtime file-exists-p "Buffer %s has changed on disk, revert? " revert-buffer message "Energizing buffer %s..." find-file-noselect "Buffer %s not Energized." sit-for 1] 5))] 2 "\ Energize any buffer showing a file that the Energize server knows about. Has to be called after Emacs has been connected to Energize"]) (byte-code "\"MM" [add-hook energize-connect-hook energize-all-buffers de-energize-all-buffers #[nil " Ə Au+ !!" [buffer-list nil buffer buffers condition (byte-code "@q ! != \"\" ! ! =!q !q !ʇ" [buffers buffer energize-buffer-p energize-buffer-type energize-source-buffer map-extents #[(extent ignore) " \" !ć" [extent-property extent energize delete-extent nil] 3] remove-hook write-file-data-hooks energize-write-data-hook nil revert-buffer-insert-file-contents-function ad-Orig-normal-mode-after-energize set-buffer-modified-p other-buffer get-buffer-create "*scratch*" kill-buffer] 4) ((error (byte-code " \"" [beep message "Error while de-Energizing: %s" condition] 3))) deactivate-all-energize-menu-items energize-rename-things back run-hooks energize-disconnect-hook] 4] energize-rename-things #[(&optional back) "\n:\n@; Ū\n@\"\n@ȉO ɪ\n@ȕOQ\nAB\")ˇ" [t case-fold-search mode-line-buffer-identification string-match back "\\bEnergize\\b" "\\bL?Emacs\\([- ]*[-._0-9]+\\)?\\b" set-default 0 "Emacs" "Energize" nil] 7]] 3) (fset 'energize-buffer-type #[(buffer) " != !Śƪ !ǚȪ !\"˪\n\n= D\"\n ! D\"\n)" [energize-buffer-type-internal buffer type energize-top-level-buffer buffer-name "Error Log" energize-error-log-buffer "*includers*" energize-includers-buffer string-match "^Browser" energize-browser-buffer energize-unspecified-buffer signal error "buffer type unspecified" energize-buffer-p "null buffer type for energize buffer"] 5 "\ Returns a symbol denoting the type of an Energize buffer, or nil."]) (byte-code "MM!M M\"MMM\"M#" [energize-extent-at #[(pos &optional buffer) " \n#" [extent-at pos buffer energize] 4] non-energize-errors-exist-p #[nil "p!p!=? " [compilation-buffer-p energize-buffer-type energize-error-log-buffer compilation-errors-exist-p] 2] boundp inside-energize-buffer-creation-hook-function nil energize-buffer-creation-hook-function #[(buffer) "\nq !! !!! \n!\n!\n= \n= \n= \n=\n= \n= \n= \n= \n= \n= \n!\"! \nD\")p!= \n!*" [t inside-energize-buffer-creation-hook-function buffer buffer-file-name abbreviate-file-name expand-file-name file-name-directory default-directory set-buffer-modtime energize-buffer-type type energize-top-level-buffer energize-top-level-mode energize-browser-buffer energize-browser-mode energize-includers-buffer energize-error-log-buffer energize-log-file-buffer energize-log-mode buffer-read-only energize-project-buffer energize-project-mode energize-no-file-project-mode energize-debugger-buffer energize-debugger-mode energize-breakpoint-buffer energize-breakpoint-mode energize-unix-manual-buffer energize-manual-mode energize-source-buffer compute-buffer-file-truename after-find-file nil default-major-mode signal error "unknown energize buffer type" energize-source-minor-mode energize-external-editor-set-mode] 5] energize-create-buffer-hook energize-send-buffer-modified-1 #[(start end) "p!??p $ #" [energize-buffer-p map-extents #[(ext ignore) " \" \"Ň" [extent-property ext energize set-extent-face attributeModifiedText nil] 3] start end energize-send-buffer-modified t] 5] add-hook before-change-functions energize-auto-revert-buffer #[(buf) "\n!!Ç\n!\n!!\"!\nqʉ\")" [file-exists-p buffer-file-name buf nil buffer-modified-p yes-or-no-p format "File %s changed on disk. Discard your edits? " file-name-nondirectory revert-buffer t] 6] energize-message-if-not-in-minibuffer #[(reason) " =? !" [selected-window minibuffer-window message reason] 2] energize-kernel-busy-hook energize-send-buffer-modified-2 #[(state start end) "p!?? p! \" != \" !g)   #" [energize-buffer-p state next-extent e extent-property energize extent-face attributeModifiedText set-extent-face nil energize-send-buffer-modified start end] 5] energize-buffer-modified-hook energize-kernel-modification-hook (("-energize" . command-line-process-energize) ("-context" . command-line-process-energize-1) ("-beam-me-up" . command-line-process-energize-1)) energize-args append command-switch-alist command-line-process-energize command-line-process-energize-1 put undocumented t] 4) (fset 'command-line-process-energize-1 #[(arg) "@! \"A!!͏*" [command-line-args-left getenv "ENERGIZE_PORT" e-host e-arg string-match "\\`[0-9a-fA-F]+[,][0-9a-fA-F]+\\'" nil message "Connecting to Energize..." sit-for 0 (connect-to-energize e-host e-arg) ((error (byte-code " \"!!" [beep e-host message "Failed to connect to Energize at %s." "Failed to connect to Energize." sit-for 1] 3)))] 4 "\ Connect to the Energize server at $ENERGIZE_PORT."]) (byte-code "!KMM" [fboundp energize-orig-screen-initialize screen-initialize #[nil "Í) " [energize-args rest done (byte-code "@@ \"AnŇ" [rest command-line-args throw done t nil] 4) "energize" default-screen-name energize-orig-screen-initialize] 2]] 2)