[Emacs-diffs] emacs-24 r117335: * lisp/vc/log-edit.el (log-edit-goto-eoh): New function.

[Stefan Monnier]

------------------------------------------------------------
revno: 117335
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17861
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Tue 2014-07-01 11:15:03 -0400
message:
  * lisp/vc/log-edit.el (log-edit-goto-eoh): New function.
  (log-edit--match-first-line): Use it.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/log-edit.el            logedit.el-20091113204419-o5vbwnq5f7feedwu-1776

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-01 07:00:46 +0000
+++ b/lisp/ChangeLog    2014-07-01 15:15:03 +0000
@@ -1,3 +1,8 @@
+2014-07-01  Stefan Monnier  <address@hidden>
+
+       * vc/log-edit.el (log-edit-goto-eoh): New function.
+       (log-edit--match-first-line): Use it (bug#17861).
+
 2014-07-01  Glenn Morris  <address@hidden>
 
        * vc/log-edit.el (log-edit-hook): Add missing :version.

=== modified file 'lisp/vc/log-edit.el'
--- a/lisp/vc/log-edit.el       2014-07-01 07:00:46 +0000
+++ b/lisp/vc/log-edit.el       2014-07-01 15:15:03 +0000
@@ -357,9 +357,15 @@
       (set-match-data (list start (point)))
       (point))))
 
+(defun log-edit-goto-eoh ()             ;FIXME: Almost rfc822-goto-eoh!
+  (goto-char (point-min))
+  (when (re-search-forward
+        "^\\([^[:alpha:]]\\|[[:alnum:]-]+[^[:alnum:]-:]\\)" nil 'move)
+    (goto-char (match-beginning 0))))
+
 (defun log-edit--match-first-line (limit)
   (let ((start (point)))
-    (rfc822-goto-eoh)
+    (log-edit-goto-eoh)
     (skip-chars-forward "\n")
     (and (< start (line-end-position))
          (< (point) limit)