diff options
| -rw-r--r-- | lisp/add-log.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 84ea0c71024..ff1ecabbdcc 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -52,6 +52,12 @@ This defaults to the value of `user-mail-address'.") | |||
| 52 | ("(\\([^)\n]+\\)):" 1 font-lock-keyword-face)) ; Function name. | 52 | ("(\\([^)\n]+\\)):" 1 font-lock-keyword-face)) ; Function name. |
| 53 | "Additional expressions to highlight in Change Log mode.") | 53 | "Additional expressions to highlight in Change Log mode.") |
| 54 | 54 | ||
| 55 | (defvar change-log-mode-map nil | ||
| 56 | "Keymap for Change Log major mode.") | ||
| 57 | (if change-log-mode-map | ||
| 58 | nil | ||
| 59 | (setq change-log-mode-map (make-sparse-keymap))) | ||
| 60 | |||
| 55 | (defun change-log-name () | 61 | (defun change-log-name () |
| 56 | (or change-log-default-name | 62 | (or change-log-default-name |
| 57 | (if (eq system-type 'vax-vms) | 63 | (if (eq system-type 'vax-vms) |
| @@ -278,6 +284,7 @@ Runs `change-log-mode-hook'." | |||
| 278 | fill-column 74 | 284 | fill-column 74 |
| 279 | indent-tabs-mode t | 285 | indent-tabs-mode t |
| 280 | tab-width 8) | 286 | tab-width 8) |
| 287 | (use-local-map change-log-mode-map) | ||
| 281 | (set (make-local-variable 'fill-paragraph-function) | 288 | (set (make-local-variable 'fill-paragraph-function) |
| 282 | 'change-log-fill-paragraph) | 289 | 'change-log-fill-paragraph) |
| 283 | ;; Let each entry behave as one paragraph: | 290 | ;; Let each entry behave as one paragraph: |