From d921e332be6bd5ef1dee441bec7a18ec89826310 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Tue, 27 Sep 2005 09:01:58 +0000
Subject: [PATCH] Some improvements to the history

part of darcs patch Sun Sep 18 20:27:35 EEST 2005  Eric Knauel <knauel@informatik.uni-tuebingen.de>
---
 scheme/nuit-engine.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index 0ba3ed8..ba0b134 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -87,7 +87,10 @@
   (cond
    ((current-history-item)
     => (lambda (entry)
-	 (set-history-entry-viewer! (entry-data entry) new-viewer)))
+	 (if (not (eq? (history-entry-viewer (entry-data entry))
+		       new-viewer))
+	     (append-to-history!
+	      (make-history-entry #f '() new-viewer)))))
    (else (values))))
 
 (define (append-to-history! history-entry)
@@ -680,8 +683,11 @@
       => (lambda (entry)
 	   (mvwaddstr win 1 2 
 		      (maybe-shorten-string 
-		       (history-entry-command (entry-data entry)) width)))))
-    (wrefresh win)))
+		       (if (entry-data entry)
+			   "user interaction"
+			   (history-entry-command (entry-data entry))) 
+		       width)))))
+     (wrefresh win)))
 
 ;;Cursor
 ;;move cursor to the corrct position