;ELC ;;; compiled by mcuddy@whitewater on Wed May 18 05:09:18 1994 ;;; from file /u/jwz/emacs19/lisp/energize/energize-menus.el ;;; emacs version 19.10 Lucid (beta23). ;;; 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.")) (byte-code "!!!ć" [require menubar boundp sc-mode nil font-lock-mode] 2) (defconst energize-menu-item-table (make-vector 511 nil) "\ obarray used for fast mapping of symbolic energize request-names to the functions that invoke them.") (defvar energize-default-menu-state nil "\ List of the Energize menu items associated with every buffers.") (defvar energize-menu-state nil "\ Buffer local variable listing the menu items associated with a buffer.") (byte-code "#M!\n\n)! MMMM#\"@!\"@\"@ >! >\"!!AB\"䠈\"\"\"F+=?C C-\"@!..\"@0.>11A\".+\"\"\"\"\"@AB@CD@ЁEF\"ЁGH\"ЁIJ\"@ЁKL\"M+=NЁOP\"QRSTUVWXQYZ[@\\Ё]^\"_Ё`a\"Ёbc\"Ed@ef@gNhiQЁOP\"QjklmQnopQqr@sЁ]^\"_Ё`a\"Ёbc\"E@tu@v@w+=߁xЁyz\"Ё{|\"@Ё}~#Ё\"@ЁIJ\"Ё\"Ё\"@Ё\"Ё\"xЁyz\"Ё{|\"@Ё}~#@ЁOP\"@Ё\"Ё\"@ЁIJ\"Ё\"@@Ё\"@Ё\"+=΁Ё\"Ё\"@ЁIJ\"Ё\"@Ё\"Ё\"@Ё\" ρЁ\"Ё\"@Ё\"Ё\"@ЁIJ\"Ё\"@@Ё\"+=Ё\"Ё\"ЁEF\"@Ё\"@Ё\"Ё\"Ё\"@Ё]^\"_Ё`a\"Ёbc\"E@Ё\"bЁ\"Ё\"@ЁEF\"@@Ё\"@Ё\"Ё\"@Ё\"@Ё]^\"_Ё`a\"Ёbc\"E@Ё\"\"@ !Ё\"" [put energize-menu-state permanent-local t energize-update-menu-state #[(items) "@pĎ\nq)*" [items previous-buffer buffer energize-default-menu-state ((set-buffer previous-buffer)) energize-menu-state] 3] energize-menu-update-hook boundp initial-energize-timeout-state ("." ".." "..." "...." "....." "......" "......." "........") l energize-timeout-state energize-warn-kernel-slow #[(pair) "A @ @$ š" [energize-timeout-state message "%s Type %c to cancel%s" pair interrupt-char t] 5] energize-with-timeout (macro . #[(notice &rest body) " EDDB˯E" [let* timeout-pair cons notice nil (timeout (add-timeout 1.5 'energize-warn-kernel-slow timeout-pair 1.5)) unwind-protect progn body (disable-timeout timeout) (setq energize-timeout-state initial-energize-timeout-state) (if (cdr timeout-pair) (message ""))] 7]) energize-def-menu-item #[(name function &optional dont-define) " !# \" L \" D!M ! ɉ$" [put function energize-name purecopy name intern energize-menu-item-table dont-define lambda nil format "Executes the Energize \"%s\" command." (interactive) energize-execute-command vector] 8] energize-def-menu (macro . #[(menu-name &rest items) "\nD \"\"" [append list menu-name mapcar #[(x) ":@;\"B" [x energize-def-menu-item mapcar #[(xx) ";!D" [xx purecopy quote] 2]] 4] items] 5]) lisp-indent-function 1 purecopy-menubar ["sheet" energize-toggle-psheet nil] copy-sequence find-menu-item default-menubar ("File") file ("Print Buffer") print ("Exit Emacs") exit print-cons exit-cons ["Print Annotated Buffer" energize-annotate-print-ps t] ["Connect to Energize" energize-menu-connect-directly (not (connected-to-energize-p))] "checkpoint" energize-checkpoint-database ["Disconnect from Energize" disconnect-from-energize (connected-to-energize-p)] "----" "energizeShutdownServer" energize-kill-server menubar-religion winning ("Edit") edit ("Clear") clear clear-cons append ("-----" ["Search and Replace..." energize-search t] ["Search Selection Forward" ow-find (or ow-find-last-string (x-selection-owner-p))] ["Search Selection Backward" ow-find-backward (or ow-find-last-string (x-selection-owner-p))]) "Browse" ["editdef" energize-edit-definition t] "editdec" energize-edit-declaration-dbox "calltreebrowser" energize-browse-tree "classbrowser" energize-browse-class "lebrowser" energize-browse-language-elt "includers" energize-where-included "-----" ["visituse" energize-next-use-start (connected-to-energize-p)] ["nextuse" energize-next-use-command (connected-to-energize-p)] ["List History" energize-history (connected-to-energize-p)] ["Step Back in History" energize-history-previous (connected-to-energize-p)] "energize" energize-pop-to-energize-buffer "showsystemlog" energize-browse-system-log "errorbrowser" energize-browse-error "toolstatus" energize-browse-toolstat ["Shell" shell t] "Options" "debuggerpanel" energize-show-debugger-panel "------" ["Read Only" toggle-read-only :style toggle :selected buffer-read-only] ["Case Sensitive Search" (setq case-fold-search (not case-fold-search)) :style toggle :selected (not case-fold-search)] ["Overstrike" overwrite-mode :style toggle :selected overwrite-mode] ["Auto Delete Selection" (if (memq 'pending-delete-pre-hook pre-command-hook) (pending-delete-off nil) (pending-delete-on nil)) :style toggle :selected (memq 'pending-delete-pre-hook pre-command-hook)] ["Teach Extended Commands" (setq teach-extended-commands-p (not teach-extended-commands-p)) :style toggle :selected teach-extended-commands-p] ("Syntax Highlighting" ["None" (font-lock-mode 0) :style radio :selected (null font-lock-mode)] ["Fonts" (progn (require 'font-lock) (font-lock-use-default-fonts) (font-lock-mode 1)) :style radio :selected (and font-lock-mode (equal (find-face 'italic) (find-face 'font-lock-comment-face)))] ["Colors" (progn (require 'font-lock) (font-lock-use-default-colors) (font-lock-mode 1)) :style radio :selected (and font-lock-mode (not (equal (find-face 'italic) (find-face 'font-lock-comment-face))))] "-----" ["Less" (progn (require 'font-lock) (font-lock-use-default-minimal-decoration) (font-lock-mode 0) (font-lock-mode 1)) :style radio :selected (and font-lock-mode (eq c++-font-lock-keywords c-font-lock-keywords-1))] ["More" (progn (require 'font-lock) (font-lock-use-default-maximal-decoration) (font-lock-mode 0) (font-lock-mode 1)) :style radio :selected (and font-lock-mode (eq c++-font-lock-keywords c-font-lock-keywords-2))]) ("Paren Highlighting" ["None" (blink-paren 0) :style radio :selected (not (memq 'blink-paren-pre-command pre-command-hook))] ["Blink" (progn (setq highlight-paren-expression nil) (blink-paren 1)) :style radio :selected (and (not highlight-paren-expression) (memq 'blink-paren-pre-command pre-command-hook))] ["Highlight" (progn (setq highlight-paren-expression t) (blink-paren 1)) :style radio :selected (and highlight-paren-expression (memq 'blink-paren-pre-command pre-command-hook))]) ("Font" "initialized later") ("Size" "initialized later") ("Weight" "initialized later") ["Energize Edit Modes..." energize-set-edit-modes t] "setprojectdisplay" energize-set-project-display "Target Display" "fulltargets" energize-full-targets "abbreviatetargets" energize-abbreviate-targets ("Source Control" ["None" (sc-mode nil) :style radio :selected (eq sc-mode nil)] ["SCCS" (sc-mode 'SCCS) :style radio :selected (eq sc-mode 'SCCS)] ["RCS" (sc-mode 'RCS) :style radio :selected (eq sc-mode 'RCS)] ["CVS" (sc-mode 'CVS) :style radio :selected (eq sc-mode 'CVS)] ["ClearCase" (sc-mode 'CCASE) :style radio :selected (eq sc-mode 'CCASE)]) ["Buffers Menu Length..." (progn (setq buffers-menu-max-size (read-number "Enter number of buffers to display (or 0 for unlimited): ")) (if (eq buffers-menu-max-size 0) (setq buffers-menu-max-size nil))) t] ["Buffers Sub-Menus" (setq complex-buffers-menu-p (not complex-buffers-menu-p)) :style toggle :selected complex-buffers-menu-p] ["Save Options" save-options-menu-settings t] ["Split Screen" split-window-vertically t] ["Unsplit" delete-other-windows t] ["Read Only" toggle-read-only :style toggle :selected buffer-read-only] ["Overstrike " overwrite-mode :style toggle :selected overwrite-mode] ["Auto Delete Selection" (if (memq 'pending-delete-pre-hook pre-command-hook) (pending-delete-off nil) (pending-delete-on nil)) :style toggle :selected (memq 'pending-delete-pre-hook pre-command-hook)] ["Teach Extended" (setq teach-extended-commands-p (not teach-extended-commands-p)) :style toggle :selected teach-extended-commands-p] ("Font" "initialized later") ("Size" "initialized later") ("Weight" "initialized later") ("Syntax Highlighting" ["None" (font-lock-mode 0) :style radio :selected (null font-lock-mode)] ["Fonts" (progn (font-lock-use-default-fonts) (font-lock-mode 1)) :style radio :selected (and font-lock-mode (equal (find-face 'italic) (find-face 'font-lock-comment-face)))] ["Colors" (progn (font-lock-use-default-colors) (font-lock-mode 1)) :style radio :selected (and font-lock-mode (not (equal (find-face 'italic) (find-face 'font-lock-comment-face))))] "-----" ["Less" (progn (font-lock-use-default-minimal-decoration) (font-lock-mode 0) (font-lock-mode 1)) :style radio :selected (and font-lock-mode (eq c++-font-lock-keywords c-font-lock-keywords-1))] ["More" (progn (font-lock-use-default-maximal-decoration) (font-lock-mode 0) (font-lock-mode 1)) :style radio :selected (and font-lock-mode (eq c++-font-lock-keywords c-font-lock-keywords-2))]) ("Paren Highlighting" ["None" (blink-paren 0) :style radio :selected (not (memq 'blink-paren-pre-command pre-command-hook))] ["Blink" (progn (setq highlight-paren-expression nil) (blink-paren 1)) :style radio :selected (and (not highlight-paren-expression) (memq 'blink-paren-pre-command pre-command-hook))] ["Highlight" (progn (setq highlight-paren-expression t) (blink-paren 1)) :style radio :selected (and highlight-paren-expression (memq 'blink-paren-pre-command pre-command-hook))]) ["Energize Edit Modes..." energize-set-edit-modes t] ["Buffers Length..." (progn (setq buffers-menu-max-size (read-number "Enter number of buffers to display (or 0 for unlimited): ")) (if (eq buffers-menu-max-size 0) (setq buffers-menu-max-size nil))) t] ["Buffers Menus" (setq complex-buffers-menu-p (not complex-buffers-menu-p)) :style toggle :selected complex-buffers-menu-p] ("Source Control" ["None" (sc-mode nil) :style radio :selected (eq sc-mode nil)] ["SCCS" (sc-mode 'SCCS) :style radio :selected (eq sc-mode 'SCCS)] ["RCS" (sc-mode 'RCS) :style radio :selected (eq sc-mode 'RCS)] ["CVS" (sc-mode 'CVS) :style radio :selected (eq sc-mode 'CVS)] ["ClearCase" (sc-mode 'CCASE) :style radio :selected (eq sc-mode 'CCASE)]) ["Save Options" save-options-menu-settings t] "Debug" "debugprogram" energize-debug-target "runprogram" energize-run-target "setbreakpoint" gdb-break "breaklist" energize-list-breakpoints ["Next Error" next-error t] ["Previous Error" previous-error :keys "\\[universal-argument] \\[next-error]"] "clearerrorlog" energize-clear-error-log "cleardebuggerlog" energize-clear-debugger-log "closeprogram" energize-debugger-kill-program "quitdebugger" energize-quit-debugger ["Next Error" next-error t] ["Previous Error" previous-error :keys "\\[universal-argument] \\[next-error]"] "Compile" "buildatarget" energize-build-a-target "custombuildatarget" energize-custom-build-a-target ["Next Error" next-error t] ["Previous Error" previous-error :keys "\\[universal-argument] \\[next-error]"] "defaultcompile" energize-default-compile-file "custombuildfile" energize-custom-build-file "deleteallobjects" energize-delete-object-files ["Next Error" next-error t] ["Previous Error" previous-error :keys "\\[universal-argument] \\[next-error]"] "Project" "newproject" energize-new-project "findproject" energize-find-project ["Save Project" save-buffer (eq major-mode 'energize-project-mode)] ["currentproject" energize-pop-to-project-buffer nil nil] ("addprojectentry" ["addobjectfiletarget" energize-insert-object-file-target (eq major-mode 'energize-project-mode)] "-----" ["addexecutabletarget" energize-insert-executable-target (eq major-mode 'energize-project-mode)] ["addlibrarytarget" energize-insert-library-target (eq major-mode 'energize-project-mode)] ["addcollectiontarget" energize-insert-collection-target (eq major-mode 'energize-project-mode)] "-----" ["addtargettarget" energize-insert-target-target (eq major-mode 'energize-project-mode)] ["addfiletarget" energize-insert-file-target (eq major-mode 'energize-project-mode)] "-----" ["addrule" energize-insert-rule (eq major-mode 'energize-project-mode)]) "instrumentatarget" energize-instrument-a-target "importproject" energize-import-project "importprojectlist" energize-import-project-list "writeprojectlist" energize-write-project-list "revertproject" energize-fully-revert-project-buffer ["Save Project" save-buffer (eq major-mode 'energize-project-mode)] ["currentproject" energize-pop-to-project-buffer nil nil] ["New C/C++ File" energize-insert-object-file-target (eq major-mode 'energize-project-mode)] ("addprojectentry" ["addobjectfiletarget" energize-insert-object-file-target (eq major-mode 'energize-project-mode)] "-----" ["addexecutabletarget" energize-insert-executable-target (eq major-mode 'energize-project-mode)] ["addlibrarytarget" energize-insert-library-target (eq major-mode 'energize-project-mode)] ["addcollectiontarget" energize-insert-collection-target (eq major-mode 'energize-project-mode)] "-----" ["addtargettarget" energize-insert-target-target (eq major-mode 'energize-project-mode)] ["addfiletarget" energize-insert-file-target (eq major-mode 'energize-project-mode)] "-----" ["addrule" energize-insert-rule (eq major-mode 'energize-project-mode)]) ("Buffers") nil ("Help") energize-menubar "project" energize-pop-to-project-buffer] 34) (fset 'energize-menu-connect-directly #[nil "!" [connect-to-energize nil] 2 nil nil]) (defvar energize-instrument-menu-options nil "\ List of menu items which are instruments for Energize targets") (fset 'energize-define-instrumentatarget-using-tool #[(tool) "\nP! \nĚŪ\n! B %\"@\nAq\n B \n\"\nׯM+" [intern "energize-instrumentatarget-using-" tool energize-instrument-menu-options "" "DBX Compatible" capitalize name l function add-menu-item ("Project") (connected-to-energize-p) "instrumentatarget" add-hook energize-hack-popup-hook energize-hack-instruments-in-popup lambda nil format "Instruments a target using \"%s\"" (interactive) energize-execute-command t] 11 "\ Add a menu item (and function) supporting instrumenting a particular tool"]) (fset 'energize-hack-instruments-in-popup #[(ex m) "A @HÚ  @!@ɚʪ@! @ I) @@P!I  ABAE*, A))" [m l 0 "instrument" energize-instrument-menu-options nil v r vconcat "" "DBX Compatible" capitalize name 1 intern "energize-instrumentatarget-using-"] 6]) (fset 'energize-sensitize-instruments-hook #[nil "" [nil (byte-code " \"@H H  @ͪ̚ @ D\"@ ) I  I AT-" [energize-instrument-menu-options l find-menu-item current-menubar ("Project" "instrumentatarget") institem 2 exenable 3 exname nil item "" "DBX Compatible" citem "Project"] 5) ((error))] 3 "\ Sensitize the menubar by adding the executable to any derived instrumented targets"]) (byte-code "M !!!$M" [energize-set-default-menubar #[nil " !\"\"# ʉ " [set-menubar energize-menubar add-hook activate-menubar-hook build-buffers-menu-hook sensitize-file-and-edit-menus-hook energize-sensitize-instruments-hook t 20 buffers-menu-max-size nil complex-buffers-menu-p] 4 nil nil] energize-define-instrumentatarget-using-tool "" "purify" add-menu-item ("Help") purecopy "About Energize" energize-about-energize t #[nil "#" [start-process "about-energize" nil "about_energize"] 4 nil nil]] 5) (fset 'energize-kill-server #[nil "" [nil (energize-execute-command "energizeShutdownServer") ((error))] 3 "\ Kill the Energize server and all buffers associated with it." nil]) (fset 'energize-unix-manual #[nil " !!" [connected-to-energize-p energize-execute-command "manual" call-interactively manual-entry] 2 "\ Display a manual entry; if connected to Energize, uses the Energize version. Otherwise, just runs the normal emacs `manual-entry' command." nil]) (byte-code "MN>\"#MMM#M\"!" [activate-energize-menu-item-internal #[(item) " ! H9 N?? ? H?= ??IA GV H AI*) : A!Ƈ" [vectorp item 1 fn energize-name active-items nil change-p active-p 2 t 3 activate-energize-menu-items-internal] 4] byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand activate-energize-menu-items-internal #[(items) "\n:\n ! H9N?? ? H?=  ??I  A GV H  AI *) : A!)\n\n@ ! H9N?? ? H?=  ??I  A GV H  AI *) : A!) \nA )" [nil change-p items item vectorp 1 fn energize-name active-items active-p 2 t 3 activate-energize-menu-items-internal] 5] energize-build-menubar-names #[nil "! AWB$ ͎p\n#+\"\"\"*" [x-selection-exists-p PRIMARY selection-p energize-protocol-level 7 "Getting updated menubar from Energize server..." nil timeout-pair add-timeout 1.5 energize-warn-kernel-slow 1.5 timeout ((byte-code " !\n A!" [disable-timeout timeout initial-energize-timeout-state energize-timeout-state timeout-pair message ""] 2)) energize-list-menu append energize-menu-state energize-default-menu-state menubar delq mapcar #[(x) " ! H\"U?? H\"J HB" [vectorp x logand 3 1 0 intern-soft energize-menu-item-table 4] 3]] 5] activate-energize-menu-items-hook #[nil "  \n\n@:A! \nAa ,?" [connected-to-energize-p current-menubar items nil change-p energize-build-menubar-names active-items item activate-energize-menu-items-internal] 3] add-hook activate-menubar-hook t deactivate-all-energize-menu-items #[nil " @\n:\nA\n! Ah+" [current-menubar nil item active-items items activate-energize-menu-items-internal] 4] purecopy append options-menu-saved-forms ((list 'energize-set-edit-modes (if energize-external-editor (symbol-name energize-external-editor)) (list 'quote energize-vi-terminal-emulator) (list 'quote energize-internal-viewer) (list 'quote energize-internal-editor) (cond ((get 'browser 'instance-limit) ''multi) ((get 'energize-top-level-mode 'screen-name) ''several) (t ''single)) (list 'quote energize-split-screens-p)) (if sc-mode (list 'sc-mode (list 'quote sc-mode)) '(if (featurep 'generic-sc) (sc-mode nil))))] 4) (defvar energize-hack-popup-hook nil "\ Hook for all functions that want to hack at the Energize popup menus. Each function takes two arguments: an extent (or nil if none) and a menu (or nil if none currently). It should return a menu (or nil)") (byte-code "MMMMMMMMM\"MB" [energize-popup-menu #[(event) " ? !! !! ! ! \"  !! B$Ԏ  !#AA +  ʉ#! \"! \"B #!@ᚫ%!)!+" [popup-menu-up-p window-buffer event-window event buffer extentp event-glyph energize-menu-extent-at event-point extent nil choices select-window "Asking Energize server for menu contents..." timeout-pair add-timeout 1.5 energize-warn-kernel-slow 1.5 timeout ((byte-code " !\n A!" [disable-timeout timeout initial-energize-timeout-state energize-timeout-state timeout-pair message ""] 2)) energize-list-menu x-selection-exists-p PRIMARY energize-extent-run-hook energize-hack-popup-hook energize-popup-menu error "No menu to pop up" force-highlight-extent t sit-for 0 "energizePopup" mapcar #[(item) " H H E H\"U H$" [vector item 0 energize-execute-command extent logand 3 1 4] 6] external-editor-hack-popup popup-menu-titles popup-menu] 5 nil "e"] energize-extent-run-hook #[(f ex m) "A\n@\n \"# " [f energize-extent-run-hook ex m] 6] energize-menu-extent-at #[(pos buffer) "??\n\" ! )" [pos energize-extent-at buffer extent energize-extent-menu-p] 4] default-selection-value-for-item #[(menu-item) "H\n\"U!\"\n\"U!\"\n\"U!\"\n\"U!\")" [menu-item 3 flags logand 2 x-selection-owner-p PRIMARY x-get-selection-internal STRING 4 ENERGIZE_OBJECT 128 SECONDARY 256] 3] energize-execute-menu-item-with-selection #[(buffer extent item selection no-confirm) " H\"U H\" !\n  %" [logand item 3 1 0 error "The `%s' command is inappropriate in this context" selection default-selection-value-for-item energize-execute-menu-item buffer extent no-confirm] 6] energize-find-item #[(name list) " \n @ A !o Hg c\n+" [list nil found i l vectorp 0 name] 3] energize-menu-item-for-name #[(extent name) " AWB $\nˎp!$+\"\"" [extent energize-protocol-level 7 "Checking Energize command with kernel..." nil timeout-pair add-timeout 1.5 energize-warn-kernel-slow 1.5 timeout ((byte-code " !\n A!" [disable-timeout timeout initial-energize-timeout-state energize-timeout-state timeout-pair message ""] 2)) energize-list-menu x-selection-exists-p PRIMARY name energize-find-item energize-menu-state energize-default-menu-state] 5] energize-execute-command #[(name &optional extent selection no-confirm) ";\" !Śp!y`S`S#)p   ! ` \" AW \"\"  %)!ُښ  %)*" [name error "Can't execute a choice, %s, that is not a string" connected-to-energize-p "Not connected to Energize" "setbreakpoint" selection vector energize-buffer-id 0 nil buffer extent extentp energize-menu-extent-at energize-protocol-level 7 energize-menu-item-for-name item "No Energize command named %s" energize-execute-menu-item-with-selection no-confirm x-selection-exists-p PRIMARY (byte-code "\"" [x-get-selection-internal PRIMARY STRING] 3) ((error "")) "save" energize-make-many-buffers-visible-should-enqueue-event energize-execute-command-internal] 7 nil "sExecute Energize command named: "] energize-check-if-buffer-locked #[nil " B $Ɏ +" [connected-to-energize-p "Asking Energize server if buffer is editable..." nil timeout-pair add-timeout 1.5 energize-warn-kernel-slow 1.5 timeout ((byte-code " !\n A!" [disable-timeout timeout initial-energize-timeout-state energize-timeout-state timeout-pair message ""] 2)) energize-barf-if-buffer-locked] 5] add-hook first-change-hook xselect-convert-to-energize #[(selection type value) ":@!A!@!!@!SA!S!! ??\"\n W \n  @\"\"I @\"I A\"\"I A\"I \"\"I \"\"I \"\"I \"I \n\"\"I \n\"\"I \n\"\"I \n\"I B-" [nil tmp end start id str value markerp energize-buffer-id marker-buffer marker-position extentp extent-to-generic-id 0 make-string 12 logand ash -8 255 1 2 3 4 -24 5 -16 6 7 8 9 10 11 ENERGIZE_OBJECT] 6] ENERGIZE_OBJECT selection-converter-alist (ENERGIZE_OBJECT . xselect-convert-to-energize)] 3) (fset 'energize-define-function-keys #[nil " # # # # # # # # # # # # # # # # #" [define-key global-map f1 help-for-help f3 energize-search (shift delete) x-kill-primary-selection (control insert) x-copy-primary-selection (shift insert) x-yank-clipboard-selection (control delete) x-delete-primary-selection f7 energize-browse-error (meta f7) next-error (meta f8) previous-error f9 energize-build-a-target (meta f9) energize-default-compile-file (control f9) energize-run-target (meta shift f9) energize-abort-build (meta control 46) energize-edit-declaration-dbox f5 energize-browse-language-elt (shift f5) energize-next-use-start (control f5) energize-next-use-command] 4 "\ Define some Borland/Motif-like `F' keys for Energize."]) (byte-code "M\"" [energize-x-initializations #[nil " " [energize-define-function-keys] 1] add-hook before-init-hook] 3)