[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv3392

Modified Files:
	swank.lisp 
Log Message:
(symbol-indentation): Don't infer indentation for symbols starting
with 'def' or 'with-' it's wrong most of the time and Emacs' defaults
are better.

Date: Fri Apr 30 02:34:04 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.180 slime/swank.lisp:1.181
--- slime/swank.lisp:1.180	Thu Apr 29 15:05:28 2004
+++ slime/swank.lisp	Fri Apr 30 02:34:03 2004
@@ -1652,7 +1652,10 @@
   "Return a form describing the indentation of SYMBOL.
 The form is to be used as the `common-lisp-indent-function' property
 in Emacs."
-  (if (macro-function symbol)
+  (if (and (macro-function symbol)
+           (let ((s (symbol-name 'defmethod)))
+             (not (or (search "DEF" s :end2 (min (length s) 3))
+                      (search "WITH-" s :end2 (min (length s) 5))))))
       (let ((arglist (arglist symbol)))
         (etypecase arglist
           ((member :not-available)