Changeset 671


Ignore:
Timestamp:
Mar 19, 2004, 12:47:36 AM (16 years ago)
Author:
gb
Message:

Remove/comment-out some unused stuff.

Location:
trunk/ccl/hemlock/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/hemlock/src/main.lisp

    r607 r671  
    260260         *after-editor-initializations-funs*))
    261261
     262#+clx
    262263(defun cl-user::hemlock (&optional x
    263264                         &key (init t)
  • trunk/ccl/hemlock/src/rompsite.lisp

    r617 r671  
    227227;;; lisp.  It sets up process specific data structures.
    228228;;;
     229#+clx
    229230(defun init-raw-io (display)
    230231  #-clx (declare (ignore display))
     
    495496       (funcall (device-exit device) device))))
    496497
    497 (defun standard-device-init ()
    498   (setup-input))
    499 
    500 (defun standard-device-exit ()
    501   (reset-input))
     498
    502499
    503500(declaim (special *echo-area-window*))
     
    697694    result))
    698695
    699 (defun tty-show-mark (window x y time)
    700   (cond ((listen-editor-input *editor-input*))
    701         (x (internal-redisplay)
    702            (let* ((hunk (window-hunk window))
    703                   (device (device-hunk-device hunk)))
    704              (funcall (device-put-cursor device) hunk x y)
    705              (when (device-force-output device)
    706                (funcall (device-force-output device)))
    707              (sleep-for-time time))
    708            t)
    709         (t nil)))
     696
    710697
    711698#+clx
Note: See TracChangeset for help on using the changeset viewer.