diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-08-20 19:11:55 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-08-20 19:11:55 +0000 |
| commit | e27f72d2b509d42f42e2a3505fc49f2bb35b9241 (patch) | |
| tree | e7f5d469c27a7c967b39e5663c9a62011d679aca /lisp/add-log.el | |
| parent | 4447b167740e2961accac15c7cdbce0d5ca92b59 (diff) | |
| download | emacs-e27f72d2b509d42f42e2a3505fc49f2bb35b9241.tar.gz | |
(change-log-mode): Set fill-paragraph-function.
(change-log-mode-map): Deleted; no bindings left.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 14 |
1 files 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. |