Changeset 6705

Timestamp:

Jun 12, 2007, 12:47:22 PM (17 years ago)

Author:

Gary Byers

Message:

current-point-for-deletion in listener c-d.

File:

• branches/ide-1.0/ccl/hemlock/src/listener.lisp (modified) (4 diffs)

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

@@ -145 +145 @@
 (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 +207 @@
   "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 +215 @@
              
 
-(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 +420 @@
   (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)