Say there is no maintainer.

[bpt/emacs.git] / lisp / gs.el

diff --git a/lisp/gs.el b/lisp/gs.el
index 9bcf289..d3bec85 100644 (file)
--- a/lisp/gs.el
+++ b/lisp/gs.el
@@ -1,6 +1,6 @@
 ;;; gs.el --- interface to Ghostscript
 
-;; Copyright (C) 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 2001 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -115,10 +115,10 @@ SPEC is a GS image specification.  IMG-WIDTH is the width of the
 requested image, and IMG-HEIGHT is the height of the requested
 image in pixels."
   (let* ((box (plist-get (cdr spec) :bounding-box))
-        (llx (nth 0 box))
-        (lly (nth 1 box))
-        (urx (nth 2 box))
-        (ury (nth 3 box))
+        (llx (elt box 0))
+        (lly (elt box 1))
+        (urx (elt box 2))
+        (ury (elt box 3))
         (rotation (or (plist-get (cdr spec) :rotate) 0))
         ;; The pixel width IMG-WIDTH of the pixmap gives the
         ;; dots, URX - LLX give the inch.