From dab0cb956404af13e6201bf641b54cffab5d0166 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 13 Oct 1994 03:29:22 +0000 Subject: (change-log-mode-map): Move the definition up. --- lisp/add-log.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'lisp') diff --git a/lisp/add-log.el b/lisp/add-log.el index 0012f9f4d1..b7557b0150 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(". -- cgit v1.2.3