# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1211491662 0
# Node ID 889084703e3f72708a7d61c843acb83d9148cdd5
# Parent  b1c20ce02fa29ecf0e5e4f86871a2b808468df36
(image-mode-winprops): Add argument CLEANUP to prune
image-mode-winprops-alist, preventing it from growing indefinitely.
(image-mode-reapply-winprops): Use it.

diff -r b1c20ce02fa2 -r 889084703e3f lisp/image-mode.el
--- a/lisp/image-mode.el	Thu May 22 21:27:25 2008 +0000
+++ b/lisp/image-mode.el	Thu May 22 21:27:42 2008 +0000
@@ -56,10 +56,19 @@
   "Special hook run when image data is requested in a new window.
 It is called with one argument, the initial WINPROPS.")
 
-(defun image-mode-winprops (&optional window)
+(defun image-mode-winprops (&optional window cleanup)
   "Return winprops of WINDOW.
 A winprops object has the shape (WINDOW . ALIST)."
-  (unless window (setq window (selected-window)))
+  (cond ((null window)
+	 (setq window (selected-window)))
+	((not (windowp window))
+	 (error "Not a window: %s" window)))
+  (when cleanup
+    (setq image-mode-winprops-alist
+  	  (delq nil (mapcar (lambda (winprop)
+  			      (if (window-live-p (car-safe winprop))
+  				  winprop))
+  			    image-mode-winprops-alist))))
   (let ((winprops (assq window image-mode-winprops-alist)))
     ;; For new windows, set defaults from the latest.
     (unless winprops
@@ -94,8 +103,9 @@
 (defun image-mode-reapply-winprops ()
   ;; 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))
+  (when (and (image-get-display-property)
+	     (listp image-mode-winprops-alist))
+    (let* ((winprops (image-mode-winprops nil t))
            (hscroll (image-mode-window-get 'hscroll winprops))
            (vscroll (image-mode-window-get 'vscroll winprops)))
       (if hscroll (set-window-hscroll (selected-window) hscroll))