Mercurial > emacs
changeset 15887:18c1dcf40139
(change-log-mode): Set fill-paragraph-function.
(change-log-mode-map): Deleted; no bindings left.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 20 Aug 1996 19:11:55 +0000 |
| parents | 4877d1aa80ad |
| children | f3afa8fdaf52 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 4 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Tue Aug 20 19:10:47 1996 +0000 +++ b/lisp/add-log.el Tue Aug 20 19:11:55 1996 +0000 @@ -52,13 +52,6 @@ ("(\\([^)\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 @@ 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.