aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/add-log.el5
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