Index: emacs/lisp/add-log.el
diff -c emacs/lisp/add-log.el:1.165 emacs/lisp/add-log.el:1.166
*** emacs/lisp/add-log.el:1.165 Thu Jun 23 00:42:02 2005
--- emacs/lisp/add-log.el Mon Jul 4 01:45:30 2005
***************
*** 33,39 ****
(require 'timezone))
(defgroup change-log nil
! "Change log maintenance"
:group 'tools
:link '(custom-manual "(emacs)Change Log")
:prefix "change-log-"
--- 33,39 ----
(require 'timezone))
(defgroup change-log nil
! "Change log maintenance."
:group 'tools
:link '(custom-manual "(emacs)Change Log")
:prefix "change-log-"
***************
*** 607,619 ****
(beginning-of-line 1)
(looking-at "\\s *\\(\\*\\s *\\)?$"))
(insert ": ")
! (if version (insert version ?\ )))
;; Make it easy to get rid of the function name.
(undo-boundary)
(unless (save-excursion
(beginning-of-line 1)
(looking-at "\\s *$"))
! (insert ?\ ))
;; See if the prev function name has a message yet or not.
;; If not, merge the two items.
(let ((pos (point-marker)))
--- 607,619 ----
(beginning-of-line 1)
(looking-at "\\s *\\(\\*\\s *\\)?$"))
(insert ": ")
! (if version (insert version ?\s)))
;; Make it easy to get rid of the function name.
(undo-boundary)
(unless (save-excursion
(beginning-of-line 1)
(looking-at "\\s *$"))
! (insert ?\s))
;; See if the prev function name has a message yet or not.
;; If not, merge the two items.
(let ((pos (point-marker)))
***************
*** 633,639 ****
(insert "("))
(set-marker pos nil))
(insert defun "): ")
! (if version (insert version ?\ )))))
;;;###autoload
(defun add-change-log-entry-other-window (&optional whoami file-name)
--- 633,639 ----
(insert "("))
(set-marker pos nil))
(insert defun "): ")
! (if version (insert version ?\s)))))
;;;###autoload
(defun add-change-log-entry-other-window (&optional whoami file-name)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
