Mercurial > emacs
changeset 9500:a7ac5850ecb4
(change-log-mode-map): Move the definition up.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Oct 1994 03:29:22 +0000 |
| parents | 151b595bc41a |
| children | 93bb180ef5da |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Thu Oct 13 00:02:32 1994 +0000 +++ b/lisp/add-log.el Thu Oct 13 03:29:22 1994 +0000 @@ -49,6 +49,13 @@ ("\(\\([^)\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 @@ '(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(".