[slime-cvs] CVS /slime

[mbaringer]

Update of /project/slime/cvsroot//slime
In directory clnet:/tmp/cvs-serv17971

Modified Files:
	slime.el 
Log Message:
(slime-macroexpansion-minor-mode-map): Rebind 'undo' to set
buffer-read-only temporarily to t.


--- /project/slime/cvsroot//slime/slime.el	2006/04/14 16:06:56	1.618
+++ /project/slime/cvsroot//slime/slime.el	2006/05/14 09:01:16	1.619
@@ -7297,7 +7297,7 @@
   (let ((buffer (current-buffer)))
     (delete-windows-on buffer)
     (kill-buffer buffer)))
-  
+
 
 ;;;; Macroexpansion
 
@@ -7309,10 +7309,14 @@
     ("g" . slime-macroexpand-again)))
 
 (flet ((remap (from to)
-              (dolist (mapping (where-is-internal from slime-mode-map))
-                (define-key slime-macroexpansion-minor-mode-map mapping to))))
+         (dolist (mapping (where-is-internal from slime-mode-map))
+           (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-macroexpand-all 'slime-macroexpand-all-inplace)
+  (remap 'undo '(lambda (&optional arg)
+                 (interactive)
+                 (let ((buffer-read-only nil))
+                   (undo arg)))))
 
 (defvar slime-eval-macroexpand-expression nil
   "Specifies the last macroexpansion preformed. This variable