diff options
| author | Ludovic Courtès | 2013-03-18 10:41:08 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2013-05-19 17:35:07 +0200 |
| commit | 86f94102f6bb98203462ae53dfcfcc39c18eb5c0 (patch) | |
| tree | c7afb04caf06420407481424ce81423823410be6 /src | |
| parent | fb818a87642aa03f28ed41e80cc720e7630ab2e5 (diff) | |
| download | skribilo-86f94102f6bb98203462ae53dfcfcc39c18eb5c0.tar.gz skribilo-86f94102f6bb98203462ae53dfcfcc39c18eb5c0.tar.lz skribilo-86f94102f6bb98203462ae53dfcfcc39c18eb5c0.zip | |
`base' package: Insert an unbreakable space after `:text' in `numref'.
* src/guile/skribilo/package/base.scm (numref): Remove explicit call to
`resolve!'; insert an unbreakable space after TEXT.
* NEWS: Update.
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/package/base.scm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm index ea34308..64d6b97 100644 --- a/src/guile/skribilo/package/base.scm +++ b/src/guile/skribilo/package/base.scm @@ -1245,16 +1245,15 @@ ;; Loop until `number' is resolved. n) (else - (let ((xref - (ref :text - (list (if text text "") " " - (if (number? number) - (markup-number-string target - separator) - "")) - :page page - :handle (handle target)))) - (resolve! xref e env))))))))) + (ref :text + (list (if text text "") + (if text (~) "") + (if (number? number) + (markup-number-string target + separator) + "")) + :page page + :handle (handle target))))))))) ;*---------------------------------------------------------------------*/ ;* resolve ... */ |