(image-mode-winprops): Add argument CLEANUP to prune

image-mode-winprops-alist, preventing it from growing indefinitely.
(image-mode-reapply-winprops): Use it.

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index a331064ecf3d8f82c3ae720a8b7d092992de82a7..9cfc734daab22d70a287cc1b616714b53cd802b3 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -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 @@ A winprops object has the shape (WINDOW . ALIST)."
 (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))