;; Copyright (C) 1996 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1996/8/18
-;; Version: $Id: install.el,v 3.1 1996/11/26 19:55:55 shuhei-k Exp $
-;; Keywords: install
+;; Created: 1996/08/18
+;; Version: $Id: install.el,v 4.2 1997/11/06 15:52:08 morioka Exp $
+;; Keywords: install, byte-compile, directory detection
-;; This file is part of tl (Tiny Library).
+;; This file is part of APEL (A Portable Emacs Library).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;;; Code:
(require 'emu)
-(require 'file-detect)
+(require 'path-util)
+
;;; @ compile Emacs Lisp files
;;;
dir)
(while (setq dir (car rest))
(if (string-match
- (concat "^"
- (expand-file-name (concat ".*/" elisp-prefix) prefix)
- "$")
+ (` (, (concat "^"
+ (expand-file-name (concat ".*/" elisp-prefix) prefix)
+ "/?$")))
dir)
(if (or allow-version-specific
(not (string-match (format "%d\\.%d"