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