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 /module/texinfo.scm | |
| 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.
Diffstat (limited to 'module/texinfo.scm')
| -rw-r--r-- | module/texinfo.scm | 2 |
1 files changed, 1 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 |