;; Copyright (C) 1996 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Copyright (C) 1996 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1996/8/18
-;; Version: $Id: install.el,v 3.0 1996/11/15 11:58:36 morioka 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 program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Code:
(require 'emu)
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Code:
(require 'emu)
(if (file-exists-p src-file)
(let ((full-path (expand-file-name file dest)))
(if (and (file-exists-p full-path) overwrite)
(if (file-exists-p src-file)
(let ((full-path (expand-file-name file dest)))
(if (and (file-exists-p full-path) overwrite)
(if (file-exists-p src-file)
(let ((full-path (expand-file-name el-file dest)))
(if (file-exists-p full-path)
(if (file-exists-p src-file)
(let ((full-path (expand-file-name el-file dest)))
(if (file-exists-p full-path)
(setq src-file (expand-file-name elc-file src))
(if (file-exists-p src-file)
(let ((full-path (expand-file-name elc-file dest)))
(setq src-file (expand-file-name elc-file src))
(if (file-exists-p src-file)
(let ((full-path (expand-file-name elc-file dest)))