(gs-set-ghostview-window-prop): Fix args of `elt'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32d58d60c9aeec9110c6a7c705dc4ad737bd449b..11a429aefe61ae0d5014cec8ef5cbc72ab3de0c6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-10-01  Gerd Moellmann  <gerd@gnu.org>
 
+       * gs.el (gs-set-ghostview-window-prop): Fix args of `elt'.
+
        * emacs-lisp/edebug.el (rx): Add def-edebug-spec.
 
        * emacs-lisp/rx.el: New file.

diff --git a/lisp/gs.el b/lisp/gs.el
index 511bde6a4740cca8b039d6639e7c04438f85a3f7..d3bec85f14179f48225a3ffca097c4f452678b90 100644 (file)
--- a/lisp/gs.el
+++ b/lisp/gs.el
@@ -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 (elt 0 box))
-        (lly (elt 1 box))
-        (urx (elt 2 box))
-        (ury (elt 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.