From fe409700d85a8de0fadb9cdd052434a4e07b4267 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 4 Sep 2020 10:32:04 +0200
Subject: doc: Syntax highlighting now handles @var within @lisp.

* doc/build.scm (syntax-highlighted-html)[build](concatenate-pieces):
Handle @var{name}.
---
 doc/build.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'doc/build.scm')

diff --git a/doc/build.scm b/doc/build.scm
index 7256fb9bb5..97f4ab6b83 100644
--- a/doc/build.scm
+++ b/doc/build.scm
@@ -310,6 +310,8 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
                    (loop rest (cons (entity->string entity) strings)))
                   ((('span _ lst ...) . rest)     ;for <span class="roman">
                    (loop (append lst rest) strings))
+                  ((('var name) . rest)           ;for @var{name} within @lisp
+                   (loop rest (cons name strings))) ;XXX: losing formatting
                   (something
                    (pk 'unsupported-code-snippet something)
                    (primitive-exit 1)))))
-- 
cgit v1.2.3