(image-mode-reapply-winprops): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31637cbc0c1f8973f13123e492c67551445109e9..13c5932abb60e35fdf74c2b85884aec744607d99 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-27  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * image-mode.el (image-mode-reapply-winprops): Fix last change.
+
 2008-03-27  Kenichi Handa  <handa@ni.aist.go.jp>
 
        * international/mule-conf.el (define-iso-single-byte-charset):

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index b5cfe57ed18694ad5e7c8492be87ba3583bcf269..fc38f045ff9e42675a0079df1299125934ce1a02 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -97,11 +97,11 @@ A winprops object has the shape (WINDOW . ALIST)."
   ;; When set-window-buffer, set hscroll and vscroll to what they were
   ;; last time the image was displayed in this window.
   (when (listp image-mode-winprops-alist)
-    (let* ((winprops (image-mode-winprops win))
+    (let* ((winprops (image-mode-winprops))
            (hscroll (image-mode-window-get 'hscroll winprops))
            (vscroll (image-mode-window-get 'vscroll winprops)))
-      (if hscroll (set-window-hscroll win hscroll))
-      (if vscroll (set-window-vscroll win vscroll)))))
+      (if hscroll (set-window-hscroll (selected-window) hscroll))
+      (if vscroll (set-window-vscroll (selected-window) vscroll)))))
 
 (defun image-mode-setup-winprops ()
   ;; Record current scroll settings.