mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(image-mode-reapply-winprops): Simplify now that

Browse source 
window-configuration-change-hook works buffer-locally.
This commit is contained in:
Stefan Monnier 2008-03-26 15:49:03 +00:00
parent 65b332f45f
commit 6d401b4e2e
2 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/image-mode.el
View file

@ -94,19 +94,14 @@ A winprops object has the shape (WINDOW . ALIST)."
(set-window-hscroll (selected-window) ncol))
(defun image-mode-reapply-winprops ()
(walk-windows
(lambda (win)
(with-current-buffer (window-buffer win)
;; 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))
(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))))))
'nomini
(selected-frame)))
;; 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))
(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)))))
(defun image-mode-setup-winprops ()
;; Record current scroll settings.