[nongnu] elpa/logview c410321b70 013/259: When creating 'logview--entry-regexp', behave as if format string always ends with whitespace.

[ELPA Syncer]

branch: elpa/logview
commit c410321b700f1f28eb96d743849612602ab92535
Author: Paul Pogonyshev <pogonyshev@gmail.com>
Commit: Paul Pogonyshev <pogonyshev@gmail.com>

    When creating 'logview--entry-regexp', behave as if format string always 
ends with whitespace.
---
 logview.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/logview.el b/logview.el
index 8e087e2f03..de45282a96 100644
--- a/logview.el
+++ b/logview.el
@@ -50,11 +50,11 @@
 ;; compound widget types.
 
 (defvar logview-std-submodes
-  '(("SLF4J" . ((format  . "TIMESTAMP [THREAD] LEVEL NAME - ")
+  '(("SLF4J" . ((format  . "TIMESTAMP [THREAD] LEVEL NAME -")
                 (levels  . "SLF4J")
                 (aliases . ("Log4j" "Log4j2" "Logback"))))
     ;; We misuse thread as a field for hostname.
-    ("UNIX"  . ((format  . "TIMESTAMP THREAD NAME: "))))
+    ("UNIX"  . ((format  . "TIMESTAMP THREAD NAME:"))))
   "Alist of standard submodes.
 This value is used as the fallback for customizable
 `logview-additional-submodes'.")
@@ -1137,6 +1137,9 @@ These are:
       (setq search-from end))
     (when (< search-from (length format))
       (funcall add-text-part search-from nil))
+    ;; Always behave as if format string ends with whitespace.
+    (unless (string-match "[ \t]$" format)
+      (push "[ \t]+" parts))
     (let ((regexp (apply 'concat (reverse parts))))
       (if (string-match regexp test-line)
           (progn