mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

texinfo: fix @url{@@} parsing

Browse source 
* module/texinfo.scm (texi-command-specs): The body of @url{} can have
  texinfo commands.

* test-suite/tests/texinfo.test ("test-texinfo->stexinfo"): Add tests.
This commit is contained in:
Andy Wingo 2014-11-09 15:56:33 +00:00
parent 18c44b29e4
commit 3f826e3c9e
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/texinfo.scm
View file

@ -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 . ())

4
test-suite/tests/texinfo.test
View file

@ -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{} }"