# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1196838432 0
# Node ID 7a4a3f1c72ee3bdd255ff2fcd9bec25cc0a7924d
# Parent  24280fb751e39faf2baa0501c1907868214587ed
Require individual files if needed when compiling, rather than
esh-maint.  Collect any require statements.  Move provide statement to
end.  Move any commentary to start.
(top-level): Don't require pp.  Use condition-case rather than
ignore-errors.

diff -r 24280fb751e3 -r 7a4a3f1c72ee lisp/eshell/esh-util.el
--- a/lisp/eshell/esh-util.el	Wed Dec 05 07:06:30 2007 +0000
+++ b/lisp/eshell/esh-util.el	Wed Dec 05 07:07:12 2007 +0000
@@ -22,19 +22,15 @@
 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 ;; Boston, MA 02110-1301, USA.
 
-(provide 'esh-util)
+;;; Commentary:
 
-(eval-when-compile (require 'esh-maint))
+;;; Code:
 
 (defgroup eshell-util nil
   "This is general utility code, meant for use by Eshell itself."
   :tag "General utilities"
   :group 'eshell)
 
-;;; Commentary:
-
-(require 'pp)
-
 ;;; User Variables:
 
 (defcustom eshell-stringify-t t
@@ -429,7 +425,9 @@
   ;; "args out of range" error in `sit-for', if this function
   ;; runs while point is in the minibuffer and the users attempt
   ;; to use completion.  Don't ask me.
-  (ignore-errors (sit-for 0 0)))
+  (condition-case nil
+      (sit-for 0 0)
+    (error nil)))
 
 (defun eshell-read-passwd-file (file)
   "Return an alist correlating gids to group names in FILE."
@@ -781,7 +779,7 @@
 ;     (or result
 ;	(file-attributes filename))))
 
-;;; Code:
+(provide 'esh-util)
 
 ;;; arch-tag: 70159778-5c7a-480a-bae4-3ad332fca19d
 ;;; esh-util.el ends here