From: Gerd Moellmann Date: Mon, 1 Oct 2001 09:32:09 +0000 (+0000) Subject: (gs-set-ghostview-window-prop): Fix args of `elt'. X-Git-Tag: emacs-21.1~107 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=62bfa68216e11bd049cb85b50cd6b2cfc16477f5;p=emacs.git (gs-set-ghostview-window-prop): Fix args of `elt'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 32d58d60c9a..11a429aefe6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2001-10-01 Gerd Moellmann + * gs.el (gs-set-ghostview-window-prop): Fix args of `elt'. + * emacs-lisp/edebug.el (rx): Add def-edebug-spec. * 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 requested image, and IMG-HEIGHT is the height of the requested image in pixels." (let* ((box (plist-get (cdr spec) :bounding-box)) - (llx (elt 0 box)) - (lly (elt 1 box)) - (urx (elt 2 box)) - (ury (elt 3 box)) + (llx (elt box 0)) + (lly (elt box 1)) + (urx (elt box 2)) + (ury (elt box 3)) (rotation (or (plist-get (cdr spec) :rotate) 0)) ;; The pixel width IMG-WIDTH of the pixmap gives the ;; dots, URX - LLX give the inch.