;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:44:18 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-bug.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 'ilisp-bug #[nil "p!\"!p Ǫ! \nc Q!cccy c#c q) >>P q )#\" q` !'()(')d('{&,c! !\"c>> \">!A q )%@!\"c q )%@!\"cceb!!,)" [y-or-n-p format "Is %s the buffer where the error occurred? " buffer-name buffer mail message "Can't send bug report until mail buffer is empty." "Switch to the buffer where the error occurred." beep ilisp-bugs-to search-forward "\n" mail-header-separator "\nYour problem: \n\n" "Type C-c C-c to send\n" "======= Emacs state below: for office use only =======\n" 1 emacs-version "\nWindow System: %s %s" window-system window-system-version major-mode "popper-\\|completer-" nil string val-buffer match mode lisp-source-modes ilisp-modes "ilisp-\\|comint-\\|lisp-" ilisp-buffer mapcar #[(dialect) "\n@\" P" [format "%s-\\|" dialect match] 3] ilisp-dialects lisp-defun-begin lisp-end-defun-text t end start point "\nMode: %s\nStart: %s\nEnd: %s\nPoint: %s\nPoint-max: %s\nCode: %s" mapatoms #[(symbol) " ! \"\" =?q J) #c)" [boundp symbol string-match match format "%s" ilisp-documentation val-buffer val "\n%s: %s"] 6] "\nLossage: %s" key-description recent-keys clisp ilisp-value ilisp-dialect comint-send-queue "\nLISP: %s" comint-remove-whitespace comint-send ilisp-process "(lisp-implementation-version)" version "\n*FEATURES*: %s" "(let ((*print-length* nil)\n (*print-level* nil))\n (print *features*)\n nil)" 10 re-search-forward "^Subject" "Send with sendmail or your favorite mail program."] 10 "\ Generate an ilisp bug report." nil]) (provide 'ilisp-bug)