mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/image-mode.el (image-mode-window-put): Don't assume there's a `t'

Browse source 
entry in image-mode-winprops-alist.
This commit is contained in:
Stefan Monnier 2014-04-21 10:34:49 -04:00
parent b53a667a5a
commit 9253f7af87
2 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/image-mode.el
View 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)))))