[emacs/f18] rpm-goto-add-change-log-entry is not working (#970924)

[Petr Hracek]

commit 222fd19083bea49419bb9b9717b1857a0a7a59d9
Author: Petr Hracek <phracek at redhat.com>
Date:   Tue Jun 11 10:23:08 2013 +0200

    rpm-goto-add-change-log-entry is not working (#970924)

 emacs.spec                     |    7 ++++++-
 rpm-spec-mode-changelog2.patch |   21 +++++++++++++++++++++
 2 files changed, 27 insertions(+), 1 deletions(-)
---
diff --git a/emacs.spec b/emacs.spec
index 2073772..8bcdb82 100644
--- a/emacs.spec
+++ b/emacs.spec
@@ -3,7 +3,7 @@ Summary: GNU Emacs text editor
 Name: emacs
 Epoch: 1
 Version: 24.2
-Release: 18%{?dist}
+Release: 19%{?dist}
 License: GPLv3+
 URL: http://www.gnu.org/software/emacs/
 Group: Applications/Editors
@@ -22,6 +22,7 @@ Source11: rpm-spec-mode-init.el
 Patch1: rpm-spec-mode.patch
 Patch2: rpm-spec-mode-utc.patch
 Patch3: rpm-spec-mode-changelog.patch
+Patch4: rpm-spec-mode-changelog2.patch
 # rhbz#713600
 Patch7: emacs-spellchecker.patch
 # rhbz#830162, fixed in org-mode upstream
@@ -188,6 +189,7 @@ pushd site-lisp
 %patch1 -p0
 %patch2 -p0
 %patch3 -p0
+%patch4 -p0
 popd
 
 # We prefer our emacs.desktop file
@@ -475,6 +477,9 @@ update-desktop-database &> /dev/null || :
 %dir %{_datadir}/emacs/site-lisp/site-start.d
 
 %changelog
+* Tue Jun 11 2013 Petr Hracek <phracek at redhat.com> - 1:24.2-19
+- rpm-goto-add-change-log-entry is not working (#970924)
+
 * Fri Apr 12 2013 Petr Hracek <phracek at redhat.com> - 1:24.2-18
 - emacs rpm spec mode is no more provided (#951101)
 
diff --git a/rpm-spec-mode-changelog2.patch b/rpm-spec-mode-changelog2.patch
new file mode 100644
index 0000000..278a650
--- /dev/null
+++ b/rpm-spec-mode-changelog2.patch
@@ -0,0 +1,21 @@
+diff --git a/rpm-spec-mode.el b/rpm-spec-mode.el
+index 63c37fa..88a7247 100644
+--- a/rpm-spec-mode.el
++++ b/rpm-spec-mode.el
+@@ -739,12 +739,16 @@ If `rpm-change-log-uses-utc' is nil, \"today\" means the local time zone."
+   (interactive "sChange log entry: ")
+   (save-excursion
+     (rpm-goto-add-change-log-header)
++      (while (looking-at "^-")
++             (forward line))
+       (insert "- " change-log-entry "\n")))
+ 
+ (defun rpm-goto-add-change-log-entry ()
+   "Goto change log and add an header for today (if needed)."
+   (interactive)
+   (rpm-goto-add-change-log-header)
++  (while (looking-at "^-")
++         (forward line))
+   (insert "- \n")
+   (end-of-line '0))
+