[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv21469

Modified Files:
	ChangeLog slime.el 
Log Message:
Don't use indent-sexp for macroexpanded code.
indent-sexp is potentially slow and usually redundant.

* slime.el (slime-initialize-macroexpansion-buffer): Don't use
indent-sexp.
(slime-eval-macroexpand-inplace): Avoid indent-sexp but
use slime-insert-indented.

--- /project/slime/cvsroot/slime/ChangeLog	2010/10/01 09:30:34	1.2145
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/01 09:30:43	1.2146
@@ -1,5 +1,15 @@
 2010-10-01  Helmut Eller  <heller at common-lisp.net>
 
+	Don't use indent-sexp for macroexpanded code.
+	indent-sexp is potentially slow and usually redundant.
+
+	* slime.el (slime-initialize-macroexpansion-buffer): Don't use
+	indent-sexp.
+	(slime-eval-macroexpand-inplace): Avoid indent-sexp but
+	use slime-insert-indented.
+
+2010-10-01  Helmut Eller  <heller at common-lisp.net>
+
 	Save result in kill ring for M-- C-x C-e.
 	For C-u C-x C-e set mark before inserting.
 
--- /project/slime/cvsroot/slime/slime.el	2010/10/01 09:30:34	1.1341
+++ /project/slime/cvsroot/slime/slime.el	2010/10/01 09:30:43	1.1342
@@ -4955,7 +4955,6 @@
     (erase-buffer)
     (insert expansion)
     (goto-char (point-min))
-    (indent-sexp)
     (font-lock-fontify-buffer)))
 
 (defun slime-create-macroexpansion-buffer ()
@@ -4988,9 +4987,7 @@
                (slime-remove-edits (point-min) (point-max)))
              (goto-char start)
              (delete-region start end)
-             (insert expansion)
-             (goto-char start)
-             (indent-sexp)
+             (slime-insert-indented expansion)
              (goto-char point))))))))
 
 (defun slime-macroexpand-1 (&optional repeatedly)
@@ -8065,7 +8062,8 @@
     (slime-execute-as-command 'slime-macroexpand-1)
     (slime-wait-condition "Macroexpansion buffer visible" 
                           (lambda () 
-                            (slime-buffer-visible-p (slime-buffer-name :macroexpansion)))
+                            (slime-buffer-visible-p 
+                             (slime-buffer-name :macroexpansion)))
                           5)
     (with-current-buffer (get-buffer (slime-buffer-name :macroexpansion))
       (slime-test-expect "Initial macroexpansion is correct"