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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(known-to-emacs-p): Bugfix. Indentation-updates was broken.

Date: Sat Jun 19 14:07:41 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.192 slime/swank.lisp:1.193
--- slime/swank.lisp:1.192	Wed Jun 16 15:04:09 2004
+++ slime/swank.lisp	Sat Jun 19 14:07:41 2004
@@ -1709,8 +1709,8 @@
   "Return true if Emacs has special rules for indenting SYMBOL."
   (or (cl-symbol-p symbol)
       (let ((name (symbol-name symbol)))
-        (not (or (prefix-match-p "DEF" name)
-                 (prefix-match-p "WITH-" name))))))
+        (or (prefix-match-p "DEF" name)
+            (prefix-match-p "WITH-" name)))))
 
 (defun symbol-indentation (symbol)
   "Return a form describing the indentation of SYMBOL.