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 serialize): don't break words when wrapping

Browse source 
* module/texinfo/serialize.scm (wrap): Don't break long words by
  default; that could break @-commands.
This commit is contained in:
Andy Wingo 2013-02-09 18:17:48 +01:00
parent d4124ac5ce
commit d4cab459d3
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/texinfo/serialize.scm
View file

@ -1,6 +1,6 @@
;;;; (texinfo serialize) -- rendering stexinfo as texinfo
;;;;
;;;; Copyright (C) 2009, 2012 Free Software Foundation, Inc.
;;;; Copyright (C) 2009, 2012, 2013 Free Software Foundation, Inc.
;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com>
;;;;
;;;; This library is free software; you can redistribute it and/or
@ -185,7 +185,8 @@
(define (wrap strings)
(fill-string (string-concatenate strings)
#:line-width 72))
#:line-width 72
#:break-long-words? #f))
(define (paragraph exp lp command type formals args accum)
(list* "\n\n"