# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1000729655 0
# Node ID d7d03c5c76d77dd6e81ca4394a5f41e3a1770804
# Parent  8da06f1bcda8384f4c69cad36fb7b2882aa00179
(gs-set-ghostview-window-prop): Use `elt' instead
of `nth' so that using a vector as bounding-box works.
From David.Kastrup@neuroinformatik.ruhr-uni-bochum.de.

diff -r 8da06f1bcda8 -r d7d03c5c76d7 lisp/gs.el
--- a/lisp/gs.el	Mon Sep 17 12:09:05 2001 +0000
+++ b/lisp/gs.el	Mon Sep 17 12:27:35 2001 +0000
@@ -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 @@
 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 0 box))
+	 (lly (elt 1 box))
+	 (urx (elt 2 box))
+	 (ury (elt 3 box))
 	 (rotation (or (plist-get (cdr spec) :rotate) 0))
 	 ;; The pixel width IMG-WIDTH of the pixmap gives the
 	 ;; dots, URX - LLX give the inch.