Mercurial > hg > xemacs-beta

comparison lisp/tl/file-detect.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 364816949b59
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
2 2
3 ;; Copyright (C) 1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: 6 ;; Version:
7 ;; $Id: file-detect.el,v 1.3 1997/01/30 02:22:46 steve Exp $ 7 ;; $Id: file-detect.el,v 1.4 1997/03/08 23:26:56 steve Exp $
8 ;; Keywords: install, module 8 ;; Keywords: install, module
9 9
10 ;; This file is part of tl (Tiny Library). 10 ;; This file is part of tl (Tiny Library).
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details. 20 ;; General Public License for more details.
21 21
22 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
23 ;; along with This program; see the file COPYING. If not, write to 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA. 25 ;; Boston, MA 02111-1307, USA.
26 26
27 ;;; Code: 27 ;;; Code:
28 28
29 (defvar default-load-path load-path) 29 (defvar default-load-path load-path)
100 )) 100 ))
101 (setq paths (cdr paths)) 101 (setq paths (cdr paths))
102 )))) 102 ))))
103 103
104 (defun file-installed-p (file &optional paths) 104 (defun file-installed-p (file &optional paths)
105 "Return t if FILE exists in PATHS. 105 "Return absolute-path of FILE if FILE exists in PATHS.
106 If PATHS is omitted, `load-path' is used. [file-detect.el]" 106 If PATHS is omitted, `load-path' is used. [file-detect.el]"
107 (if (null paths) 107 (if (null paths)
108 (setq paths load-path) 108 (setq paths load-path)
109 ) 109 )
110 (catch 'tag 110 (catch 'tag