diff --git a/module/texinfo.scm b/module/texinfo.scm index cb7a775d4..91bb46d8d 100644 --- a/module/texinfo.scm +++ b/module/texinfo.scm @@ -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 diff --git a/test-suite/tests/texinfo.test b/test-suite/tests/texinfo.test index ebe46717f..c4ee58257 100644 --- a/test-suite/tests/texinfo.test +++ b/test-suite/tests/texinfo.test @@ -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."))) )