dot/emacs: Bind a key to `magit-toggle-buffer-lock'.

[profile] / dot / swank.lisp

diff --git a/dot/swank.lisp b/dot/swank.lisp
index 2000f61e9eb5dee44a2a9d094f2475e9dcf30c34..cbac155e171a24dc5eede3b3814a6043eda4f772 100644 (file)
--- a/dot/swank.lisp
+++ b/dot/swank.lisp
@@ -3,14 +3,13 @@
 #+mdw (cl:in-package #:mdw-hacks)
 
 ;; Miscellaneous configuration.
-(setf swank:*communication-style* :fd-handler
-      swank:*dont-close* t
+(setf swank:*dont-close* t
       *print-right-margin* 77)
+#+(or sbcl cmu) (setf swank:*communication-style* :fd-handler)
 
 ;; Maybe inhibit some Swank extensions.
 (let ((forbidden-contribs
-       '(#+sbcl swank-loader::swank-presentations
-        #+sbcl swank-loader::swank-presentation-streams)))
+       '()))
   (when forbidden-contribs
     (setf swank-loader::*contribs*
          (delete-if (lambda (thing) (member thing forbidden-contribs))