From 2435f811b946ec54ab1da90aded52caddef977c8 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 27 Nov 2019 18:19:30 +0200
Subject: [PATCH] Make some anonymous faces extend to EOL

* lisp/vc/log-edit.el (log-edit-font-lock-keywords):
* lisp/mpc.el (mpc-separator):
* lisp/help.el (describe-key):
* lisp/help-fns.el (describe-symbol): Make the anonymous faces
extend to EOL.
---
 lisp/help-fns.el    | 3 ++-
 lisp/help.el        | 3 ++-
 lisp/mpc.el         | 2 +-
 lisp/vc/log-edit.el | 2 +-
 4 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 14dea7de9b7..40c57d05be9 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -1463,7 +1463,8 @@ current buffer and the selected frame, respectively."
                            (progn (skip-chars-backward " \t\n") (point)))
             (insert "\n\n"
                     (eval-when-compile
-                      (propertize "\n" 'face '(:height 0.1 :inverse-video t)))
+                      (propertize "\n" 'face
+                                  '(:height 0.1 :inverse-video t :extend t)))
                     "\n")
             (when name
               (insert (symbol-name symbol)
diff --git a/lisp/help.el b/lisp/help.el
index c4402ece4e5..604a365957c 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -869,7 +869,8 @@ current buffer."
                 (insert "\n\n"
                         ;; FIXME: Can't use eval-when-compile because purified
                         ;; strings lose their text properties :-(
-                        (propertize "\n" 'face '(:height 0.1 :inverse-video t))
+                        (propertize "\n" 'face
+                                    '(:height 0.1 :inverse-video t :extend t))
                         "\n")))
 
             (princ brief-desc)
diff --git a/lisp/mpc.el b/lisp/mpc.el
index 8e557ed2b35..c39257937bf 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1606,7 +1606,7 @@ when constructing the set of constraints."
                 (make-overlay (point) (point)))
     (overlay-put mpc-separator-ol 'after-string
                  (propertize "\n"
-                             'face '(:height 0.05 :inverse-video t))))
+                             'face '(:height 0.05 :inverse-video t :extend t))))
   (goto-char (point-min))
   (forward-line 1)
   (while
diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el
index 8d47d66ac38..03eccf3815c 100644
--- a/lisp/vc/log-edit.el
+++ b/lisp/vc/log-edit.el
@@ -384,7 +384,7 @@ The first subexpression is the actual text of the field.")
          nil lax))
      ("^\n"
       (progn (goto-char (match-end 0)) (1+ (match-end 0))) nil
-      (0 '(:height 0.1 :inverse-video t))))
+      (0 '(:height 0.1 :inverse-video t :extend t))))
     (log-edit--match-first-line (0 'log-edit-summary))))
 
 (defvar log-edit-font-lock-gnu-style nil
-- 
2.39.2