* scm/paper.scm (paper-alist): public.

[lilypond.git] / scm / paper.scm

diff --git a/scm/paper.scm b/scm/paper.scm
index d1233f3e5b274301fbe282cff0502d3af5b6e846..0f747a15649e3e68f6e8b56d8cf8ab7f1969253c 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -65,7 +65,7 @@
     (set-current-module old-mod)
     (module-define! old-mod '$defaultpaper new-paper)))
 
-(define paper-alist
+(define-public paper-alist
   '(("a6" . (cons (* 105 mm) (* 148.95 mm)))
     ("a5" . (cons (* 148.95 mm) (* 210 mm)))
     ("a4" . (cons (* 210 mm) (* 297.9 mm)))
@@ -113,15 +113,6 @@
          (set! entry (swap entry)))
       (set-paper-dimensions module (car entry) (cdr entry))
 
-      
-      (module-define! module 'papersize name)
-      
-      ;; FIXME: if this name-play is on purpose, please document.  Why
-      ;; is it not used troughout?  Should this be removed, or
-      ;; should 'papersize be removed?
-
-      ;; setting \paper{ papersize = "a6" } gives funny results.
-      
       (module-define! module 'papersizename name)
 
       (if landscape?