Apply the 'xref-group' property properly

* lisp/progmodes/xref.el (xref--insert-xrefs):
Apply the 'xref-group' property properly (bug#36974).
This commit is contained in:
Dmitry Gutov 2019-12-24 22:30:02 +02:00
parent 41f0cf266e
commit 9ea9ac9a61

View file

@ -814,7 +814,7 @@ GROUP is a string for decoration purposes and XREF is an
for line-format = (and max-line-width for line-format = (and max-line-width
(format "%%%dd: " max-line-width)) (format "%%%dd: " max-line-width))
do do
(xref--insert-propertized '(face xref-file-header 'xref-group t) (xref--insert-propertized '(face xref-file-header xref-group t)
group "\n") group "\n")
(cl-loop for (xref . more2) on xrefs do (cl-loop for (xref . more2) on xrefs do
(with-slots (summary location) xref (with-slots (summary location) xref