diff options
-rw-r--r-- | module/texinfo.scm | 2 | ||||
-rw-r--r-- | test-suite/tests/texinfo.test | 4 |
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{} }" |