summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2007-09-20 14:16:12 +0000
committerLudovic Court`es2007-09-20 14:16:12 +0000
commit57100588a4aa8ad705a755acc95d2c6678597f11 (patch)
tree96b2f53865199fd9566731b6cfab777ff56499a8
parente38b2d70074f98d1410faa87f5c5500c2dc743ea (diff)
parent8ead9b042f96a719cf023ceede4177ed448a04c3 (diff)
downloadskribilo-57100588a4aa8ad705a755acc95d2c6678597f11.tar.gz
skribilo-57100588a4aa8ad705a755acc95d2c6678597f11.tar.lz
skribilo-57100588a4aa8ad705a755acc95d2c6678597f11.zip
slide: Tiny fix.
* src/guile/skribilo/package/slide.scm (slide-embed): Provide an identifier, pass ARGUMENTS. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-166
-rw-r--r--ChangeLog17
-rw-r--r--src/guile/skribilo/package/slide.scm6
2 files changed, 21 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 5e43875..7b7d9a5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,23 @@
# arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
#
+2007-09-20 14:16:12 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-166
+
+ Summary:
+ slide: Tiny fix.
+ Revision:
+ skribilo--devo--1.2--patch-166
+
+ * src/guile/skribilo/package/slide.scm (slide-embed): Provide an
+ identifier, pass ARGUMENTS.
+
+ modified files:
+ ChangeLog src/guile/skribilo/package/slide.scm
+
+ new patches:
+ lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-108
+
+
2007-09-20 14:15:38 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-165
Summary:
diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm
index 0a3d773..2f5d8a8 100644
--- a/src/guile/skribilo/package/slide.scm
+++ b/src/guile/skribilo/package/slide.scm
@@ -179,9 +179,11 @@
(markup 'slide-embed)
(loc &invocation-location)
(required-options '(:alt))
- (options `((:geometry-opt ,geometry-opt)
+ (ident (symbol->string (gensym "slide-embed")))
+ (options `((:arguments ,arguments)
+ (:geometry-opt ,geometry-opt)
(:alt ,alt)
- ,@(the-options opt :geometry-opt :alt)))
+ ,@(the-options opt :arguments :geometry-opt :alt)))
(body (the-body opt)))))
;*---------------------------------------------------------------------*/