# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1208832899 0
# Node ID 1e25298a53bcdc106d345925f145d38572694d89
# Parent  6743069007ec04fb5c3ba10bda19ad293df1cc57
(top-level): Require 'cl when compiling.
(change-log-mode): Set copyright-at-end-flag.

diff -r 6743069007ec -r 1e25298a53bc lisp/add-log.el
--- a/lisp/add-log.el	Tue Apr 22 02:54:32 2008 +0000
+++ b/lisp/add-log.el	Tue Apr 22 02:54:59 2008 +0000
@@ -39,6 +39,7 @@
 ;;; Code:
 
 (eval-when-compile
+  (require 'cl)				; ignore-errors
   (require 'timezone))
 
 (defgroup change-log nil
@@ -764,6 +765,7 @@
 
 
 (defvar smerge-resolve-function)
+(defvar copyright-at-end-flag)
 
 ;;;###autoload
 (define-derived-mode change-log-mode text-mode "Change Log"
@@ -783,10 +785,11 @@
   ;; Avoid that filling leaves behind a single "*" on a line.
   (add-hook 'fill-nobreak-predicate
 	    '(lambda ()
-	       (looking-back "^\\s *\\*\\s *" (line-beginning-position))) 
+	       (looking-back "^\\s *\\*\\s *" (line-beginning-position)))
 	    nil t)
   (set (make-local-variable 'indent-line-function) 'change-log-indent)
   (set (make-local-variable 'tab-always-indent) nil)
+  (set (make-local-variable 'copyright-at-end-flag) t)
   ;; 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.  Adding `* ' allows eliding the blank line