From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Jul 1987 20:01:53 +0000 (+0000)
Subject: Remap some prompts to values that look better in the modeline.
X-Git-Tag: 20090517-FFI~13304
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=104b56c66ffe0eb32a84baec4966d6c90c82d36d;p=mit-scheme.git

Remap some prompts to values that look better in the modeline.
---

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index 4a85891ae..49bb0fd42 100644
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 13.42 1987/03/07 17:36:00 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 13.43 1987/07/02 20:01:53 cph Exp $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -75,12 +75,6 @@
 (define (emacs-rep-message string)
   (transmit-signal-with-argument #\m string))
 
-(define (emacs-rep-prompt level string)
-  (transmit-signal-with-argument #\p
-				 (string-append (object->string level)
-						" "
-						string)))
-
 (define (emacs-rep-value object)
   (transmit-signal-with-argument #\v (object->string object)))
 
@@ -89,6 +83,27 @@
     (lambda ()
       (write object))))
 
+(define (emacs-rep-prompt level string)
+  (transmit-signal-with-argument
+   #\p
+   (string-append (object->string level)
+		  " "
+		  (let ((entry (assoc string emacs-rep-prompt-alist)))
+		    (if entry
+			(cdr entry)
+			string)))))
+
+(define emacs-rep-prompt-alist
+  '(("]=>" . "[Normal REPL]")
+    ("==>" . "[Normal REPL]")
+    ("Eval-in-env-->" . "[Normal REPL]")
+    ("Bkpt->" . "[Breakpoint REPL]")
+    ("Error->" . "[Error REPL]")
+    ("Debug-->" . "[Debugger]")
+    ("Debugger-->" . "[Debugger REPL]")
+    ("Where-->" . "[Environment Inspector]")
+    ("Which-->" . "[Task Inspector]")))
+
 (define (emacs-read-char-immediate)
   (define (loop)
     (let ((char (primitive-read-char-immediate)))