This commit adds more glyphs listed in the texinfo manual, and corrects
the ASCII version of @result to match what texinfo does.
* module/texinfo.scm (texi-command-specs): Add expansion, print, error,
equiv, point.
* module/texinfo/html.scm (rules): Add expansion, print, error, equiv,
point.
* module/texinfo/plain-text.scm (tag-handlers): Add expansion, print,
error, equiv, point. Use `=>' for result.
---
module/texinfo.scm | 5 +++++
module/texinfo/html.scm | 5 +++++
module/texinfo/plain-text.scm | 7 ++++++-
3 files changed, 16 insertions(+), 1 deletion(-)
diff --git a/module/texinfo.scm b/module/texinfo.scm
index ff95f182d..dd320cf00 100644
--- a/module/texinfo.scm
+++ b/module/texinfo.scm
@@ -224,6 +224,11 @@ lambda. Only present for @code{INLINE-ARGS},
@code{EOL-ARGS},
(anchor INLINE-ARGS . (name))
(dots INLINE-ARGS . ())
(result INLINE-ARGS . ())
+ (expansion INLINE-ARGS . ())
+ (print INLINE-ARGS . ())
+ (error INLINE-ARGS . ())
+ (equiv INLINE-ARGS . ())
+ (point INLINE-ARGS . ())
(bullet INLINE-ARGS . ())
(copyright INLINE-ARGS . ())
(tie INLINE-ARGS . ())
diff --git a/module/texinfo/html.scm b/module/texinfo/html.scm
index 6d139ddeb..87ca235e2 100644
--- a/module/texinfo/html.scm
+++ b/module/texinfo/html.scm
@@ -244,6 +244,11 @@ name, @code{#}, and the node name."
(cons tag body)))))))
(copyright . ,(lambda args '(*ENTITY* "copy")))
(result . ,(lambda args '(*ENTITY* "rArr")))
+ (expansion . ,(lambda args '(*ENTITY* "rarr")))
+ (print . ,(lambda args '(*ENTITY* "dashv")))
+ (error . ,(lambda args '("error" (*ENTITY* "rarr"))))
+ (equiv . ,(lambda args '(*ENTITY* "equiv")))
+ (point . ,(lambda args '(*ENTITY* "Star")))
(tie . ,(lambda args '(*ENTITY* "nbsp")))
(dots . ,(lambda args '(*ENTITY* "hellip")))
(xref . ,ref) (ref . ,ref) (pxref . ,ref)
diff --git a/module/texinfo/plain-text.scm b/module/texinfo/plain-text.scm
index 666df74f5..8dd940bd3 100644
--- a/module/texinfo/plain-text.scm
+++ b/module/texinfo/plain-text.scm
@@ -259,7 +259,12 @@
(emph ,(make-surrounder "_"))
(sc ,var)
(copyright ,(lambda args "(C)"))
- (result ,(lambda args "==>"))
+ (result ,(lambda args "=>"))
+ (expansion ,(lambda args "==>"))
+ (print ,(lambda args "-|"))
+ (error ,(lambda args "error-->"))
+ (equiv ,(lambda args "=="))
+ (point ,(lambda args "-!-"))
(dots ,(lambda args "..."))
(xref ,ref)
(ref ,ref)
--
2.52.0
