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)

---
 ChangeLog                 | 3 +++
 Functions/Misc/zrecompile | 4 +++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index d1279b339..5a17b3387 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2000-04-20  Sven Wischnowsky  <wischnow@informatik.hu-berlin.de>
 
+	* 10881: Functions/Misc/zrecompile: don't remove *all* .zwc files,
+ 	keep the first one
+	
 	* 10868: Src/Zle/complist.c: fix off-by-one error in scrolled
  	menu-selections
 	
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 v1.2.3-70-g09d2