;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:44:44 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-out.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 'lisp-pop-to-buffer #[(buffer) "\n!\n! !Ɗ\nqJ)@ !\n!)\nq" [ilisp-epoch-running epoch::get-buffer-window buffer get-buffer-window ilisp-window select-window epoch::select-screen allowed-screens epoch::current-screen pop-to-buffer] 3 "\ Like pop-to-buffer, but select a screen that buffer was shown in."]) (fset 'lisp-display-output #[(output) "\"!! ! = =\"p   ͎ !p = Q!R!։+ =\" \"" [output ilisp-value comint-errorp t ilisp-error-filter lisp-no-popper comint-display-output message string-match "\n" selected-window window buffer ((byte-code " ! ! q" [window-point window select-window buffer] 2)) lisp-pop-to-buffer ilisp-buffer ilisp-last-buffer comint-insert ilisp-last-message ";;; " comint-remove-whitespace ilisp-last-prompt nil "%s" error "Unknown value of lisp-no-popper: '%s"] 5 "\ Display OUTPUT in the appropriate place: If lisp-no-popper is T then display in lisp window. If lisp-no-popper is 'message then display in message window if output is one line or less. if lisp-no-popper is Nil then the blasted popper will be used."]) (fset 'switch-to-lisp #[(eob-p &optional ilisp-only) " \n > !\n >p !db" [ilisp-only ilisp-last-buffer major-mode ilisp-modes lisp-pop-to-buffer ilisp-buffer eob-p] 2 "\ If in an ILISP buffer, switch to the buffer that last switched to an ILISP otherwise, switch to the current ILISP buffer. With argument, positions cursor at end of buffer. If you don't want to split windows, set pop-up-windows to NIL." "P"]) (provide 'ilisp-out)