From: morioka <morioka>
Date: Fri, 27 Aug 1999 03:57:40 +0000 (+0000)
Subject: rearrangement.
X-Git-Tag: apel-9_22~36
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f413d7363ebe911f9a7a663edc24e481cdd443ca;p=elisp%2Fapel.git

rearrangement.
---

diff --git a/path-util.el b/path-util.el
index 25db6e5..071386e 100644
--- a/path-util.el
+++ b/path-util.el
@@ -1,9 +1,8 @@
 ;;; path-util.el --- Emacs Lisp file detection utility
 
-;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1996,1997,1999 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: path-util.el,v 1.2 1999-08-26 12:32:32 yamaoka Exp $
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: file detection, install, module
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -25,6 +24,25 @@
 
 ;;; Code:
 
+(condition-case nil
+    (directory-files "." nil nil t)
+  (file-error nil);; unreadable directory.
+  (wrong-number-of-arguments
+   (or (fboundp 'si:directory-files)
+       (fset 'si:directory-files (symbol-function 'directory-files)))
+   ;; This function is also defined in poe-18, but it is needed here
+   ;; for compiling other packages under old Emacsen.
+   (defun directory-files (directory &optional full match nosort)
+     "Return a list of names of files in DIRECTORY.
+There are three optional arguments:
+If FULL is non-nil, return absolute file names.  Otherwise return names
+ that are relative to the specified directory.
+If MATCH is non-nil, mention only file names that match the regexp MATCH.
+If NOSORT is dummy for compatibility.
+\[poe-18.el; EMACS 19 emulating function]"
+     (si:directory-files directory full match))
+   ))
+
 (defvar default-load-path load-path
   "*Base of `load-path'.
 It is used as default value of target path to search file or
@@ -79,25 +97,6 @@ of load-path instead of default-load-path."
 	(add-to-list 'load-path path)
       )))
 
-(condition-case nil
-    (directory-files "." nil nil t)
-  (file-error nil);; unreadable directory.
-  (wrong-number-of-arguments
-   (or (fboundp 'si:directory-files)
-       (fset 'si:directory-files (symbol-function 'directory-files)))
-   ;; This function is also defined in poe-18, but it is needed here
-   ;; for compiling other packages under old Emacsen.
-   (defun directory-files (directory &optional full match nosort)
-     "Return a list of names of files in DIRECTORY.
-There are three optional arguments:
-If FULL is non-nil, return absolute file names.  Otherwise return names
- that are relative to the specified directory.
-If MATCH is non-nil, mention only file names that match the regexp MATCH.
-If NOSORT is dummy for compatibility.
-\[poe-18.el; EMACS 19 emulating function]"
-     (si:directory-files directory full match))
-   ))
-
 ;;;###autoload
 (defun get-latest-path (pattern &optional all-paths)
   "Return latest directory in default-load-path