# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1419858911 -32400
# Node ID e8f95c3755265e22c978e103fd6c1173eb08c378
# Parent  f5b8e7415a25cc93bb3cbeb882c29aae674e1d40
YaTeX-executable-find added

diff -r f5b8e7415a25 -r e8f95c375526 yatexlib.el
--- a/yatexlib.el	Mon Dec 29 22:14:08 2014 +0900
+++ b/yatexlib.el	Mon Dec 29 22:15:11 2014 +0900
@@ -1,7 +1,7 @@
 ;;; yatexlib.el --- YaTeX and yahtml common libraries
 ;;; 
 ;;; (c)1994-2013 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sun Dec 21 23:55:30 2014 on firestorm
+;;; Last modified Mon Dec 29 13:54:17 2014 on sdr
 ;;; $Id$
 
 ;;; Code:
@@ -891,6 +891,19 @@
 	      (buffer-string))
 	  (kill-buffer tbuf))))))
       
+;;; (defun YaTeX-executable-find(cmd)...)
+(fset 'YaTeX-executable-find
+      (if (fboundp 'executable-find)
+	  'executable-find
+	(function (lambda (cmd)
+		    (let ((list exec-path) path)
+		      (catch 'exec
+			(while list
+			  (if (file-executable-p
+			       (setq path (expand-file-name cmd (car list))))
+			      (throw 'exec path))
+			  (setq list (cdr list)))))))))
+
 ;;;###autoload
 (defun YaTeX-reindent (col)
   "Remove current indentation and reindento to COL column."