# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1418891456 -32400
# Node ID c731bc210af11f940d803395405afeada1694583
# Parent  f0d62ddd049020cc1c93993e8cb6279377a1fea0
Image inspection should be done in parent-file's directory

diff -r f0d62ddd0490 -r c731bc210af1 yatexadd.el
--- a/yatexadd.el	Thu Dec 18 12:02:37 2014 +0900
+++ b/yatexadd.el	Thu Dec 18 17:30:56 2014 +0900
@@ -1,7 +1,7 @@
 ;;; yatexadd.el --- YaTeX add-in functions
 ;;; yatexadd.el rev.21
 ;;; (c)1991-2014 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Thu Dec 18 11:52:36 2014 on firestorm
+;;; Last modified Thu Dec 18 17:28:29 2014 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -1943,19 +1943,23 @@
 (defun YaTeX::includegraphics (argp &optional file doclip)
   "Add-in for \\includegraphics"
   (let ((imgfile (or file (YaTeX::include argp "Image File: ")))
+	(imgfilepath
+	 (save-excursion
+	   (YaTeX-visit-main t)
+	   (expand-file-name imgfile default-directory)))
 	(case-fold-search t) info bb noupdate needclose c)
     (and (string-match "\\.\\(jpe?g\\|png\\|gif\\|bmp\\|pdf\\)$" imgfile)
-	 (file-exists-p imgfile)
+	 (file-exists-p imgfilepath)
 	 (or (fboundp 'yahtml-get-image-info)
 	     (progn
 	       (load "yahtml" t) (featurep 'yahtml))) ;(require 'yahtml nil t)
 	 (if (string-match "\\.pdf" imgfile)
 	     (and
-	      (setq info (YaTeX::get-boundingbox imgfile))
+	      (setq info (YaTeX::get-boundingbox imgfilepath))
 	      (stringp info)
 	      (string< "" info)
 	      (setq bb (format "bb=%s" info)))
-	   (setq info (yahtml-get-image-info imgfile))
+	   (setq info (yahtml-get-image-info imgfilepath))
 	   (car info)			;if has width value
 	   (car (cdr info))		;if has height value
 	   (setq bb (format "bb=%d %d %d %d" 0 0 (car info) (car (cdr info)))))