diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2019-11-27 18:19:30 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-11-27 18:19:30 +0200 |
| commit | 2435f811b946ec54ab1da90aded52caddef977c8 (patch) | |
| tree | 5af654daacdf8d4693a36b24e6e554d4a1f32935 | |
| parent | 39b3bc0082050af08e19d80059ddca66355559ce (diff) | |
| download | emacs-2435f811b946ec54ab1da90aded52caddef977c8.tar.gz | |
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.
| -rw-r--r-- | lisp/help-fns.el | 3 | ||||
| -rw-r--r-- | lisp/help.el | 3 | ||||
| -rw-r--r-- | lisp/mpc.el | 2 | ||||
| -rw-r--r-- | 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 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 |