mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(top-level): Require 'cl when compiling.

Browse source 
(change-log-mode): Set copyright-at-end-flag.
This commit is contained in:
Glenn Morris 2008-04-22 02:54:59 +00:00
parent b2c7c56d57
commit 8bb4ed88c3
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/add-log.el
View file

@ -39,6 +39,7 @@
;;; Code:
(eval-when-compile
(require 'cl) ; ignore-errors
(require 'timezone))
(defgroup change-log nil
@ -764,6 +765,7 @@ the change log file in another window."
(defvar smerge-resolve-function)
(defvar copyright-at-end-flag)
;;;###autoload
(define-derived-mode change-log-mode text-mode "Change Log"
@ -783,10 +785,11 @@ Runs `change-log-mode-hook'.
;; 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