From 9253f7af873a4a343b46c219bbba8daa6ad73fe6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 21 Apr 2014 10:34:49 -0400 Subject: [PATCH] * lisp/image-mode.el (image-mode-window-put): Don't assume there's a `t' entry in image-mode-winprops-alist. --- lisp/ChangeLog | 14 ++++++++------ lisp/image-mode.el | 5 ++--- 2 files changed, 10 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3c5dc44010..0fd29f0ffb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,9 +1,12 @@ +2014-04-21 Stefan Monnier + + * 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 - * 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 diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 98fc3857f4..b75946475d 100644 --- 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))))) -- 2.20.1