From 1f00aac0be24a5fb5438e63a2f4f3bf21ba47dfc Mon Sep 17 00:00:00 2001
From: Sven Wischnowsky <wischnow@users.sourceforge.net>
Date: Thu, 20 Apr 2000 12:45:21 +0000
Subject: don't remove *all* .zwc files, keep the first one (10881)

---
 Functions/Misc/zrecompile | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Functions/Misc/zrecompile')

diff --git a/Functions/Misc/zrecompile b/Functions/Misc/zrecompile
index 1cdd05e0e..88d976f5b 100644
--- a/Functions/Misc/zrecompile
+++ b/Functions/Misc/zrecompile
@@ -66,13 +66,15 @@ if [[ -n $pats ]]; then
       argv=()
     fi
 
-    files=( ${files:#*(.zwc|~)} )
     if [[ $files[1] = -[RM] ]]; then
       map=( $files[1] )
       shift 1 files
     else
       map=()
     fi
+    (( $#files )) || continue
+
+    files=( $files[1] ${files[2,-1]:#*(.zwc|~)} )
 
     (( $#files )) || continue
 
-- 
cgit 1.4.1