mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2008-03-27 14:59:30 +00:00
parent 65bc892f63
commit c313b5febc
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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):

6
lisp/image-mode.el
View file

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