Index: /branches/ide-1.0/ccl/hemlock/src/lispmode.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/lispmode.lisp	(revision 6660)
+++ /branches/ide-1.0/ccl/hemlock/src/lispmode.lisp	(revision 6661)
@@ -961,18 +961,4 @@
 (defindent "di:frame-function-mismatch" 1)
 
-;;; Xlib forms.
-;;;
-(defindent "with-gcontext" 1)
-(defindent "xlib:with-gcontext" 1)
-(defindent "with-state" 1)
-(defindent "xlib:with-state" 1)
-(defindent "with-display" 1)
-(defindent "xlib:with-display" 1)
-(defindent "with-event-queue" 1)
-(defindent "xlib:with-event-queue" 1)
-(defindent "with-server-grabbed" 1)
-(defindent "xlib:with-server-grabbed" 1)
-(defindent "event-case" 1)
-(defindent "xlib:event-case" 1)
 
 ;;; CLOS forms.
@@ -987,24 +973,9 @@
 ;;; System forms.
 ;;;
-(defindent "alien-bind" 1)
-(defindent "def-c-record" 1)
-(defindent "defrecord" 1)
-(defindent "add-fd-handler" 2)
-(defindent "with-fd-handler" 1)
-
-;;; Wire forms.
-(defindent "remote" 1)
-(defindent "wire:remote" 1)
-(defindent "remote-value" 1)
-(defindent "wire:remote-value" 1)
-(defindent "remote-value-bind" 3)
-(defindent "wire:remote-value-bind" 3)
 
 ;;; Multiprocessing forms.
-(defindent "with-lock-held" 1)
+(defindent "with-lock-grabbed" 1)
 (defindent "process-wait" 1)
 
-;;; Alien forms.
-(defindent "with-alien" 1)