diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-09-17 12:27:35 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-09-17 12:27:35 +0000 |
| commit | 4d8506310209a86402338f732285dd0529aebfcb (patch) | |
| tree | 67560c12ad8af0b7ca4d490482962ebf5a6b7d32 /lisp/gs.el | |
| parent | 4338ea0272b9d10e4a26e83a8117d3672e3ae1b4 (diff) | |
| download | emacs-4d8506310209a86402338f732285dd0529aebfcb.tar.gz | |
(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.
Diffstat (limited to 'lisp/gs.el')
| -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 @@ ;;; 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 @@ 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 (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. |