diff options
| -rw-r--r-- | lisp/add-log.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 78077e220bd..6ef369d20ef 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -39,6 +39,7 @@ | |||
| 39 | ;;; Code: | 39 | ;;; Code: |
| 40 | 40 | ||
| 41 | (eval-when-compile | 41 | (eval-when-compile |
| 42 | (require 'cl) ; ignore-errors | ||
| 42 | (require 'timezone)) | 43 | (require 'timezone)) |
| 43 | 44 | ||
| 44 | (defgroup change-log nil | 45 | (defgroup change-log nil |
| @@ -764,6 +765,7 @@ the change log file in another window." | |||
| 764 | 765 | ||
| 765 | 766 | ||
| 766 | (defvar smerge-resolve-function) | 767 | (defvar smerge-resolve-function) |
| 768 | (defvar copyright-at-end-flag) | ||
| 767 | 769 | ||
| 768 | ;;;###autoload | 770 | ;;;###autoload |
| 769 | (define-derived-mode change-log-mode text-mode "Change Log" | 771 | (define-derived-mode change-log-mode text-mode "Change Log" |
| @@ -783,10 +785,11 @@ Runs `change-log-mode-hook'. | |||
| 783 | ;; Avoid that filling leaves behind a single "*" on a line. | 785 | ;; Avoid that filling leaves behind a single "*" on a line. |
| 784 | (add-hook 'fill-nobreak-predicate | 786 | (add-hook 'fill-nobreak-predicate |
| 785 | '(lambda () | 787 | '(lambda () |
| 786 | (looking-back "^\\s *\\*\\s *" (line-beginning-position))) | 788 | (looking-back "^\\s *\\*\\s *" (line-beginning-position))) |
| 787 | nil t) | 789 | nil t) |
| 788 | (set (make-local-variable 'indent-line-function) 'change-log-indent) | 790 | (set (make-local-variable 'indent-line-function) 'change-log-indent) |
| 789 | (set (make-local-variable 'tab-always-indent) nil) | 791 | (set (make-local-variable 'tab-always-indent) nil) |
| 792 | (set (make-local-variable 'copyright-at-end-flag) t) | ||
| 790 | ;; We really do want "^" in paragraph-start below: it is only the | 793 | ;; We really do want "^" in paragraph-start below: it is only the |
| 791 | ;; lines that begin at column 0 (despite the left-margin of 8) that | 794 | ;; lines that begin at column 0 (despite the left-margin of 8) that |
| 792 | ;; we are looking for. Adding `* ' allows eliding the blank line | 795 | ;; we are looking for. Adding `* ' allows eliding the blank line |