From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 23 May 2020 03:36:57 +0000 (-0400)
Subject: * lisp/doc-view.el (doc-view-presentation): Fix thinko
X-Git-Tag: emacs-28.0.90~7300
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cde0589818ec1d8d663c707d1d8af19a9d8b0752;p=emacs.git

* lisp/doc-view.el (doc-view-presentation): Fix thinko
---

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 3cac2629a9c..de342f1519e 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -2050,8 +2050,8 @@ See the command `doc-view-mode' for more information on this mode."
       (when (memq (selected-frame) (alist-get 'frames attrs))
         (let ((geom (alist-get 'geometry attrs)))
           (when geom
-            (setq monitor-top (nth 0 geom))
-            (setq monitor-left (nth 1 geom))
+            (setq monitor-left (nth 0 geom))
+            (setq monitor-top (nth 1 geom))
             (setq monitor-width (nth 2 geom))
             (setq monitor-height (nth 3 geom))))))
     (let ((frame (make-frame