# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1515472430 -32400
# Node ID 52175326855d37c30198445145b5c9ce82a6d7f3
# Parent  a6a80e2b6f5a2e1fb0e50fdd0ed1bcf87b79d6b8
Avoid neglection of image re-generation by 'insert-image-file

diff -r a6a80e2b6f5a -r 52175326855d yatexprc.el
--- a/yatexprc.el	Tue Jan 09 13:28:03 2018 +0900
+++ b/yatexprc.el	Tue Jan 09 13:33:50 2018 +0900
@@ -1,7 +1,7 @@
 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-
 ;;; 
 ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Fri Jan  5 22:48:43 2018 on firestorm
+;;; Last modified Tue Jan  9 13:18:05 2018 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -491,10 +491,12 @@
 	 t)
 	(remove-images (point-min) (point-max))
 	(erase-buffer)
-	(insert-image
-	 (setq image (create-image
-		      (if data-p imagesrc (expand-file-name imagesrc))
-		      nil data-p)))
+	(if data-p
+	    (insert-image
+	     (setq image (create-image imagesrc nil data-p)))
+	  ;; create-image does not re-create img-object for the same file
+	  (insert-image-file (expand-file-name imagesrc))
+	  (setq image (plist-get (text-properties-at (point)) 'intangible)))
 	(YaTeX-preview-image-mode)
 	(let ((height (1+ (cdr (image-size image)))))
 	  (enlarge-window