Forgot to supply buffer in which to do local variable bindings.
authorChris Hanson <org/chris-hanson/cph>
Tue, 6 Feb 2001 04:30:29 +0000 (04:30 +0000)
committerChris Hanson <org/chris-hanson/cph>
Tue, 6 Feb 2001 04:30:29 +0000 (04:30 +0000)
v7/src/edwin/debian-changelog.scm

index 5765cdaa6b16b44d575d8c4f386230628e7ecf86..b3c723652660821a991af6ef73af217a5a8621b1 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: debian-changelog.scm,v 1.2 2001/02/05 21:48:34 cph Exp $
+;;; $Id: debian-changelog.scm,v 1.3 2001/02/06 04:30:29 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -36,19 +36,19 @@ Key bindings:
 
 \\{debian-changelog-mode-map}"
   (lambda (buffer)
-    (local-set-variable! left-margin 2)
-    (local-set-variable! fill-prefix "  ")
-    (local-set-variable! fill-column 74)
+    (local-set-variable! left-margin 2 buffer)
+    (local-set-variable! fill-prefix "  " buffer)
+    (local-set-variable! fill-column 74 buffer)
 
     ;; Let each entry behave as one paragraph:
-    (local-set-variable! paragraph-start "\\*")
-    (local-set-variable! paragraph-separate "\\*\\|\\s-*$|\\S-")
+    (local-set-variable! paragraph-start "\\*" buffer)
+    (local-set-variable! paragraph-separate "\\*\\|\\s-*$|\\S-" buffer)
 
     ;; Let each version behave as one page.
     ;; Match null string on the heading line so that the heading line
     ;; is grouped with what follows.
-    (local-set-variable! page-delimiter "^\\<")
-    (local-set-variable! version-control 'NEVER)
+    (local-set-variable! page-delimiter "^\\<" buffer)
+    (local-set-variable! version-control 'NEVER buffer)
 
     (event-distributor/invoke! (ref-variable debian-changelog-mode-hook buffer)
                               buffer)))