Eliminate additional (and harmful) unbinding of local variables in

RESET-EDITOR.

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index 5784af755748f580166f5b8e0328c6899548260a..d8fb964ad60f6089e493efe36afc4909a6a223c9 100644 (file)
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.215 1992/02/17 22:00:58 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.216 1992/02/18 14:09:51 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -193,17 +193,6 @@ with the contents of the startup message."
    (lambda ()
      (if edwin-editor
         (begin
-          ;; Restore the default bindings of all of the local
-          ;; variables in the current buffer.
-          (let ((buffer
-                 (window-buffer
-                  (screen-selected-window
-                   (editor-selected-screen edwin-editor)))))
-            (for-each (lambda (binding)
-                        (%%set-variable-value! (car binding)
-                                               (cdr binding)))
-                      (buffer-local-bindings buffer))
-            (vector-set! buffer buffer-index:local-bindings '()))
           (for-each (lambda (screen)
                       (screen-discard! screen))
                     (editor-screens edwin-editor))