[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2435f81: Make some anonymous faces extend to EOL
From: |
Eli Zaretskii |
Subject: |
master 2435f81: Make some anonymous faces extend to EOL |
Date: |
Wed, 27 Nov 2019 11:20:16 -0500 (EST) |
branch: master
commit 2435f811b946ec54ab1da90aded52caddef977c8
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
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 14dea7d..40c57d0 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 c4402ec..604a365 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 8e557ed..c392579 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 8d47d66..03eccf3 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 2435f81: Make some anonymous faces extend to EOL,
Eli Zaretskii <=