;;; -*- Emacs-Lisp -*-
;;; $Id: irex-common.el,v 3.0 1998/11/19 07:10:24 tsuchiya Exp $

;; This file is part of IREX tools.

;; Please refer "Copyright file" at the root directory.
;; (C) IREX committee IREX実行委員会. All rights reserved.  


;;; 依存関係の宣言
(provide 'irex-common)


;;; 変数 / 定数の宣言
(defvar irex-root-directory nil "基準ディレクトリ")



;;;----------------------------------------------------------------------
;;;	各種 Emacsen 対応のための関数
;;;----------------------------------------------------------------------

(defsubst irex-match-string (num &optional string)
  "Return string of text matched by last search."
  (if (match-beginning num)
      (if string
	  (substring string (match-beginning num) (match-end num))
	(buffer-substring (match-beginning num) (match-end num)))))


(if (fboundp 'facep) t
  (defun internal-facep (x)
    (and (vectorp x) (= (length x) face-vector-length) (eq (aref x 0) 'face)))
  (defvar global-face-data nil "\
Internal data for face support functions.  Not for external use.
This is an alist associating face names with the default values for
their parameters.  Newly created frames get their data from here.")
  (defun facep (x)
    "Return t if X is a face name or an internal face vector."
    (and (or (and (fboundp 'internal-facep) (internal-facep x))
	     (and 
	      (symbolp x) 
	      (assq x (and (boundp 'global-face-data) global-face-data))))
	 t)))




;;;----------------------------------------------------------------------
;;;	構文木に含まれている全ての marker を削除する関数
;;;----------------------------------------------------------------------
(defun irex-erase-marker (tree) "\
構文木に含まれている全ての marker を解除する関数"
  (mapcar
   '(lambda (e)
      (let ((l (symbol-plist (cdr e))))
	(while l
	  (if (markerp (nth 1 l)) (set-marker (nth 1 l) nil))
	  (setq l (nthcdr 2 l)))))
   tree))