From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 28 Apr 2021 08:05:53 +0000 (+0200)
Subject: Improve add-log-current-defun-header-regexp
X-Git-Tag: emacs-28.0.90~2681
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=244499292e0c5e0f210435f3949963e54f4dc4db;p=emacs.git

Improve add-log-current-defun-header-regexp

* lisp/vc/add-log.el (add-log-current-defun-header-regexp):
Allow digits.  Require at least one letter.  (Bug#48037)
---

diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el
index 6b388066515..2e20284951f 100644
--- a/lisp/vc/add-log.el
+++ b/lisp/vc/add-log.el
@@ -1194,7 +1194,7 @@ file were isearch was started."
     (forward-paragraph n)))
 
 (defcustom add-log-current-defun-header-regexp
-  "^\\([[:upper:]][[:upper:]_ ]*[[:upper:]_]\\|[-_[:alpha:]]+\\)[ \t]*[:=]"
+  "^\\([[:upper:]][[:upper:]_ ]*[[:upper:]_]\\|[-_[:alnum:]]*[[:alpha:]][-_[:alnum:]]*\\)[ \t]*[:=]"
   "Heuristic regexp used by `add-log-current-defun' for unknown major modes.
 The regexp's first submatch is placed in the ChangeLog entry, in
 parentheses."