diff options
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/image-mode.el | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 31637cbc0c1..13c5932abb6 100644 --- 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 b5cfe57ed18..fc38f045ff9 100644 --- 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. |