Index: /branches/ide-1.0/ccl/hemlock/src/listener.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/listener.lisp	(revision 6704)
+++ /branches/ide-1.0/ccl/hemlock/src/listener.lisp	(revision 6705)
@@ -145,29 +145,6 @@
 (add-hook listener-mode-hook 'listener-mode-lisp-mode-hook)
 
-(defhvar "Editor Definition Info"
-  "When this is non-nil, the editor Lisp is used to determine definition
-   editing information; otherwise, the slave Lisp is used."
-  :value t
-  :mode "Listener")
-
-#|
-(defvar *selected-eval-buffer* nil)
-
-(defcommand "Select Listener Buffer" (p)
-  "Goto buffer in \"Listener\" mode, creating one if necessary."
-  "Goto buffer in \"Listener\" mode, creating one if necessary."
-  (declare (ignore p))
-  (unless *selected-eval-buffer*
-    (when (getstring "Listenere" *buffer-names*)
-      (editor-error "There is already a buffer named \"Listener\"!"))
-    (setf *selected-eval-buffer*
-	  (make-buffer "Listener"
-		       :delete-hook
-		       (list #'(lambda (buf)
-				 (declare (ignore buf))
-				 (setf *selected-eval-buffer* nil)))))
-    (setf (buffer-minor-mode *selected-eval-buffer* "Listener") t))
-  (change-to-buffer *selected-eval-buffer*))
-|#
+
+
 
 
@@ -230,5 +207,5 @@
   "Send :POP if input-mark is at buffer's end, else delete forward character."
   (let* ((input-mark (value buffer-input-mark))
-         (point (current-point)))
+         (point (current-point-for-deletion)))
     (if (and (null (next-character point))
              (null (next-character input-mark)))
@@ -238,15 +215,5 @@
              
 
-(defcommand "Abort Listener Input" (p)
-  "Move to the end of the buffer and prompt."
-  "Move to the end of the buffer and prompt."
-  (declare (ignore p))
-  (let ((point (current-point)))
-    (buffer-end point)
-    (insert-character point #\newline)
-    (insert-string point "Aborted.")
-    (insert-character point #\newline)
-    (insert-string point (get-prompt))
-    (move-mark (value buffer-input-mark) point)))
+
 
 
@@ -453,9 +420,5 @@
   (setf (buffer-minor-mode buffer "Editor") t))
 
-(defhvar "Editor Definition Info"
-  "When this is non-nil, the editor Lisp is used to determine definition
-   editing information; otherwise, the slave Lisp is used."
-  :value t
-  :mode "Editor")
+
 
 (defcommand "Editor Compile Defun" (p)