From 84963428416ba7cd8518d82b1899178178dfc1b4 Mon Sep 17 00:00:00 2001
From: Bart Schaefer <barts@users.sourceforge.net>
Date: Sat, 29 Apr 2000 06:33:48 +0000
Subject: 11015: `unfunction TRAPxxx' now works with localtraps in effect.  I'm
 not very happy with having to play with `noerrs' but I don't see any other
 way to silence the warning from bin_unhash().

---
 Src/builtin.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Src/builtin.c')

diff --git a/Src/builtin.c b/Src/builtin.c
index 79648561e..6d9fcd493 100644
--- a/Src/builtin.c
+++ b/Src/builtin.c
@@ -2592,12 +2592,14 @@ bin_unhash(char *name, char **argv, char *ops, int func)
 
     /* Take arguments literally -- do not glob */
     for (; *argv; argv++) {
+	int ne = noerrs;
 	if ((hn = ht->removenode(ht, *argv))) {
 	    ht->freenode(hn);
 	} else {
 	    zwarnnam(name, "no such hash table element: %s", *argv, 0);
-	    returnval = 1;
+	    returnval |= !noerrs;
 	}
+	noerrs = ne;
     }
     return returnval;
 }
-- 
cgit v1.2.3