Skip to content

Commit 2435f81

Browse files
committed
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.
1 parent 39b3bc0 commit 2435f81

File tree

4 files changed

+6
-4
lines changed

4 files changed

+6
-4
lines changed

lisp/help-fns.el

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1463,7 +1463,8 @@ current buffer and the selected frame, respectively."
14631463
(progn (skip-chars-backward " \t\n") (point)))
14641464
(insert "\n\n"
14651465
(eval-when-compile
1466-
(propertize "\n" 'face '(:height 0.1 :inverse-video t)))
1466+
(propertize "\n" 'face
1467+
'(:height 0.1 :inverse-video t :extend t)))
14671468
"\n")
14681469
(when name
14691470
(insert (symbol-name symbol)

lisp/help.el

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -869,7 +869,8 @@ current buffer."
869869
(insert "\n\n"
870870
;; FIXME: Can't use eval-when-compile because purified
871871
;; strings lose their text properties :-(
872-
(propertize "\n" 'face '(:height 0.1 :inverse-video t))
872+
(propertize "\n" 'face
873+
'(:height 0.1 :inverse-video t :extend t))
873874
"\n")))
874875

875876
(princ brief-desc)

lisp/mpc.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1606,7 +1606,7 @@ when constructing the set of constraints."
16061606
(make-overlay (point) (point)))
16071607
(overlay-put mpc-separator-ol 'after-string
16081608
(propertize "\n"
1609-
'face '(:height 0.05 :inverse-video t))))
1609+
'face '(:height 0.05 :inverse-video t :extend t))))
16101610
(goto-char (point-min))
16111611
(forward-line 1)
16121612
(while

lisp/vc/log-edit.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -384,7 +384,7 @@ The first subexpression is the actual text of the field.")
384384
nil lax))
385385
("^\n"
386386
(progn (goto-char (match-end 0)) (1+ (match-end 0))) nil
387-
(0 '(:height 0.1 :inverse-video t))))
387+
(0 '(:height 0.1 :inverse-video t :extend t))))
388388
(log-edit--match-first-line (0 'log-edit-summary))))
389389

390390
(defvar log-edit-font-lock-gnu-style nil

0 commit comments

Comments
 (0)