procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gs-set-ghostview-window-prop): Fix args of `elt'.

Browse source
This commit is contained in:
Gerd Moellmann 2001-10-01 09:32:09 +00:00
parent 6260538e9b
commit 62bfa68216
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2001-10-01 Gerd Moellmann <gerd@gnu.org>
* 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.

8
lisp/gs.el
View file

@ -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.