[Phemlock-cvs] CVS update: phemlock/src/user/bindings.lisp

[Robert Strandh]

Update of /project/phemlock/cvsroot/phemlock/src/user
In directory common-lisp.net:/tmp/cvs-serv23331/user

Modified Files:
	bindings.lisp 
Log Message:
Commented out some of the bindings that generated compile-time error
messages because the functionality was commented out in the
hemlock.system file.  There are lots left, though.


Date: Mon Aug  9 23:34:42 2004
Author: rstrandh

Index: phemlock/src/user/bindings.lisp
diff -u phemlock/src/user/bindings.lisp:1.2 phemlock/src/user/bindings.lisp:1.3
--- phemlock/src/user/bindings.lisp:1.2	Mon Aug  9 22:24:16 2004
+++ phemlock/src/user/bindings.lisp	Mon Aug  9 23:34:42 2004
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 #+CMU (ext:file-comment
-       "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.2 2004/08/10 05:24:16 rstrandh Exp $")
+       "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.3 2004/08/10 06:34:42 rstrandh Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -321,24 +321,24 @@
 
 
 ;;;; Typescript.
-(bind-key "Confirm Typescript Input" #k"return" :mode "Typescript")
-(bind-key "Interactive Beginning of Line" #k"control-a" :mode "Typescript")
-(bind-key "Kill Interactive Input" #k"meta-i" :mode "Typescript")
-(bind-key "Previous Interactive Input" #k"meta-p" :mode "Typescript")
-(bind-key "Search Previous Interactive Input" #k"meta-P" :mode "Typescript")
-(bind-key "Next Interactive Input" #k"meta-n" :mode "Typescript")
-(bind-key "Reenter Interactive Input" #k"control-return" :mode "Typescript")
-(bind-key "Typescript Slave Break" #k"hyper-b" :mode "Typescript")
-(bind-key "Typescript Slave to Top Level" #k"hyper-g" :mode "Typescript")
-(bind-key "Typescript Slave Status" #k"hyper-s" :mode "Typescript")
-(bind-key "Select Slave" #k"control-meta-\c")
-(bind-key "Select Background" #k"control-meta-C")
+;; (bind-key "Confirm Typescript Input" #k"return" :mode "Typescript")
+;; (bind-key "Interactive Beginning of Line" #k"control-a" :mode "Typescript")
+;; (bind-key "Kill Interactive Input" #k"meta-i" :mode "Typescript")
+;; (bind-key "Previous Interactive Input" #k"meta-p" :mode "Typescript")
+;; (bind-key "Search Previous Interactive Input" #k"meta-P" :mode "Typescript")
+;; (bind-key "Next Interactive Input" #k"meta-n" :mode "Typescript")
+;; (bind-key "Reenter Interactive Input" #k"control-return" :mode "Typescript")
+;; (bind-key "Typescript Slave Break" #k"hyper-b" :mode "Typescript")
+;; (bind-key "Typescript Slave to Top Level" #k"hyper-g" :mode "Typescript")
+;; (bind-key "Typescript Slave Status" #k"hyper-s" :mode "Typescript")
+;; (bind-key "Select Slave" #k"control-meta-\c")
+;; (bind-key "Select Background" #k"control-meta-C")
 
-(bind-key "Abort Operations" #k"hyper-a")
-(bind-key "List Operations" #k"hyper-l")
+;; (bind-key "Abort Operations" #k"hyper-a")
+;; (bind-key "List Operations" #k"hyper-l")
 
-(bind-key "Next Compiler Error" #k"hyper-n")
-(bind-key "Previous Compiler Error" #k"hyper-p")
+;; (bind-key "Next Compiler Error" #k"hyper-n")
+;; (bind-key "Previous Compiler Error" #k"hyper-p")
 
 
 ;;;; Lisp (some).
@@ -474,20 +474,20 @@
 
 ;;;; Spell bindings.
 
-(bind-key "Check Word Spelling" #k"meta-$")
-(bind-key "Add Word to Spelling Dictionary" #k"control-x $")
+;; (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")
+;; (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.