Move debian-changelog-mode-hook into "loadef.scm".
authorChris Hanson <org/chris-hanson/cph>
Tue, 13 Feb 2001 18:45:04 +0000 (18:45 +0000)
committerChris Hanson <org/chris-hanson/cph>
Tue, 13 Feb 2001 18:45:04 +0000 (18:45 +0000)
v7/src/edwin/debian-changelog.scm
v7/src/edwin/loadef.scm

index b3c723652660821a991af6ef73af217a5a8621b1..f8331718a273bc19381645e04f270c71e4b654c3 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: debian-changelog.scm,v 1.3 2001/02/06 04:30:29 cph Exp $
+;;; $Id: debian-changelog.scm,v 1.4 2001/02/13 18:44:58 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -34,7 +34,7 @@ Runs `debian-changelog-mode-hook' if it exists.
 
 Key bindings:
 
-\\{debian-changelog-mode-map}"
+\\{debian-changelog}"
   (lambda (buffer)
     (local-set-variable! left-margin 2 buffer)
     (local-set-variable! fill-prefix "  " buffer)
@@ -53,10 +53,6 @@ Key bindings:
     (event-distributor/invoke! (ref-variable debian-changelog-mode-hook buffer)
                               buffer)))
 
-(define-variable debian-changelog-mode-hook
-  "An event distributor that is invoked when entering Debian changelog mode."
-  (make-event-distributor))
-
 (define-key 'debian-changelog '(#\C-c #\C-a) 'debian-changelog-add-entry)
 (define-key 'debian-changelog '(#\C-c #\C-f)
   'debian-changelog-finalize-last-version)
index 67025d566034fee4889925f07ed558da90a296dd..af375a29dd239f9b99fc75fed37dfe3bc1c7123e 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: loadef.scm,v 1.44 2001/02/05 21:48:37 cph Exp $
+;;; $Id: loadef.scm,v 1.45 2001/02/13 18:45:04 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -386,6 +386,10 @@ This defaults to the value `mail-full-name'."
 This defaults to the value of `user-mail-address'."
   #f
   string-or-false?)
+
+(define-variable debian-changelog-mode-hook
+  "An event distributor that is invoked when entering Debian changelog mode."
+  (make-event-distributor))
 \f
 ;;;; DOS-specific commands