;ELC   
;;; compiled by jwz@thalidomide on Tue Mar  1 00:30:28 1994
;;; from file /th/jwz/emacs19/lisp/energize/energize-vi.el
;;; emacs version 19.10 Lucid (beta5).
;;; 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 "ÀÁÂÃ#ˆÀÄÅÆ#ˆÀÇÈÉ#ˆÀÊËÌ#ˆÍÏÐ!¬ƒÑÏÒ!¬ƒÑÏÓ!¬ƒÑÏÔ!¬ƒÑÕÖMˆ×ØM‡" [evi-define-key (vi motion ex) "" evi-emacs-command (vi motion) "" evi-backward-char (vi) "" evi-quit-evi (vi motion top-level) button3 energize-popup-menu 1 evi-meta-prefix-char boundp energize-external-editor nil energize-internal-editor energize-internal-viewer energize-vi-terminal-emulator ex-quit #[(discard) "¬ŒÁ «ˆÂ «„ÃÄ!ˆÅÇÅ!ˆ)È ˆÉp!ˆp\nÅËÌ‡" [discard buffer-file-name buffer-modified-p evi-error "No write since last change (use :quit! to override)" nil energize-buffer-modified-hook set-buffer-modified-p delete-auto-save-file-if-necessary kill-buffer ex-user-buffer (byte-code "ÀÁ !‡" [delete-window selected-window] 2) ((error))] 3] ex-write-all-and-quit #[(quietly) "À	!ˆÂÃ!‡" [save-some-buffers quietly ex-quit t] 2]] 4)
(fset 'energize-external-editor-set-menubar #[nil "ÀÁ!ˆÂÃÄÅÆÇ%ˆÂÈÉÊÆÇ%ˆÀË!‡" [delete-menu-item ("File" "Open...") add-menu-item ("File") "View..." find-file-other-window t "Save" ("File") ("Edit" . "") energize-edit-buffer-externally ("File" "Exit Emacs")] 6 "\
Set the menubar to be used for the external editor"])
(fset 'energize-internal-editor-set-menubar #[nil "ÀÁÂÃÄÅ%ˆÆÇ!ˆÆÈ!ˆÀÉÊËÄ$‡" [add-menu-item ("File") "Open..." find-file t "Save" delete-menu-item ("File" "View...") ("File" "Edit") ("File") "Exit Emacs" save-buffers-kill-emacs] 6 "\
Set the menubar to be used for the internal editor"])
(byte-code "ÀÁMˆÂÃÀ\"ˆÄÅMˆÆÇM‡" [sensitize-external-editor-menus-hook #[nil "À	Â\"@AÀÄ\"@‰¬ƒÆª¥Ép!Ê=«ƒËÌ­ÆIˆÍ­„Î!Iˆ)Ë*‡" [find-menu-item current-menubar ("File") menu ("Edit File") ef t buffer-file-name name energize-buffer-type energize-top-level-buffer nil 2 3 file-name-nondirectory] 5] add-hook activate-menubar-hook energize-edit-buffer-externally-p #[(buffer) "­…Á\n!Ã=‡" [energize-external-editor energize-buffer-type buffer energize-source-buffer] 2] energize-edit-buffer-externally-1 #[(buffer extent) "Šqˆ	§«…	bˆª	¬…Âbˆª…Ã	!bˆÄÅ ŠÆyˆÇÂ`\"T)\")‡" [buffer extent 1 extent-start-position energize-begin-external-edit buffer-file-name 0 count-lines] 5]] 3)
(fset 'energize-edit-buffer-externally #[nil "¬„ÁÂ!ˆÃp`\"‡" [buffer-file-name error "Buffer not associated with a file" energize-edit-buffer-externally-1] 3 "\
Edit the currently-displayed buffer in $ENERGIZE_EDIT_MODE." nil])
(byte-code "ÀÁ!¬‚ÂÀÃ!¬‚ÂÄÅMˆÀÆ!¬ƒÇÈÉMˆÊËMˆÌÍMˆÎÏMˆÐÑMˆÒÓMˆÔÕMˆÖ×MˆØÙMˆÚÛMˆÀÜ!¬ƒÂÝÞMˆÀß!¬ƒÂàáMˆâãM‡" [boundp energize-vi-procs nil energize-other-external-editor-procs energize-vi-buffer-being-edited-p #[(file) "Á‰«”@A˜«‡ÅÁ‰ªpA‰¬l\n*‡" [energize-vi-procs nil result rest file t] 3] energize-vi-wrapper "energize_vi" energize-begin-external-edit #[(file line) "ÀÁ!‰«‡Ã\nC\"ªÅ!È!	\nË=‰«„ª‚\n«ƒÏªÐÑ\"«„ª„È!ÓÔ«ƒÕª‚	#­„×!ÙÙ«‡ÓÜ\"ªÞÓß«ƒàªá	%âã\"ˆä%&«ÏçèÙ	)ê=«ƒëª™)ì=«ƒíª)î=«ƒïª‡ðñò)D\"­ó&	‰B4B4õö\"ˆ÷ø\"ˆª¤èÙùúû	Q%‰B<B<õý\"ˆ÷þ\"ˆ*«™ÿ ˆ@ !A =«•B C !ˆªgÿ ˆD C !ˆE !F =«ˆâG \"ˆ.Ù‡" [getenv "ENERGIZE_PATH" ez-path append exec-path file-name-directory file dir file-name-nondirectory name energize-external-editor vi vi-p energize-vi-wrapper program "vi" string-match "[ 	]" pretty format "*%s %s*" "energize_vi" procname energize-vi-buffer-being-edited-p edited-p nil proc msg "+%d" line "" "%s %s %s %s..." "Reselecting" "Launching" message "%s" t inhibit-quit default-directory apply start-process energize-vi-terminal-emulator xterm "-xterm" cmdtool "-cmdtool" shelltool "-shelltool" signal error "energize-vi-terminal-emulator unknown" ("-search") energize-vi-procs set-process-sentinel energize-vi-sentinel set-process-filter energize-vi-filter "/bin/sh" "-c" " " energize-other-external-editor-procs energize-external-editor-sentinel energize-external-editor-filter accept-process-output process-status run sleep-for 1 sit-for process-exit-status 0 "%s Done."] 13] energize-external-editor-sentinel-1 #[(process state name list-var) "JÁÄ«œ@@=«ŽÇ@J\"Lˆ@ÁA‰¬d)\n«·È\nA!ˆ	«ÊË	\"«ˆ	Ì‰”O	Í\n@!Ì=?­ 	­œ	Îš?­•ÏÐÑ!	#ªŠÒ ˆÓÔ	#*‡" [list-var nil got-it rest t inhibit-quit process delq energize-notice-external-editor-termination state string-match "\n+\\'" 0 process-exit-status "" error "%s: %s" process-name beep message "unknown %s process died with %S" name] 5] energize-vi-sentinel #[(process state) "À	\nÃÄ$‡" [energize-external-editor-sentinel-1 process state "vi" energize-vi-procs] 5] energize-external-editor-sentinel #[(process state) "À	\nÃÄ$‡" [energize-external-editor-sentinel-1 process state "external editor" energize-other-external-editor-procs] 5] energize-external-editor-filter #[(process output) "À ˆÁÂÃ\"!‡" [beep message format "%s" output] 4] energize-vi-filter #[(process output) "À	\n\"‡" [energize-external-editor-filter process output] 3] energize-notice-external-editor-termination #[(filename) "À	!‰¬ƒÃªêÄ\n!«ƒÃªâÅ\n!«¥Æ	!¬ˆÇÈÉ	!\"ªÐÊ ˆËÌÍÉ	!\"!­ÃŠ\nqˆÎÏ‰\")ª¸Ð\n!‰­„Ò!­„Ô!Š\nqˆÎÏ‰\"ˆ)«‡Ö\"ˆ­†×\"+)‡" [get-file-buffer filename buffer nil verify-visited-file-modtime buffer-modified-p file-exists-p error "File %s no longer exists!  Buffer modified!" file-name-nondirectory beep yes-or-no-p format "File %s changed on disk.  Discard your edits? " revert-buffer t get-buffer-window w window-point p window-start s set-window-point set-window-start] 6] energize-evi-mode #[nil "À ˆÁp!­Ž\n«‡Ãp!Ä>­„Å‰‡" [evi energize-buffer-p buffer-file-name energize-buffer-type (energize-top-level-buffer energize-browser-buffer energize-error-log-buffer energize-includers-buffer) t buffer-read-only] 2] energize-external-editor-set-mode #[(buffer) "ŠqˆÁ!‰Ã=\nÅ>‰®ˆ?­ƒ?‰	¬ƒÊ	« Ì=«ƒÌªÀÍ=«ˆ?­¶Î ª²ÏÐÑD\"ª©Í=«„Î ªŸÓ=«‰Õ )ªÌ=«ƒÌª‡ÏÐÖD\"-‡" [buffer energize-buffer-type type energize-debugger-buffer debugger-p (energize-project-buffer energize-debugger-buffer energize-breakpoint-buffer) always-editable-p energize-external-editor buffer-read-only editable-p t energize-internal-editor nil vi energize-evi-mode signal error "unknown value for energize-internal-editor" energize-internal-viewer less major-mode view-mode "unknown value for energize-internal-viewer"] 5] external-editor-hack-popup #[(choices) "«¾	Â‰«¶Å@!«ª@ÆHÇš«¢@GÈY«›@ÉH‰;«’ÊËÌÍDDÎ$AB¡ˆÂA‰¬J*	‡" [energize-external-editor choices nil file rest vectorp 0 "editfile" 4 3 vector "View File" pop-to-buffer find-file-noselect t] 7] energize-search-match-data energize-search-internal #[(args) "@?A@Ã8?Å8Ç8«‰\n«ƒÉªŠÊª‡\n«ƒËªÌÎÐš«‡ÑÓÔ!ˆ:«ë@Î=« «œÖ!ˆ«ŒŠ×Ñ\n?#ˆ)ªˆ×Ñ\n?#ˆØÑÚ#«ž«ŒŠ×Ñ\n?#ˆ)ªˆ×Ñ\n?#ˆTªYÛÜ‰ÝU«ƒÐªÞ#ˆ)Ñ‰ª÷«®Î=¬„Óß!ˆ¬„Óà!ˆÖ!ˆ«ŒŠ×Ñ\n?#ˆ)ªˆ×Ñ\n?#ˆÑÑÚ#¬áÓ«†\n«ƒâª«ƒãª‡\n«ƒäªåD\"ˆ&«“ç`Ø”U«„Ø•ª‚Ø”Ú\"ˆè ˆé ‰.‡" [args case-fold-search regexp-p 2 back-p 3 search 4 replace re-search-backward search-backward re-search-forward search-forward fn energize-search this-command "" nil energize-search-match-data error "No search string specified" last-command store-match-data replace-match 0 count t message "%d replacement%s done." 1 "s" "Last command was not a successful search." "Last search failed" signal "Reverse regexp search failed" "Reverse search failed" "Regexp search failed" "Search failed" zmacs-regions push-mark zmacs-activate-region match-data] 5] energize-edit-modes-specified energize-set-edit-modes-minibuf-prompt #[nil "ÀÁÂ‰‰‰Ã&‰Åš«‹ÀÆÇÂÃÂÃ&ªÈ	ÀÊËÂÃÂÃ&ÀÍÎÂÃÂÃ&ÐÑ!ÐÓ!Èš«‚Â	Èš«ƒÕ	Èš«ƒÖÈš«ƒÖ×	!×!×!¯.‡" [completing-read "External editor (RET for none): " nil t ee "vi" "Terminal emulator in which to run vi (xterm, shelltool, or cmdtool): " (("xterm") ("shelltool") ("cmdtool")) "" te "View buffers using which keybindings (emacs, vi, or less): " (("emacs") ("vi") ("less")) iv "Edit other buffers using which keybindings (emacs or vi): " (("emacs") ("vi")) ie y-or-n-p "Use multiple windows? " ms "Split screens? " sp "xterm" "emacs" intern] 8] energize-set-edit-modes-dbox-prompt #[nil "Á«ƒÂª›Ã«•Å=«ƒÆªŽÇ=«ƒÈª†ÉÊ!ªË;«ˆÍš¬ƒªÎÑ>«ƒÂª•Ò=«ƒÆªŒÓ=«ƒÈªƒÉÔ!×>«ƒÂªŒÒ=«ƒÆªƒÉØ!Û>«ƒÂª•Ü=«ƒÆªŒÝ=«ƒÈªƒÉÞ! «ƒÆªÂ!â!&‰#@#A@È#8Ë#8ä#8å#8!ÂU«ƒæªŸÆU«ƒÍª–ÈU«ƒÍªËU«„ªƒÉç!ÆU«ƒÅªŠÈU«ƒÇªæÂU«ƒèª•ÆU«ƒÒªŒÈU«ƒÓªƒÉé!ÂU«ƒèªŒÆU«ƒÒªƒÉê!ÂU«ƒëª•ÆU«ƒÜªŒÈU«ƒÝªƒÉì!!ÂU«ƒæªŒ!ÆU«ƒíªƒÉî!¯.‡" [energize-external-editor ("" "emacs" nil) 0 ("vi" vi) energize-vi-terminal-emulator xterm 1 cmdtool 2 error "unrecognised terminal emulator" 3 ee "vi" "" o energize-internal-viewer (nil emacs) vi less "unrecognised internal-viewer" iv energize-internal-editor (nil emacs) "unrecognised internal-editor" ie energize-screen-mode (nil single) several multi "unrecognised screen-mode" ms energize-split-screens-p sp energize-edit-mode-prompt result 4 5 nil "ee losing" emacs "iv losing" "ie losing" single "ms losing" t "sp losing"] 8]] 2)
(fset 'energize-set-edit-modes #[(external-editor terminal-emulator internal-viewer internal-editor multi-screen-p split-screens-p) "¬‚Á\nÃš«‚Ä«‹;¬‡ÆÇÈD\"ˆ9¬‡ÆÇÉD\"ˆ\n9¬ˆÆÇÉ\nD\"ˆ9¬ˆÆÇÉD\"ˆÍ>¬„ÎÏ!ˆÐš«„Äª‹Ñš«„Òª‚\nÓ=«ƒÄ\nÓ=«ƒÄ\n‰¬Š¬†ªƒÄ\n«ŠÙÚÛ\"ˆÜ ˆªˆÝÚÛ\"ˆÞ ˆà>«…á ˆªœâ>«…ã ˆª‘ä>«…å ˆª†Îæ\"ˆç (Š(«é(@!«Ž(@qˆê ˆë(@!ˆ(A‰(¬c*ì-Ä‡" [terminal-emulator xterm energize-external-editor "emacs" nil external-editor signal wrong-type-argument stringp symbolp internal-viewer internal-editor split-screens-p (t nil) error "split-screens-p must be t or nil" "" "vi" vi emacs energize-vi-terminal-emulator energize-internal-editor energize-internal-viewer energize-split-screens-p pop-up-windows add-hook energize-disconnect-hook save-buffers-kill-emacs energize-external-editor-set-menubar remove-hook energize-internal-editor-set-menubar multi-screen-p (t multi) energize-multi-screen-mode (nil single) energize-single-screen-mode (several) energize-several-screens-mode "multi-screen-p %S unrecognised" buffer-list buffers energize-buffer-p normal-mode energize-buffer-creation-hook-function t energize-edit-modes-specified] 5 "\
Prompts for the various edit and view modes of Energize.

The \"external editor\" is the editor which Energize should use when 
you ask it to edit a file.  If you simply hit return, the files will 
be edited in Lucid Emacs.  The default for this is taken from the
environment variable $ENERGIZE_EXTERNAL_EDITOR.

If you specify \"vi\" as your external editor, then you will be asked
which terminal emulator window should be launched to run the vi (either
xterm, shelltool, or cmdtool.)  The default for this is taken from the
environment variable $ENERGIZE_VI_WRAPPER.

Many of the Energize buffers (such as the Browsers) are not editable.
You have three choices for which keybindings you would like to use for
moving and searching around in those buffers: \"emacs\", \"vi\", or 
\"less\" (which is a popular variant of \"more\").  The default for 
this is taken from the environment variable $ENERGIZE_VIEW_MODE.

Some Energize buffers (such as the Project buffers) are editable, and
an external editor cannot be used on them.  For these buffers, you have
a choice of either \"emacs\" or \"vi\" keybindings.  The default for 
this is taken from the environment variable $ENERGIZE_EDIT_MODE.

If you are not using an external editor, then specifying \"vi\" here
means that evi, the emacs vi emulator, will be used to edit your source
files as well.

You will also be asked whether Energize should automatically pop up multiple
windows (\"screens\" in emacs terminology) or should use and reuse one only
(which is the traditional emacs model.)  The default for this is taken from
the environment variable $ENERGIZE_MULTI_SCREEN_MODE.

Sometimes Energize wants to display two buffers at once, for example, the
Debugger buffer and the source file corresponding to the current stack frame.
You have two choices for how this should happen: one is to display the source
in the debugger screen, `splitting' the screen vertically, and the other is to
use two screens, one for the debugger and one for the source.  The default for
this is taken from the envvironment variable $ENERGIZE_SPLIT_SCREENS_P." (energize-set-edit-modes-dbox-prompt)])
(fset 'energize-hack-external-editor-mode #[nil "?­„ÁÂÃ‡" [energize-edit-modes-specified c (byte-code "ÀÁ!ÀÂ!ÀÃ!ÀÄ!ÀÅ!ÀÆ!	\n‰Í«ƒÎÏ«ƒÐ\nÑ«ƒÒ\n	Ó«ƒÒ	Ô«ƒÕ«…——ÖØ¬‹ÙÚÛ\"!ˆÎ\nÜ¬‹ÙÚÝ\n\"!ˆÎ\n	Þ¬‹ÙÚß	\"!ˆÎ	à«…áª¼â«…ãª±ä«…åª¦«ˆÙÚæ\"!ˆ'®”¬\nÒš«‰	Òš«ƒãªáè«…éª“ê«…ÎªˆÙÚë\"!ˆ)ìí!í\n!í	!&.‡" [getenv "ENERGIZE_EXTERNAL_EDITOR" "ENERGIZE_VI_WRAPPER" "ENERGIZE_VIEW_MODE" "ENERGIZE_EDIT_MODE" "ENERGIZE_MULTI_SCREEN_MODE" "ENERGIZE_SPLIT_SCREENS_P" sp ms ie iv te ee ("" nil) nil ("" nil) "xterm" ("" nil) "emacs" ("" nil) ("" nil) "yes" external-debugging-output standard-output ("xterm" "shelltool" "cmdtool") princ format "$ENERGIZE_VI_WRAPPER is %S, not xterm, shelltool, or cmdtool.\n" ("emacs" "vi" "less") "$ENERGIZE_VIEW_MODE is %S, not emacs, vi, or less.\n" ("emacs" "vi" "less") "$ENERGIZE_EDIT_MODE is %S, not emacs or vi.\n" ("yes" "y" "true" "on" "1" "" "multi" "many" "often") multi ("no" "n" "false" "off" "0" "single" "never") single ("several" "some" "few" "sometimes") several "$ENERGIZE_MULTI_SCREEN_MODE was %S, not often, sometimes, or never\n" energize-screen-mode ("yes" "y" "true" "on" "1" "") t ("no" "n" "false" "off" "0") "$ENERGIZE_SPLIT_SCREENS_P was %S, not a boolean.\n" energize-set-edit-modes intern] 8) ((error (byte-code "ÀÂÃ\")‡" [external-debugging-output standard-output princ "Internal error: %S\n" c] 3)))] 3])
(fset 'format-buffers-menu-line #[(buffer) "ÀÁÂ!‰\"?­ˆ«„ÅP‡‡" [string-match "\\` " buffer-name buffer energize-external-editor "View "] 4 "\
Returns a string to represent the given buffer in the Buffer menu.
nil means the buffer shouldn't be listed.  You can redefine this."])