From 2f756a074b94bef482386cd78c9dc27eaa7a01dd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 Aug 1989 04:42:50 +0000
Subject: [PATCH] Change unparser methods for buffers, commands, variables, and
 modes to show the object's name.

---
 v7/src/edwin/buffer.scm |  9 ++++++++-
 v7/src/edwin/comman.scm | 15 ++++++++++++++-
 v7/src/edwin/modes.scm  | 11 ++++++++++-
 3 files changed, 32 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index 9326fb816..c1a6b8d57 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.133 1989/08/09 14:43:20 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.134 1989/08/10 04:42:50 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -65,6 +65,13 @@
   backed-up?
   modification-time
   )
+
+(unparser/set-tagged-vector-method!
+ %buffer-tag
+ (unparser/standard-method 'BUFFER
+   (lambda (state buffer)
+     (unparse-object state (buffer-name buffer)))))
+
 (define-variable buffer-creation-hook
   "If not false, a procedure to call when a new buffer is created.
 The procedure is passed the new buffer as its argument.
diff --git a/v7/src/edwin/comman.scm b/v7/src/edwin/comman.scm
index 7fcd956d0..c5c9c91af 100644
--- a/v7/src/edwin/comman.scm
+++ b/v7/src/edwin/comman.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comman.scm,v 1.60 1989/08/09 13:16:56 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comman.scm,v 1.61 1989/08/10 04:42:31 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -52,6 +52,12 @@
   interactive-specification
   procedure)
 
+(unparser/set-tagged-vector-method!
+ %command-tag
+ (unparser/standard-method 'COMMAND
+   (lambda (state command)
+     (unparse-object state (command-name command)))))
+
 (define (command-name-string command)
   (editor-name/internal->external (symbol->string (command-name command))))
 
@@ -98,6 +104,13 @@
   value
   assignment-daemons
   buffer-local?)
+
+(unparser/set-tagged-vector-method!
+ %variable-tag
+ (unparser/standard-method 'VARIABLE
+   (lambda (state variable)
+     (unparse-object state (variable-name variable)))))
+
 (define (variable-name-string variable)
   (editor-name/internal->external (symbol->string (variable-name variable))))
 
diff --git a/v7/src/edwin/modes.scm b/v7/src/edwin/modes.scm
index 140f4035e..d201ecba5 100644
--- a/v7/src/edwin/modes.scm
+++ b/v7/src/edwin/modes.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modes.scm,v 1.24 1989/08/09 13:17:56 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modes.scm,v 1.25 1989/08/10 04:42:21 cph Rel $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -55,6 +55,15 @@
   initialization
   alist
   )
+
+(unparser/set-tagged-vector-method!
+ %mode-tag
+ (unparser/standard-method 'MODE
+   (lambda (state mode)
+     (unparse-object state (mode-name mode))
+     (if (not (mode-major? mode))
+	 (unparse-string state " (minor)")))))
+
 (define (make-mode name major? display-name comtabs description initialization)
   (let ((mode
 	 (let ((name (symbol->string name)))
-- 
2.25.1