;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:47:51 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-bat.el ;;; emacs version 19.8 (beta12) Lucid. ;;; bytecomp version 2.18; 28-aug-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.")) (fset 'mark-change-lisp #[(arg) "À‰ŠÃ Ä ) «šÆ\nÈ#@ ÊË \"ˆÌ \"‰)ª ÊÍ \"ˆÆ\nÈ#?­’Î ‰\nÀ“ˆB‰)*‡" [nil name point lisp-defun-begin lisp-def-name arg lisp-memk lisp-changes marker-position marker message "%s marked as unchanged" delq "%s marked as changed" make-marker new] 5 "\ Mark the current defun as being changed so that lisp-eval-changes, or lisp-compile-changes will work on it. With a prefix, unmark." "P"]) (byte-code "<«„ÁB\n:«„Á\nBÇ" [popper-pop-buffers "*Changed-Definitions*" popper-buffers-to-skip nil] 2) (fset 'list-changes-lisp #[nil "ÀÁ \"!‰«–ÅÆ !ˆŠÅqˆebˆÇ ˆÈc)‘ªƒÉÊ!)‡" [reverse mapcar #[(change) "ŠÀ !qˆ bˆÂ )‡" [marker-buffer change lisp-def-name] 2] lisp-changes names "*Changed-Definitions*" display-completion-list kill-line "Changed LISP forms:" error "No changed definitions"] 5 "\ List the name of LISP forms currently marked as being changed." nil]) (fset 'clear-changes-lisp #[nil "ÀÁ!ˆÂ‰‡" [message "Cleared changes" nil lisp-changes] 2 "\ Clear the list of LISP forms currently marked as being changed." nil]) (fset 'lisp-change-handler #[(&rest args) "@\n«Ã Å#¬† ÆB¤)AÇ \"‡" [ilisp-pending-changes change comint-errorp lisp-memk lisp-changes marker-position nil apply comint-handler args] 4 "\ Handle an error during a batch process by keeping the change on the list and passing it on to the normal error handler."]) (fset 'lisp-changes #[(command message) "ŠÀ qˆ ­„ Â=?à !Å ¤ Å\n«ŽŠÅ\nËÌ!qˆed|ˆ)«²@ ÅÏ !qˆ bˆÐ Ñ ˆ `ÅÓ\"ÅÕ&ˆA*ªJÖ× Ø\"ˆ«…ÔÙ!ª‡ÔÚ!ˆÅ‰,‡" [ilisp-buffer current-prefix-arg - reverse lisp-changes nil lisp-wait-p changes keep ilisp-pending-changes comint-queue-emptied get-buffer-create "*Errors*" change name marker-buffer lisp-def-name forward-sexp command format message lisp-change-handler comint-send-code ilisp-process #[nil "ŠÀÁ!qˆed|ˆŠÂqˆÃ )c)‡" [get-buffer-create "*Last-Changes*" "*Errors*" buffer-string] 2] "Started, but keeping changes" "Started changes"] 7 "\ Apply COMMAND to each of the changes and use MESSAGE to print a message given the name of the change. If there is a positive prefix, the change list will not be changed."]) (fset 'eval-changes-lisp #[nil "ÀÁÂ\"‡" [lisp-changes eval-region-lisp "Evaluate changed %s"] 3 "\ Evaluate the forms marked as being changed. With prefix, do not clear the change list." nil]) (fset 'compile-changes-lisp #[nil "ÀÁÂ\"‡" [lisp-changes compile-region-lisp "Compile changed %s"] 3 "\ Compile the forms marked as being changed. With prefix, do not clear the change list." nil]) (provide 'ilisp-bat)