YaTeXでincludegraphcisの引数を絶対パスにする

YaTeXモードでincludegraphicsの画像ファイルのパスを絶対パスにする時は以下のようにします:

;;; custom function 
(defun YaTeX:includegraphics ()
 (concat   "["
   (read-string "width=: "
                "width=0.98\\textwidth")   "]"))

(defun YaTeX::includegraphics (&optional argp)
  (cond
   ((equal argp 1)
    (expand-file-name (read-file-name "EPS file name: "  "" "" t "") ) )))