* src/eval.c (Fbind_symbol): New function.

[bpt/emacs.git] / lisp / image-mode.el

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 98fc385..b759464 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -90,9 +90,8 @@ otherwise it defaults to t, used for times when the buffer is not displayed."
 
 (defun image-mode-window-put (prop val &optional winprops)
   (unless (consp winprops) (setq winprops (image-mode-winprops winprops)))
-  (setcdr (assq t image-mode-winprops-alist)
-          (cons (cons prop val)
-                (delq (assq prop (cdr winprops)) (cdr winprops))))
+  (unless (eq t (car winprops))
+    (image-mode-window-put prop val t))
   (setcdr winprops (cons (cons prop val)
                          (delq (assq prop (cdr winprops)) (cdr winprops)))))