[Maxima-commits] CVS: maxima/share/draw draw.lisp,1.90,1.90.2.1

[Mario R. R. <rio...@us...>]

Update of /cvsroot/maxima/maxima/share/draw
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv14381

Modified Files:
      Tag: RELEASE-5_23-BRANCH
	draw.lisp 
Log Message:

Bug fix. Deprecated global options were not seen from draw function

Index: draw.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/draw/draw.lisp,v
retrieving revision 1.90
retrieving revision 1.90.2.1
diff -u -d -r1.90 -r1.90.2.1
--- draw.lisp	2 Dec 2010 21:13:26 -0000	1.90
+++ draw.lisp	6 Dec 2010 10:13:32 -0000	1.90.2.1
@@ -3118,6 +3118,16 @@
                 ($data_file_name    (update-gr-option '$data_file_name ($rhs x)))
                 ($background_color  (update-gr-option '$background_color ($rhs x)))
                 ($delay             (update-gr-option '$delay ($rhs x)))
+
+                ; deprecated global options
+                ($file_bgcolor      (update-gr-option '$file_bgcolor ($rhs x)))
+                ($pic_width         (update-gr-option '$pic_width ($rhs x)))
+                ($pic_height        (update-gr-option '$pic_height ($rhs x)))
+                ($eps_width         (update-gr-option '$eps_width ($rhs x)))
+                ($eps_height        (update-gr-option '$eps_height ($rhs x)))
+                ($pdf_width         (update-gr-option '$pdf_width ($rhs x)))
+                ($pdf_height        (update-gr-option '$pdf_height ($rhs x)))
+
                 (otherwise (merror "draw: unknown global option ~M " ($lhs x)))))
             ((equal (caar x) '$gr3d)
               (setf scenes (append scenes (list (funcall #'make-scene-3d (rest x))))))