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 <[EMAIL PROTECTED]> (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.
_______________________________________________
emacs-pretest-bug mailing list
emacs-pretest-bug@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
