From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 27 Nov 2019 16:19:30 +0000 (+0200)
Subject: Make some anonymous faces extend to EOL
X-Git-Tag: emacs-27.0.90~503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2435f811b946ec54ab1da90aded52caddef977c8;p=emacs.git

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.
---

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