From a2089dbdfb514107d3d1464c419e1ab056e8f94f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 6 Apr 1988 21:31:31 +0000 Subject: [PATCH] Change interface to print ";No value" when the value string would be null. --- etc/xscheme.el | 33 ++++++++++++++++----------------- 1 file changed, 16 insertions(+), 17 deletions(-) diff --git a/etc/xscheme.el b/etc/xscheme.el index 98038943c..73e609629 100644 --- a/etc/xscheme.el +++ b/etc/xscheme.el @@ -21,7 +21,7 @@ ;;; Requires C-Scheme release 5 or later ;;; Changes to Control-G handler require runtime version 13.85 or later -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.15 1987/12/10 04:01:50 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.16 1988/04/06 21:31:31 cph Exp $ (require 'scheme) @@ -807,24 +807,23 @@ the remaining input.") nil) (defun xscheme-message (string) - (xscheme-write-message-1 nil string)) + (if (not (zerop (length string))) + (xscheme-write-message-1 string (format ";%s" string)))) (defun xscheme-write-value (string) - (xscheme-write-message-1 "Value" string)) - -(defun xscheme-write-message-1 (prefix string) - (if (not (zerop (length string))) - (progn (let* ((process (get-process "scheme")) - (window (get-buffer-window (process-buffer process)))) - (if (or (not window) - (not (pos-visible-in-window-p (process-mark process) - window))) - (message "%s" string))) - (xscheme-guarantee-newlines 1) - (xscheme-process-filter-output-1 - (if prefix - (format ";%s: %s" prefix string) - (format ";%s" string)))))) + (if (zerop (length string)) + (xscheme-write-message-1 "(no value)" ";No value") + (xscheme-write-message-1 string (format ";Value: %s" string)))) + +(defun xscheme-write-message-1 (message-string output-string) + (let* ((process (get-process "scheme")) + (window (get-buffer-window (process-buffer process)))) + (if (or (not window) + (not (pos-visible-in-window-p (process-mark process) + window))) + (message "%s" message-string))) + (xscheme-guarantee-newlines 1) + (xscheme-process-filter-output-1 output-string)) (defun xscheme-set-prompt-variable (string) (setq xscheme-prompt string)) -- 2.25.1