diff options
| author | Gerd Moellmann | 2001-09-17 12:27:35 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-09-17 12:27:35 +0000 |
| commit | 28b1aa6a345ff816d5577febe16b30b1938f5602 (patch) | |
| tree | 38c72fbb722e3ddc3d94e33725f9fda726dd88f9 | |
| parent | acc150998a89fd00ffd665bd5fc18cacf2804d7b (diff) | |
| download | emacs-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.el | 10 |
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 | |||
| 115 | requested image, and IMG-HEIGHT is the height of the requested | 115 | requested image, and IMG-HEIGHT is the height of the requested |
| 116 | image in pixels." | 116 | image 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. |