(add-change-log-entry): Insert version number

if having found a current function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2c9180c3e9ac5485eb9a4418b262686f8a889510..51a7a2145d264c9608931e8ef717c30cedf8def6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,7 @@
-2000-01-09 Sun  Jari Aalto  <jari.aalto@poboxes.com>
+2000-01-11 Sun  Jari Aalto  <jari.aalto@poboxes.com>
+
+       * add-log.el (add-change-log-entry): Insert version number
+       if having found a current function.
 
        * add-log.el (add-log-current-defun): Call
        `add-log-current-defun-function'.  Try matches at level 0 and

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 30802c4155d29ad06f67909c9eef30206f23c63a..bb911904ad6348e62527ad89fcddddd64728faf3 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -486,7 +486,9 @@ non-nil, otherwise in local time."
       (if (not (save-excursion
                 (beginning-of-line 1)
                 (looking-at "\\s *\\(\\*\\s *\\)?$")))
-         (insert ": ")))))
+         (insert ": "
+                 (if version
+                     (concat version " ") ))))))
 
 ;;;###autoload
 (defun add-change-log-entry-other-window (&optional whoami file-name)