Changeset 6570

Timestamp:

May 20, 2007, 12:43:47 AM (18 years ago)

Author:

Gary Byers

Message:

Comment out some stuff that's unlikely to be supported.

File:

• branches/ide-1.0/ccl/hemlock/src/bindings.lisp (modified) (13 diffs)

branches/ide-1.0/ccl/hemlock/src/bindings.lisp

@@ -1 @@
-;;; -*- Log: hemlock.log; Package: Hemlock -*-
+;; -*- Log: hemlock.log; Package: Hemlock -*-
 ;;;
 ;;; **********************************************************************
@@ -72 +72 @@
 
 
+#||
 (bind-key "Here to Top of Window" #k"leftdown")
 (bind-key "Do Nothing" #k"leftup")
@@ -82 +83 @@
 (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 +97 @@
 (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 +105 @@
 ;(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 +456 @@
 (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 +506 @@
 
 ;;;; 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 +539 @@
 
 (bind-key "Self Overwrite" #k"space" :mode "Overwrite")
-
+||#
 
 
@@ -804 +809 @@
 ;;;; Bufed.
 
+#||
 (bind-key "Bufed" #k"control-x control-meta-b")
 (bind-key "Bufed Delete" #k"d" :mode "Bufed")
@@ -818 +824 @@
 
 (bind-key "Bufed Help" #k"?" :mode "Bufed")
-
+|#
 
 
 
 ;;;; Dired.
-#+dired-mode
+#||
 (progn
 (bind-key "Dired" #k"control-x control-meta-d")
@@ -852 +858 @@
 (bind-key "Previous Line" #k"p" :mode "Dired")
 )
+||#
 
 
 ;;;; View Mode.
-#+view-mode
+#||
 (progn
 (bind-key "View Scroll Down" #k"space" :mode "View")
@@ -868 +875 @@
 (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 +887 @@
 (bind-key "Exit Lisp Library" #k"q" :mode "Lisp-Lib")
 (bind-key "Lisp Library Help" #k"?" :mode "Lisp-Lib")
+||#