* lisp/image-mode.el (image-mode-window-put): Don't assume there's a `t'
authorStefan Monnier <monnier@iro.umontreal.ca>
Mon, 21 Apr 2014 14:34:49 +0000 (10:34 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Mon, 21 Apr 2014 14:34:49 +0000 (10:34 -0400)
entry in image-mode-winprops-alist.

lisp/ChangeLog
lisp/image-mode.el

index 3c5dc44..0fd29f0 100644 (file)
@@ -1,9 +1,12 @@
+2014-04-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * image-mode.el (image-mode-window-put): Don't assume there's a `t'
+       entry in image-mode-winprops-alist.
+
 2014-04-21  Daniel Colascione  <dancol@dancol.org>
 
-       * emacs-lisp/bytecomp.el (byte-compile-recurse-toplevel): New
-       function.
-       (byte-compile-recurse-toplevel,
-       (byte-compile-initial-macro-environment,
+       * emacs-lisp/bytecomp.el (byte-compile-recurse-toplevel): New function.
+       (byte-compile-recurse-toplevel, byte-compile-initial-macro-environment)
        (byte-compile-toplevel-file-form): Use it.
 
        * emacs-lisp/cl-macs.el:
@@ -14,8 +17,7 @@
        * vc/vc.el (vc-root-dir): New public autoloaded function for
        generically finding the current VC root.
        * vc/vc-hooks.el (vc-not-supported): New error.
-       (vc-call-backend): Signal `vc-not-supported' instead of generic
-       error.
+       (vc-call-backend): Signal `vc-not-supported' instead of generic error.
 
 2014-04-20  Daniel Colascione  <dancol@dancol.org>
 
index 98fc385..b759464 100644 (file)
@@ -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)))))