Index: /branches/ide-1.0/ccl/hemlock/src/bindings.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/bindings.lisp	(revision 6569)
+++ /branches/ide-1.0/ccl/hemlock/src/bindings.lisp	(revision 6570)
@@ -1,3 +1,3 @@
-;;; -*- Log: hemlock.log; Package: Hemlock -*-
+;; -*- Log: hemlock.log; Package: Hemlock -*-
 ;;;
 ;;; **********************************************************************
@@ -72,4 +72,5 @@
 
 
+#||
 (bind-key "Here to Top of Window" #k"leftdown")
 (bind-key "Do Nothing" #k"leftup")
@@ -82,5 +83,5 @@
 (bind-key "Do Nothing" #k"super-rightup")
 (bind-key "Insert Kill Buffer" #k"super-rightdown")
-
+||#
 
 (bind-key "Insert File" #k"control-x control-r")
@@ -96,5 +97,5 @@
 (bind-key "List Buffers" #k"control-x control-b")
 (bind-key "Buffer Not Modified" #k"meta-~")
-(bind-key "Check Buffer Modified" #k"control-x ~")
+;(bind-key "Check Buffer Modified" #k"control-x ~")
 (bind-key "Select Buffer" #k"control-x b")
 ;(bind-key "Select Previous Buffer" #k"control-meta-l")
@@ -104,11 +105,11 @@
 ;(bind-key "Select Random Typeout Buffer" #k"hyper-t")
 
-(bind-key "Next Window" #k"control-x n")
-(bind-key "Next Window" #k"control-x o")
-(bind-key "Previous Window" #k"control-x p")
+;(bind-key "Next Window" #k"control-x n")
+;(bind-key "Next Window" #k"control-x o")
+;(bind-key "Previous Window" #k"control-x p")
 (bind-key "Split Window" #k"control-x 2")
 ;(bind-key "New Window" #k"control-x control-n")
 ;(bind-key "Delete Window" #k"control-x d")
-(bind-key "Delete Next Window" #k"control-x 1")
+;(bind-key "Delete Next Window" #k"control-x 1")
 ;(bind-key "Line to Top of Window" #k"meta-!")
 ;(bind-key "Line to Center of Window" #k"meta-#")
@@ -455,6 +456,8 @@
 (bind-key "Quote Tab" #k"meta-tab")
 
+#||
 (bind-key "Directory" #k"control-x control-\d")
 (bind-key "Verbose Directory" #k"control-x control-D")
+||#
 
 (bind-key "Activate Region" #k"control-x control-@")
@@ -503,25 +506,27 @@
 
 ;;;; Spell bindings.
-#+spell-mode
-(progn
-(bind-key "Check Word Spelling" #k"meta-$")
-(bind-key "Add Word to Spelling Dictionary" #k"control-x $")
-
-(dolist (info (command-bindings (getstring "Self Insert" *command-names*)))
-  (let* ((key (car info))
-         (key-event (svref key 0))
-         (character (key-event-char key-event)))
-    (unless (or (alpha-char-p character) (eq key-event #k"'"))
-      (bind-key "Auto Check Word Spelling" key :mode "Spell"))))
-(bind-key "Auto Check Word Spelling" #k"return" :mode "Spell")
-(bind-key "Auto Check Word Spelling" #k"tab" :mode "Spell")
-(bind-key "Auto Check Word Spelling" #k"linefeed" :mode "Spell")
-(bind-key "Correct Last Misspelled Word" #k"meta-:")
-(bind-key "Undo Last Spelling Correction" #k"control-x a")
-)
+#||
+(progn
+  (bind-key "Check Word Spelling" #k"meta-$")
+  (bind-key "Add Word to Spelling Dictionary" #k"control-x $")
+
+  (dolist (info (command-bindings (getstring "Self Insert" *command-names*)))
+    (let* ((key (car info))
+           (key-event (svref key 0))
+           (character (key-event-char key-event)))
+      (unless (or (alpha-char-p character) (eq key-event #k"'"))
+        (bind-key "Auto Check Word Spelling" key :mode "Spell"))))
+  (bind-key "Auto Check Word Spelling" #k"return" :mode "Spell")
+  (bind-key "Auto Check Word Spelling" #k"tab" :mode "Spell")
+  (bind-key "Auto Check Word Spelling" #k"linefeed" :mode "Spell")
+  (bind-key "Correct Last Misspelled Word" #k"meta-:")
+  (bind-key "Undo Last Spelling Correction" #k"control-x a")
+  )
 
 
 ;;;; Overwrite Mode.
-
+||#
+
+#||
 (bind-key "Overwrite Delete Previous Character" #k"delete" :mode "Overwrite")
 (bind-key "Overwrite Delete Previous Character" #k"backspace" :mode "Overwrite")
@@ -534,5 +539,5 @@
 
 (bind-key "Self Overwrite" #k"space" :mode "Overwrite")
-
+||#
 
 
@@ -804,4 +809,5 @@
 ;;;; Bufed.
 
+#||
 (bind-key "Bufed" #k"control-x control-meta-b")
 (bind-key "Bufed Delete" #k"d" :mode "Bufed")
@@ -818,10 +824,10 @@
 
 (bind-key "Bufed Help" #k"?" :mode "Bufed")
-
+|#
 
 
 
 ;;;; Dired.
-#+dired-mode
+#||
 (progn
 (bind-key "Dired" #k"control-x control-meta-d")
@@ -852,8 +858,9 @@
 (bind-key "Previous Line" #k"p" :mode "Dired")
 )
+||#
 
 
 ;;;; View Mode.
-#+view-mode
+#||
 (progn
 (bind-key "View Scroll Down" #k"space" :mode "View")
@@ -868,8 +875,10 @@
 (bind-key "End of Buffer" #k"\>" :mode "View")
 )
+||#
 
 
 ;;;; Lisp Library.
 
+#||
 (bind-key "Describe Pointer Library Entry" #k"leftdown" :mode "Lisp-Lib")
 (bind-key "Load Pointer Library Entry" #k"rightdown" :mode "Lisp-Lib")
@@ -878,4 +887,5 @@
 (bind-key "Exit Lisp Library" #k"q" :mode "Lisp-Lib")
 (bind-key "Lisp Library Help" #k"?" :mode "Lisp-Lib")
+||#