* lisp/image-mode.el (image-mode-winprops): Don't throw away the fallback

`t' pseudo-window entry.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 778fe3dedd65d09388c2c10ba3a29dbe54b07afd..d7ffc144657a479138acad7fd7da7775f6644642 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-09  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * image-mode.el (image-mode-winprops): Don't throw away the fallback
+       `t' pseudo-window entry.
+
 2013-01-09  Alan Mackenzie  <acm@muc.de>
 
        Fix bugs in the c-parse-state mechanism.  Reuse some markers

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 90eb5dfaec55447b5b0a309ae944e940bd1bfc63..a95dde1d999cb13175d649b6a1f20ab802b57d0a 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -63,8 +63,9 @@ otherwise it defaults to t, used for times when the buffer is not displayed."
   (when cleanup
     (setq image-mode-winprops-alist
          (delq nil (mapcar (lambda (winprop)
-                             (if (window-live-p (car-safe winprop))
-                                 winprop))
+                             (let ((w (car-safe winprop)))
+                               (if (or (not (windowp w)) (window-live-p w))
+                                   winprop)))
                            image-mode-winprops-alist))))
   (let ((winprops (assq window image-mode-winprops-alist)))
     ;; For new windows, set defaults from the latest.