Mercurial > emacs
changeset 94225:1e25298a53bc
(top-level): Require 'cl when compiling.
(change-log-mode): Set copyright-at-end-flag.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 22 Apr 2008 02:54:59 +0000 |
| parents | 6743069007ec |
| children | 8191f88f6fb9 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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