Change unparser methods for buffers, commands, variables, and modes to

show the object's name.

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index 9326fb816595b1dc9c7f9e59dad54640b039db09..c1a6b8d57f8ca55c8040f309b35cb8590cc62b92 100644 (file)
--- 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 7fcd956d061e8adda3bb81f686d76a1e7ae21d31..c5c9c91afa80ee27038d90540b65fbe931a9d1e1 100644 (file)
--- 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 140f4035e432560c5496ab2fe955b9cea2e030a9..d201ecba502c49c35c30b82e4a139e65760b4d50 100644 (file)
--- 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)))