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: Recognize `@:'.

Browse source 
* module/texinfo.scm (read-command-token): Recognize @:.
* test-suite/tests/texinfo.test ("test-texinfo->stexinfo"): Add test.
This commit is contained in:
Ludovic Courtès 2013-03-21 16:42:54 +01:00
parent 797b2aa69a
commit 4215ea75a5
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/texinfo.scm
View file

@ -485,7 +485,7 @@ Examples:
(assert-curr-char '(#\@) "start of the command" port)
(let ((peeked (peek-char port)))
(cond
((memq peeked '(#\! #\. #\? #\@ #\\ #\{ #\}))
((memq peeked '(#\! #\: #\. #\? #\@ #\\ #\{ #\}))
;; @-commands that escape characters
(make-token 'STRING (string (read-char port))))
(else

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

@ -419,4 +419,6 @@
(test-body "@pxref{Locales, @code{setlocale}}"
'((para (pxref (% (node "Locales")
(name (code "setlocale")))))))
(test-body "Like this---e.g.@:, at colon."
((para "Like this---e.g.:, at colon.")))
)