From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Oct 1994 03:29:22 +0000 (+0000)
Subject: (change-log-mode-map): Move the definition up.
X-Git-Tag: emacs-19.34~6354
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dab0cb956404af13e6201bf641b54cffab5d0166;p=emacs.git

(change-log-mode-map): Move the definition up.
---

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 0012f9f4d1f..b7557b0150a 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -49,6 +49,13 @@ 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) 
@@ -269,13 +276,6 @@ Runs `change-log-mode-hook'."
        '(change-log-font-lock-keywords t))
   (run-hooks 'change-log-mode-hook))
 
-(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))
-
 ;; It might be nice to have a general feature to replace this.  The idea I
 ;; have is a variable giving a regexp matching text which should not be
 ;; moved from bol by filling.  change-log-mode would set this to "^\\s *\\s(".