aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2001-10-01 09:32:09 +0000
committerGerd Moellmann2001-10-01 09:32:09 +0000
commit62bfa68216e11bd049cb85b50cd6b2cfc16477f5 (patch)
tree6b4aad02fe4e6a48c14a1670efdf504171e65abd
parent6260538e9b9dad6d0b2f0d59e3d749cb19485ea6 (diff)
downloademacs-62bfa68216e11bd049cb85b50cd6b2cfc16477f5.tar.gz
emacs-62bfa68216e11bd049cb85b50cd6b2cfc16477f5.zip
(gs-set-ghostview-window-prop): Fix args of `elt'.
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/gs.el8
2 files changed, 6 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32d58d60c9a..11a429aefe6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
12001-10-01 Gerd Moellmann <gerd@gnu.org> 12001-10-01 Gerd Moellmann <gerd@gnu.org>
2 2
3 * gs.el (gs-set-ghostview-window-prop): Fix args of `elt'.
4
3 * emacs-lisp/edebug.el (rx): Add def-edebug-spec. 5 * emacs-lisp/edebug.el (rx): Add def-edebug-spec.
4 6
5 * emacs-lisp/rx.el: New file. 7 * emacs-lisp/rx.el: New file.
diff --git a/lisp/gs.el b/lisp/gs.el
index 511bde6a474..d3bec85f141 100644
--- a/lisp/gs.el
+++ b/lisp/gs.el
@@ -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 (elt 0 box)) 118 (llx (elt box 0))
119 (lly (elt 1 box)) 119 (lly (elt box 1))
120 (urx (elt 2 box)) 120 (urx (elt box 2))
121 (ury (elt 3 box)) 121 (ury (elt box 3))
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.