Infinite loop in log-edit-changelog-entries

[Tetsurou Okazaki]

The function `log-edit-changelog-entries' enters an infinite loop
when a corresponding entry is the bottom of the change log buffer
and ends without a line termination.

Backtrace:
Debugger entered--Lisp error: (quit)
  re-search-forward("^[         \n]*$" nil t)
  log-edit-changelog-paragraph()
  log-edit-changelog-entry()
  log-edit-changelog-entries("foo.jsp")
  log-edit-insert-changelog-entries(("foo.jsp"))
  log-edit-insert-changelog()
  run-hooks(log-edit-hook)
  log-edit(cvs-do-commit force cvs-commit-filelist #<buffer *cvs-commit*>)
  cvs-mode-commit(force)
  cvs-mode-commit-setup()
  call-interactively(cvs-mode-commit-setup)




2007-05-26  Tetsurou Okazaki  <address@hidden>  (tiny change)

        * log-edit.el (log-edit-changelog-paragraph): Return point-max
        as the end of the ChangeLog paragraph when it ends without a line
        termination.


Index: lisp/log-edit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/log-edit.el,v
retrieving revision 1.40
diff -c -r1.40 log-edit.el
*** lisp/log-edit.el    21 Jan 2007 03:53:11 -0000      1.40
--- lisp/log-edit.el    26 May 2007 13:39:32 -0000
***************
*** 538,544 ****
              (point))
            (if (re-search-forward "^[ \t\n]*$" nil t)
                (match-beginning 0)
!             (point)))))
  
  (defun log-edit-changelog-subparagraph ()
    "Return the bounds of the ChangeLog subparagraph containing point.
--- 538,544 ----
              (point))
            (if (re-search-forward "^[ \t\n]*$" nil t)
                (match-beginning 0)
!             (point-max)))))
  
  (defun log-edit-changelog-subparagraph ()
    "Return the bounds of the ChangeLog subparagraph containing point.