diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-13 03:29:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-13 03:29:22 +0000 |
| commit | 7cbce61a86dc66555c440febd574eb086836511a (patch) | |
| tree | bea301e272f4db589e541ea655b276522b99c590 /lisp/add-log.el | |
| parent | 4ad70d94b01cfcb7e3b365cd48e4b2806263c67b (diff) | |
| download | emacs-7cbce61a86dc66555c440febd574eb086836511a.tar.gz | |
(change-log-mode-map): Move the definition up.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 14 |
1 files changed, 7 insertions, 7 deletions
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(". |