From: Drew Crampsie <drewc@tech.coop>
Date: Tue, 8 Nov 2005 07:34:24 +0000 (-0800)
Subject: removed the Undo in ajax fkey
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/adfb39839d6b54a4182de18e658061060ce91ba1

removed the Undo in ajax fkey

darcs-hash:20051108073424-5417e-a647b25fef45967c8bd6244416c187e828fc8465.gz
---

diff --git a/src/components/ajax.lisp b/src/components/ajax.lisp
index 9f5d5e3..9092f24 100644
--- a/src/components/ajax.lisp
+++ b/src/components/ajax.lisp
@@ -228,7 +228,7 @@ but here's what i use."
 						     :type :one-line))))))
 	    
 	     (<ucw:render-component :component (live-search slot))
-	     (<ucw:submit :action (revert-foreign-slot slot)
+	     #+ (or) (<ucw:submit :action (revert-foreign-slot slot)
 			  :value "Undo")
 			      (<ucw:submit :action  (mewa::search-records slot instance) :value "find" :style "display:inline"))
 	    ((mewa::linkedp slot)