# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1139513648 0
# Node ID c0b14a7a6a49f540535a2b2a7f24f5cc3592440c
# Parent  51fd7d4e1d8af77fbbf41ef0b343f5011405ebbc
	* image-mode.el (image-toggle-display): Clear image cache if using
	filename.

diff -r 51fd7d4e1d8a -r c0b14a7a6a49 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Feb 09 19:20:46 2006 +0000
+++ b/lisp/ChangeLog	Thu Feb 09 19:34:08 2006 +0000
@@ -1,3 +1,8 @@
+2006-02-09  Chong Yidong  <cyd@stupidchicken.com>
+
+	* image-mode.el (image-toggle-display): Clear image cache if using
+	filename.
+
 2006-02-09 Masatake YAMATO  <jet@gyve.org>
 
 	* dired-x.el (dired-guess-shell-alist-default): Add .man as
diff -r 51fd7d4e1d8a -r c0b14a7a6a49 lisp/image-mode.el
--- a/lisp/image-mode.el	Thu Feb 09 19:20:46 2006 +0000
+++ b/lisp/image-mode.el	Thu Feb 09 19:34:08 2006 +0000
@@ -140,7 +140,8 @@
     (let* ((image
 	    (if (and (buffer-file-name)
 		     (not (buffer-modified-p)))
-		(create-image (buffer-file-name))
+		(progn (clear-image-cache)
+		       (create-image (buffer-file-name)))
 	      (create-image
 	       (string-make-unibyte
 		(buffer-substring-no-properties (point-min) (point-max)))