Mercurial > emacs
changeset 93315:cb3570d14a66
(image-mode-reapply-winprops): Fix last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 27 Mar 2008 14:59:30 +0000 |
| parents | 87f50b0c168f |
| children | 709d31efe571 |
| files | lisp/ChangeLog lisp/image-mode.el |
| diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Mar 27 14:57:02 2008 +0000 +++ b/lisp/ChangeLog Thu Mar 27 14:59:30 2008 +0000 @@ -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):
--- a/lisp/image-mode.el Thu Mar 27 14:57:02 2008 +0000 +++ b/lisp/image-mode.el Thu Mar 27 14:59:30 2008 +0000 @@ -97,11 +97,11 @@ ;; 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.