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 14dea7de9b704e316c53420f26297331fc1ec1cc..40c57d05be9b9ca6d8f177ba5025d8a4d5dbf508 100644 (file)
--- 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 c4402ece4e52a9e699d88167e932fcea8eda8d18..604a365957c5e3ea87e36a3e773f43920c43eb2f 100644 (file)
--- 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 8e557ed2b35932d47f6eaf0eb6aee832528b92dc..c39257937bf27db287e8c0f55032cf52410184a5 100644 (file)
--- 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 8d47d66ac38096b62cca04d23e317ab6bdc282ea..03eccf3815c54e9ff41df440c0bfb7f18a417ee2 100644 (file)
--- 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