Commit 2435f811 authored by Eli Zaretskii's avatar Eli Zaretskii

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.
parent 39b3bc00
Pipeline #4183 failed with stage
in 60 minutes and 49 seconds
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment