summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/texinfo.scm2
-rw-r--r--test-suite/tests/texinfo.test4
2 files changed, 5 insertions, 1 deletions
diff --git a/module/texinfo.scm b/module/texinfo.scm
index 02fec16a1..f3af5c332 100644
--- a/module/texinfo.scm
+++ b/module/texinfo.scm
@@ -219,7 +219,7 @@ lambda. Only present for @code{INLINE-ARGS}, @code{EOL-ARGS},
(pxref INLINE-TEXT-ARGS
. (node #:opt name section info-file manual))
(url ALIAS . uref)
- (uref INLINE-ARGS . (url #:opt title replacement))
+ (uref INLINE-TEXT-ARGS . (url #:opt title replacement))
(anchor INLINE-ARGS . (name))
(dots INLINE-ARGS . ())
(result INLINE-ARGS . ())
diff --git a/test-suite/tests/texinfo.test b/test-suite/tests/texinfo.test
index 9c6722f57..6f7d4c7d8 100644
--- a/test-suite/tests/texinfo.test
+++ b/test-suite/tests/texinfo.test
@@ -209,6 +209,10 @@
'((para (code "arg"))))
(test-body "@url{arg}"
'((para (uref (% (url "arg"))))))
+ (test-body "@url{@@}"
+ '((para (uref (% (url "@"))))))
+ (test-body "@url{@var{foo}}"
+ '((para (uref (% (url (var "foo")))))))
(test-body "@code{ }"
'((para (code))))
(test-body "@code{ @code{} }"