yatex

changeset 520:52175326855d dev

Avoid neglection of image re-generation by 'insert-image-file
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 09 Jan 2018 13:33:50 +0900
parents a6a80e2b6f5a
children cef987df070f
files yatexprc.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line diff
     1.1 --- a/yatexprc.el	Tue Jan 09 13:28:03 2018 +0900
     1.2 +++ b/yatexprc.el	Tue Jan 09 13:33:50 2018 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-
     1.5  ;;; 
     1.6  ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Fri Jan  5 22:48:43 2018 on firestorm
     1.8 +;;; Last modified Tue Jan  9 13:18:05 2018 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Code:
    1.12 @@ -491,10 +491,12 @@
    1.13  	 t)
    1.14  	(remove-images (point-min) (point-max))
    1.15  	(erase-buffer)
    1.16 -	(insert-image
    1.17 -	 (setq image (create-image
    1.18 -		      (if data-p imagesrc (expand-file-name imagesrc))
    1.19 -		      nil data-p)))
    1.20 +	(if data-p
    1.21 +	    (insert-image
    1.22 +	     (setq image (create-image imagesrc nil data-p)))
    1.23 +	  ;; create-image does not re-create img-object for the same file
    1.24 +	  (insert-image-file (expand-file-name imagesrc))
    1.25 +	  (setq image (plist-get (text-properties-at (point)) 'intangible)))
    1.26  	(YaTeX-preview-image-mode)
    1.27  	(let ((height (1+ (cdr (image-size image)))))
    1.28  	  (enlarge-window