procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make some anonymous faces extend to EOL

Browse source 
* 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.
This commit is contained in:
Eli Zaretskii 2019-11-27 18:19:30 +02:00
parent 39b3bc0082
commit 2435f811b9
4 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/help-fns.el
View file

@ -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)

3
lisp/help.el
View file

@ -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)

2
lisp/mpc.el
View file

@ -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

2
lisp/vc/log-edit.el
View file

@ -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