From 60f10a06e17d4d020a6b5dc068132e8680f0a4dd Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 20 Aug 1996 19:11:55 +0000 Subject: [PATCH] (change-log-mode): Set fill-paragraph-function. (change-log-mode-map): Deleted; no bindings left. --- lisp/add-log.el | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/lisp/add-log.el b/lisp/add-log.el index c6974583e66..84ea0c71024 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -52,13 +52,6 @@ This defaults to the value of `user-mail-address'.") ("(\\([^)\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 @@ Runs `change-log-mode-hook'." 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. -- 2.39.2