Add object that can be yielded as the result of an evaluation in order

to suppress the ";value" message from the evaluation.  This allows the
Emacs interface to transmit commands to Scheme without having those
commands appear in the buffer.

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index be2460d9a1548edbc1d8c13ef66486254bd20414..bea09594ab07b34f0fa66a906c2070a4bfa90d94 100644 (file)
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: emacs.scm,v 14.19 1993/10/21 14:52:34 cph Exp $
+$Id: emacs.scm,v 14.20 1993/11/19 22:17:07 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -134,7 +134,9 @@ MIT in each case. |#
 
 (define (emacs/write-result port expression object hash-number)
   expression
-  (cond ((undefined-value? object)
+  (cond ((eq? object emacs/write-result/ignore)
+        unspecific)
+       ((undefined-value? object)
         (transmit-signal-with-argument port #\v ""))
        (hash-number
         ;; The #\P command used to do something useful, but now
@@ -149,6 +151,9 @@ MIT in each case. |#
        (else
         (transmit-signal-with-argument port #\v (write-to-string object)))))
 
+(define emacs/write-result/ignore
+  (list 'EMACS/WRITE-RESULT/IGNORE))
+
 (define (emacs/error-decision repl condition)
   repl condition
   (transmit-signal the-console-port #\z)