# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 840568315 0
# Node ID 18c1dcf40139cee69bf7834252ce223f2a153d71
# Parent  4877d1aa80adf71e61f1000f2e4290a930516ee9
(change-log-mode): Set fill-paragraph-function.
(change-log-mode-map): Deleted; no bindings left.

diff -r 4877d1aa80ad -r 18c1dcf40139 lisp/add-log.el
--- a/lisp/add-log.el	Tue Aug 20 19:10:47 1996 +0000
+++ b/lisp/add-log.el	Tue Aug 20 19:11:55 1996 +0000
@@ -52,13 +52,6 @@
     ("(\\([^)\n]+\\)):" 1 font-lock-keyword-face))	; Function name.
   "Additional expressions to highlight in Change Log mode.")
 
-(defvar change-log-mode-map nil
-  "Keymap for Change Log major mode.")
-(if change-log-mode-map
-    nil
-  (setq change-log-mode-map (make-sparse-keymap))
-  (define-key change-log-mode-map "\M-q" 'change-log-fill-paragraph))
-
 (defun change-log-name ()
   (or change-log-default-name
       (if (eq system-type 'vax-vms) 
@@ -283,9 +276,10 @@
 	mode-name "Change Log"
 	left-margin 8
 	fill-column 74
-    indent-tabs-mode t
-    tab-width 8)
-  (use-local-map change-log-mode-map)
+	indent-tabs-mode t
+	tab-width 8)
+  (set (make-local-variable 'fill-paragraph-function)
+       'change-log-fill-paragraph)
   ;; Let each entry behave as one paragraph:
   ;; We really do want "^" in paragraph-start below: it is only the lines that
   ;; begin at column 0 (despite the left-margin of 8) that we are looking for.