Mercurial > emacs
changeset 39313:d7d03c5c76d7
(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.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 17 Sep 2001 12:27:35 +0000 |
| parents | 8da06f1bcda8 |
| children | ff5b5b1092e0 |
| files | lisp/gs.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.