/[cmucl]/src/hemlock/tty-display.lisp
ViewVC logotype

Diff of /src/hemlock/tty-display.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ram, Wed May 9 13:06:45 1990 UTC revision 1.1.1.1 by ram, Sun Jun 17 12:25:30 1990 UTC
# Line 929  Line 929 
929          (device (device-hunk-device hunk)))          (device (device-hunk-device hunk)))
930      (if upos      (if upos
931          (let ((previous start)          (let ((previous start)
932                after-pos)                (after-pos 0))
933            (declare (fixnum previous after-pos))            (declare (fixnum previous after-pos))
934            (loop (device-write-string string previous upos)            (loop (device-write-string string previous upos)
935                  (setf after-pos (do ((i (1+ upos) (1+ i)))                  (setf after-pos (do ((i (1+ upos) (1+ i)))
# Line 1059  Line 1059 
1059      (when end-string (incf cost (length (the simple-string end-string))))      (when end-string (incf cost (length (the simple-string end-string))))
1060      (< cost insert-char-num)))      (< cost insert-char-num)))
1061    
1062  (defun delete-char (hunk x y &optional n)  (defun delete-char (hunk x y &optional (n 1))
1063    (declare (fixnum x y n))    (declare (fixnum x y n))
1064    (update-cursor hunk x y)    (update-cursor hunk x y)
1065    (let* ((device (device-hunk-device hunk))    (let* ((device (device-hunk-device hunk))
# Line 1072  Line 1072 
1072      (when end-string (device-write-string end-string))))      (when end-string (device-write-string end-string))))
1073    
1074  (defun worth-using-delete-mode (device delete-char-num clear-char-num)  (defun worth-using-delete-mode (device delete-char-num clear-char-num)
1075    (declare (fixnum num))    (declare (fixnum delete-char-num clear-char-num))
1076    (let ((init-string (tty-device-delete-init-string device))    (let ((init-string (tty-device-delete-init-string device))
1077          (end-string (tty-device-delete-end-string device))          (end-string (tty-device-delete-end-string device))
1078          (delete-char-string (tty-device-delete-char-string device))          (delete-char-string (tty-device-delete-char-string device))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5