yatex

changeset 372:e8f95c375526 dev

find changesets by author, revision, files, or words in the commit message
YaTeX-executable-find added
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 29 Dec 2014 22:15:11 +0900
parents f5b8e7415a25
children 1b2e55ef1026
files yatexlib.el
diffstat 1 files changed, 14 insertions(+), 1 deletions(-) [+]
line diff
     1.1 --- a/yatexlib.el	Mon Dec 29 22:14:08 2014 +0900
     1.2 +++ b/yatexlib.el	Mon Dec 29 22:15:11 2014 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexlib.el --- YaTeX and yahtml common libraries
     1.5  ;;; 
     1.6  ;;; (c)1994-2013 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Sun Dec 21 23:55:30 2014 on firestorm
     1.8 +;;; Last modified Mon Dec 29 13:54:17 2014 on sdr
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Code:
    1.12 @@ -891,6 +891,19 @@
    1.13  	      (buffer-string))
    1.14  	  (kill-buffer tbuf))))))
    1.15        
    1.16 +;;; (defun YaTeX-executable-find(cmd)...)
    1.17 +(fset 'YaTeX-executable-find
    1.18 +      (if (fboundp 'executable-find)
    1.19 +	  'executable-find
    1.20 +	(function (lambda (cmd)
    1.21 +		    (let ((list exec-path) path)
    1.22 +		      (catch 'exec
    1.23 +			(while list
    1.24 +			  (if (file-executable-p
    1.25 +			       (setq path (expand-file-name cmd (car list))))
    1.26 +			      (throw 'exec path))
    1.27 +			  (setq list (cdr list)))))))))
    1.28 +
    1.29  ;;;###autoload
    1.30  (defun YaTeX-reindent (col)
    1.31    "Remove current indentation and reindento to COL column."