diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-03-21 16:42:54 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-03-21 18:52:29 +0100 |
commit | 4215ea75a525a848ce9d73fad9c03983e8b3cd0d (patch) | |
tree | 3affc9950183cc7b2bf60da293df1ba12c16fc99 | |
parent | 797b2aa69aeb7db607250bad83d31a31f8f4d1c7 (diff) | |
download | guile-4215ea75a525a848ce9d73fad9c03983e8b3cd0d.tar.gz |
texinfo: Recognize `@:'.
* module/texinfo.scm (read-command-token): Recognize @:.
* test-suite/tests/texinfo.test ("test-texinfo->stexinfo"): Add test.
-rw-r--r-- | module/texinfo.scm | 2 | ||||
-rw-r--r-- | test-suite/tests/texinfo.test | 2 |
2 files changed, 3 insertions, 1 deletions
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."))) ) |