;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 18:54:27 1994 ;;; from file /th/jwz/emacs19/lisp/energize/energize-advice.el ;;; emacs version 19.10 Lucid (beta8). ;;; 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 "!KM" [fboundp ad-Orig-ask-user-about-lock-around-energize ask-user-about-lock] 2) (fset 'ask-user-about-lock #[(fn opponent) "p! \" )" [nil ad-return-value energize-buffer-p t ad-Orig-ask-user-about-lock-around-energize fn opponent] 3 "\ Ask user what to do when he wants to edit FILE but it is locked by USER. This function has a choice of three things to do: do (signal 'buffer-file-locked (list FILE USER)) to refrain from editing the file return t (grab the lock on the file) return nil (edit the file even though it is locked). You can rewrite it to use any criterion you like to choose which one to do. Energize buffers do this by asking the server."]) (byte-code "!KM" [fboundp ad-Orig-normal-mode-after-energize normal-mode] 2) (fset 'normal-mode #[(&optional find-file) " !p! p! )" [nil ad-return-value ad-Orig-normal-mode-after-energize find-file energize-buffer-p inside-energize-buffer-creation-hook-function energize-create-buffer-hook] 2 "\ Choose the major mode for this buffer automatically. Also sets up any specified local variables of the file. Uses the visited file name, the -*- line, and the local variables spec. This function is called automatically from `find-file'. In that case, we may set up specified local variables depending on the value of `enable-local-variables': if it is t, we do; if it is nil, we don't; otherwise, we query. `enable-local-variables' is ignored if you run `normal-mode' explicitly. If this is an Energize buffer, the Energize modes are turned on as well." nil]) (byte-code "!KM" [fboundp ad-Orig-find-file-noselect-around-energize find-file-noselect] 2) (fset 'find-file-noselect #[(filename &optional nowarn) " ! \" ! \" )" [nil ad-return-value connected-to-energize-p file-directory-p filename energize-query-buffer t ad-Orig-find-file-noselect-around-energize nowarn] 3 "\ Read file FILENAME into a buffer and return the buffer. If a buffer exists visiting FILENAME, return that one, but verify that the file has not changed since visited or saved. The buffer is not selected, just returned to the caller. This function has been encapsulated to work with Energize."]) (byte-code "!KM" [fboundp ad-Orig-write-file-around-energize write-file] 2) (fset 'write-file #[(filename) " !  ! \"!!ed % Ή\"! !\") )" [nil ad-return-value energize-write-file-buffer-p ad-Orig-write-file-around-energize filename file-exists-p yes-or-no-p format "File %s already exists. Overwrite it? " error "Aborted" write-region buffer-file-name revert-buffer t kill-buffer set-window-buffer selected-window find-file-noselect] 6 "\ Write current buffer into file FILENAME. Makes buffer visit that file, and marks it not modified. If the buffer is already visiting a file, you can specify a directory name as FILENAME, to write a file of the same old name in that directory. When executed on an Energize buffer, this will cause all annotations to be lost (that is, the buffer will become a normal buffer, not one that the Energize server knows about.)" (byte-code "!ĉ%! Aĉ %C" [buffer-file-name read-file-name gettext "Write file: " nil default-directory buffer-local-variables buffer-name] 6)]) (byte-code "!KM" [fboundp ad-Orig-set-visited-file-name-around-energize set-visited-file-name] 2) (fset 'set-visited-file-name #[(filename) " ! !p! )" [nil ad-return-value energize-write-file-buffer-p filename buffer-file-name error "Can't change the name associated with an Energize buffer." ad-Orig-set-visited-file-name-around-energize energize-buffer-p energize-mode-internal] 2 "\ Change name of file visited in current buffer to FILENAME. The next time the buffer is saved it will go in the newly specified file. nil or empty string as argument means make buffer not be visiting any file. Remember to delete the initial contents of the minibuffer if you wish to pass an empty string as the argument. The file name associated with an Energize buffer cannot be changed in thisway. Use the `write-file' command instead." "FSet visited file name: "]) (byte-code "!KM" [fboundp ad-Orig-next-error-around-energize next-error] 2) (fset 'next-error #[(&optional argp) " ! Ǫ! )" [nil ad-return-value connected-to-energize-p non-energize-errors-exist-p ad-Orig-next-error-around-energize argp energize-execute-command "previouserror" "nexterror"] 2 "\ Visit next compilation error message and corresponding source code. This operates on the output from the \\[compile] command. If all preparsed error messages have been processed, the error message buffer is checked for new ones. A prefix arg specifies how many error messages to move; negative means move back to previous error messages. Just C-u as a prefix means reparse the error message buffer and start at the first error. \\[next-error] normally applies to the most recent compilation started, but as long as you are in the middle of parsing errors from one compilation output buffer, you stay with that compilation output buffer. Use \\[next-error] in a compilation output buffer to switch to processing errors from that compilation. See variables `compilation-parse-errors-function' and `compilation-error-regexp-alist' for customization ideas. This function has been encapsulated to work with the Energize Error Log." "P"]) (byte-code "!KM" [fboundp ad-Orig-gdb-break-around-energize gdb-break] 2) (fset 'gdb-break #[(temp) "p! !! )" [nil ad-return-value energize-buffer-p ad-Orig-gdb-break-around-energize temp energize-execute-command "setbreakpoint"] 2 "\ Set GDB breakpoint at this source line. With ARG set temporary breakpoint. This function has been encapsulated to work with the Energize debugger." "P"]) (byte-code "!KM" [fboundp ad-Orig-gdb-step-around-energize gdb-step] 2) (fset 'gdb-step #[(arg) "p! ! V! Sr) )" [nil ad-return-value energize-buffer-p ad-Orig-gdb-step-around-energize arg 0 energize-execute-command "steponce"] 3 "\ Step one source line with display This function has been encapsulated to work with the Energize debugger." "p"]) (byte-code "!KM" [fboundp ad-Orig-gdb-stepi-around-energize gdb-stepi] 2) (fset 'gdb-stepi #[(arg) "p! ! qdb \"c * )" [nil ad-return-value energize-buffer-p ad-Orig-gdb-stepi-around-energize arg "*Debugger*" format "stepi %d" comint-send-input] 3 "\ Step one instruction with display This function has been encapsulated to work with the Energize debugger." "p"])