From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Nov 1992 17:37:28 +0000 (+0000)
Subject: Fixes to last set of changes.
X-Git-Tag: 20090517-FFI~8763
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=72dc3a099d4539ae63c58acc8ceccba82d9eb502;p=mit-scheme.git

Fixes to last set of changes.
---

diff --git a/v7/src/edwin/bufmnu.scm b/v7/src/edwin/bufmnu.scm
index 6ba510692..e44fdf80e 100644
--- a/v7/src/edwin/bufmnu.scm
+++ b/v7/src/edwin/bufmnu.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: bufmnu.scm,v 1.123 1992/11/16 22:40:51 cph Exp $
+;;;	$Id: bufmnu.scm,v 1.124 1992/11/17 17:37:28 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -136,7 +136,8 @@ Delete -- back up a line and remove marks."
   (lambda (buffer)
     (define-variable-local-value! buffer (ref-variable-object truncate-lines)
       true)
-    (event-distributor/invoke! (ref-variable buffer-menu-mode-hook) buffer)))
+    (event-distributor/invoke! (ref-variable buffer-menu-mode-hook buffer)
+			       buffer)))
 
 (define-variable buffer-menu-mode-hook
   "An event distributor that is invoked when entering Buffer-menu mode."
diff --git a/v7/src/edwin/c-mode.scm b/v7/src/edwin/c-mode.scm
index 891c27bc4..959356bf5 100644
--- a/v7/src/edwin/c-mode.scm
+++ b/v7/src/edwin/c-mode.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: c-mode.scm,v 1.49 1992/11/16 22:40:53 cph Exp $
+;;;	$Id: c-mode.scm,v 1.50 1992/11/17 17:35:02 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -98,11 +98,14 @@ Settings for K&R and BSD indentation styles are
     (define-variable-local-value! buffer
 	(ref-variable-object syntax-ignore-comments-backwards)
       true)
-    (define-variable-local-value! buffer (ref-variable-object paragraph-start)
-      (string-append "^$\\|" (ref-variable page-delimiter)))
-    (define-variable-local-value! buffer
-	(ref-variable-object paragraph-separate)
-      (ref-variable paragraph-start))
+    (let ((paragraph-start
+	   (string-append "^$\\|" (ref-variable page-delimiter buffer))))
+      (define-variable-local-value! buffer
+	  (ref-variable-object paragraph-start)
+	paragraph-start)
+      (define-variable-local-value! buffer
+	  (ref-variable-object paragraph-separate)
+	paragraph-start))
     (define-variable-local-value! buffer
 	(ref-variable-object paragraph-ignore-fill-prefix)
       true)
diff --git a/v7/src/edwin/comint.scm b/v7/src/edwin/comint.scm
index ebc5c7d72..0f2c162da 100644
--- a/v7/src/edwin/comint.scm
+++ b/v7/src/edwin/comint.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: comint.scm,v 1.17 1992/11/17 06:05:39 cph Exp $
+$Id: comint.scm,v 1.18 1992/11/17 17:36:00 cph Exp $
 
 Copyright (c) 1991-1992 Massachusetts Institute of Technology
 
@@ -125,14 +125,14 @@ Entry to this mode runs the hooks on comint-mode-hook."
       '(": %s"))
     (define-variable-local-value! buffer
 	(ref-variable-object comint-input-ring)
-      (make-ring (ref-variable comint-input-ring-size)))
+      (make-ring (ref-variable comint-input-ring-size buffer)))
     (define-variable-local-value! buffer
 	(ref-variable-object comint-last-input-end)
       (mark-right-inserting-copy (buffer-end buffer)))
     (define-variable-local-value! buffer
 	(ref-variable-object comint-last-input-match)
       false)
-    (event-distributor/invoke! (ref-variable comint-mode-hook) buffer)))
+    (event-distributor/invoke! (ref-variable comint-mode-hook buffer) buffer)))
 
 (define-variable comint-mode-hook
   "An event distributor that is invoked when entering Comint mode."
diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index fd019cabd..26b062a63 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.131 1992/11/16 22:40:56 cph Exp $
+;;;	$Id: dired.scm,v 1.132 1992/11/17 17:36:37 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -76,7 +76,7 @@ Also:
   (lambda (buffer)
     (define-variable-local-value! buffer (ref-variable-object case-fold-search)
       false)
-    (event-distributor/invoke! (ref-variable dired-mode-hook) buffer)))
+    (event-distributor/invoke! (ref-variable dired-mode-hook buffer) buffer)))
 
 (define-variable dired-mode-hook
   "An event distributor that is invoked when entering Dired mode."
@@ -639,5 +639,4 @@ krypted and unkrypt it.  Otherwise, krypt it."
 	  (lambda ()
 	    (write-string the-encrypted-string)))
 	(delete-file pathname)
-	(dired-redisplay new-name)))))
-	 
\ No newline at end of file
+	(dired-redisplay new-name)))))
\ No newline at end of file