[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-compiler-macroexpand-inplace)
(slime-compiler-macroexpand-1-inplace): New commands.
(slime-macroexpansion-minor-mode-map): Bind them.
Patch by Stelian Ionescu.

--- /project/slime/cvsroot/slime/ChangeLog	2009/06/28 19:14:43	1.1796
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/28 19:14:54	1.1797
@@ -1,3 +1,9 @@
+2009-06-28  Stelian Ionescu <stelian.ionescu-zeus at poste.it>
+
+	* slime.el (slime-compiler-macroexpand-inplace)
+	(slime-compiler-macroexpand-1-inplace): New commands.
+	(slime-macroexpansion-minor-mode-map): Bind them.
+
 2009-06-28  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-sbcl.lisp (add-fd-handler): Avoid recursive invocation
--- /project/slime/cvsroot/slime/slime.el	2009/06/27 15:10:29	1.1191
+++ /project/slime/cvsroot/slime/slime.el	2009/06/28 19:14:54	1.1192
@@ -5032,6 +5032,8 @@
            (define-key slime-macroexpansion-minor-mode-map mapping to))))
   (remap 'slime-macroexpand-1 'slime-macroexpand-1-inplace)
   (remap 'slime-macroexpand-all 'slime-macroexpand-all-inplace)
+  (remap 'slime-compiler-macroexpand-1 'slime-compiler-macroexpand-1-inplace)
+  (remap 'slime-compiler-macroexpand 'slime-compiler-macroexpand-inplace)
   (remap 'advertised-undo 'slime-macroexpand-undo)
   (remap 'undo 'slime-macroexpand-undo))
 
@@ -5160,11 +5162,21 @@
   (interactive)
   (slime-eval-macroexpand 'swank:swank-compiler-macroexpand))
 
+(defun slime-compiler-macroexpand-inplace ()
+  "Display the compiler-macro expansion of sexp at point."
+  (interactive)
+  (slime-eval-macroexpand-inplace 'swank:swank-compiler-macroexpand))
+
 (defun slime-compiler-macroexpand-1 ()
   "Display the compiler-macro expansion of sexp at point."
   (interactive)
   (slime-eval-macroexpand 'swank:swank-compiler-macroexpand-1))
 
+(defun slime-compiler-macroexpand-1-inplace ()
+  "Display the compiler-macro expansion of sexp at point."
+  (interactive)
+  (slime-eval-macroexpand-inplace 'swank:swank-compiler-macroexpand-1))
+
 (defun slime-format-string-expand ()
   "Format the format-string at point, and display its expansion."
   (interactive)