aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2001-09-17 12:27:35 +0000
committerGerd Moellmann2001-09-17 12:27:35 +0000
commit28b1aa6a345ff816d5577febe16b30b1938f5602 (patch)
tree38c72fbb722e3ddc3d94e33725f9fda726dd88f9
parentacc150998a89fd00ffd665bd5fc18cacf2804d7b (diff)
downloademacs-28b1aa6a345ff816d5577febe16b30b1938f5602.tar.gz
emacs-28b1aa6a345ff816d5577febe16b30b1938f5602.zip
(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.
-rw-r--r--lisp/gs.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/gs.el b/lisp/gs.el
index 9bcf2893205..511bde6a474 100644
--- a/lisp/gs.el
+++ b/lisp/gs.el
@@ -1,6 +1,6 @@
1;;; gs.el --- interface to Ghostscript 1;;; gs.el --- interface to Ghostscript
2 2
3;; Copyright (C) 1998 Free Software Foundation, Inc. 3;; Copyright (C) 1998, 2001 Free Software Foundation, Inc.
4 4
5;; Maintainer: FSF 5;; Maintainer: FSF
6;; Keywords: internal 6;; Keywords: internal
@@ -115,10 +115,10 @@ SPEC is a GS image specification. IMG-WIDTH is the width of the
115requested image, and IMG-HEIGHT is the height of the requested 115requested image, and IMG-HEIGHT is the height of the requested
116image in pixels." 116image in pixels."
117 (let* ((box (plist-get (cdr spec) :bounding-box)) 117 (let* ((box (plist-get (cdr spec) :bounding-box))
118 (llx (nth 0 box)) 118 (llx (elt 0 box))
119 (lly (nth 1 box)) 119 (lly (elt 1 box))
120 (urx (nth 2 box)) 120 (urx (elt 2 box))
121 (ury (nth 3 box)) 121 (ury (elt 3 box))
122 (rotation (or (plist-get (cdr spec) :rotate) 0)) 122 (rotation (or (plist-get (cdr spec) :rotate) 0))
123 ;; The pixel width IMG-WIDTH of the pixmap gives the 123 ;; The pixel width IMG-WIDTH of the pixmap gives the
124 ;; dots, URX - LLX give the inch. 124 ;; dots, URX - LLX give the inch.