[climacs-cvs] CVS update: climacs/lisp-syntax.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv17905

Modified Files:
	lisp-syntax.lisp 
Log Message:
Indentation for with-open-file and some CLIM macros that I am currently 
using. 

Date: Wed Jan 11 19:52:45 2006
Author: rstrandh

Index: climacs/lisp-syntax.lisp
diff -u climacs/lisp-syntax.lisp:1.40 climacs/lisp-syntax.lisp:1.41
--- climacs/lisp-syntax.lisp:1.40	Wed Jan 11 18:10:15 2006
+++ climacs/lisp-syntax.lisp	Wed Jan 11 19:52:45 2006
@@ -2066,6 +2066,18 @@
 
 (define-simple-indentor (flet indent-local-function-definitions))
 (define-simple-indentor (labels indent-local-function-definitions))
+(define-simple-indentor (with-open-file indent-list))
+
+;;; CLIM indentation 
+
+(define-simple-indentor (clim:with-output-as-presentation indent-list))
+(define-simple-indentor (clim:vertically indent-list))
+(define-simple-indentor (clim:horizontally indent-list))
+(define-simple-indentor (clim:scrolling indent-list))
+(define-simple-indentor (clim:with-drawing-options indent-list))
+(define-simple-indentor (clim:define-command-table indent-list))
+(define-simple-indentor (clim:define-command indent-list indent-list))
+(define-simple-indentor (clim:define-application-frame indent-list indent-list))
 
 (defun compute-path-in-trees (trees n offset)
   (cond ((or (null trees)