[slime-cvs] CVS slime/contrib

[CVS User nsiivola]

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

Modified Files:
	ChangeLog slime-cl-indent.el 
Log Message:
slime-indentation: hack comment indentation in "basic" style

  All styles inherit from it, so everyone benefits.

  Haters gonna hate, but this fixes

   (foo (;; bar
         bar))

  getting a space inserted between ( and ;.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/06/10 15:19:31	1.472
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/06/10 15:40:29	1.473
@@ -1,5 +1,8 @@
 2011-06-10  Nikodemus Siivola  <nikodemus at random-state.net>
 
+	* slime-cl-indent.el ("basic"): Hack comment indentation
+	to avoid inserting spaces where they don't belong.
+
 	slime-indentation: More adjustment to the fallback method.
 
 	* slime-cl-indent.el (common-lisp-indent-function-1): handle
--- /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/06/10 15:19:31	1.35
+++ /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/06/10 15:40:29	1.36
@@ -349,7 +349,8 @@
 (define-common-lisp-style "basic"
   "This style merely gives all identation variables their default values,
    making it easy to create new styles that are proof against user
-   customizations."
+   customizations. It also adjusts comment indentation from default.
+   All other predefined modes inherit from basic."
   (:variables
    (lisp-indent-maximum-backtracking 3)
    (lisp-tag-indentation 1)
@@ -363,7 +364,11 @@
    (lisp-lambda-list-keyword-alignment nil)
    (lisp-lambda-list-keyword-parameter-indentation 2)
    (lisp-lambda-list-keyword-parameter-alignment nil)
-   (lisp-indent-defun-method (4 &lambda &body))))
+   (lisp-indent-defun-method (4 &lambda &body))
+   ;; Without these (;;foo would get a space inserted between
+   ;; ( and ; by indent-sexp.
+   (comment-indent-function (lambda () nil))
+   (comment-column nil)))
 
 (define-common-lisp-style "classic"
   "This style of indentation emulates the most striking features of 1995