Fixes to last set of changes.

diff --git a/v7/src/edwin/bufmnu.scm b/v7/src/edwin/bufmnu.scm
index 6ba51069218c7de51c542efd7d8343e40d316a10..e44fdf80ee1896701fc7562a2a4ff45d5e3e9792 100644 (file)
--- 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 891c27bc47e2159aeea32da161b9ede09fbf2900..959356bf502f580f4d0da53aa827b81d1bf03af8 100644 (file)
--- 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 ebc5c7d72e3549c6261008c0d49042d6c0efba33..0f2c162dacc6b7a26d57a39406b6bf71713e7572 100644 (file)
--- 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 fd019cabd16a47d7bf8d7285522e33426255e995..26b062a632eb0bd47dbb92fc4d813b57594d7f73 100644 (file)
--- 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