Skip to content
Snippets Groups Projects
Commit ba004271 authored by ram's avatar ram
Browse files

This commit was generated by cvs2svn to compensate for changes in r1454,

which included commits to RCS files with non-trunk default branches.
parents ee998a42 4261e369
No related branches found
No related tags found
No related merge requests found
...@@ -929,7 +929,7 @@ ...@@ -929,7 +929,7 @@
(device (device-hunk-device hunk))) (device (device-hunk-device hunk)))
(if upos (if upos
(let ((previous start) (let ((previous start)
after-pos) (after-pos 0))
(declare (fixnum previous after-pos)) (declare (fixnum previous after-pos))
(loop (device-write-string string previous upos) (loop (device-write-string string previous upos)
(setf after-pos (do ((i (1+ upos) (1+ i))) (setf after-pos (do ((i (1+ upos) (1+ i)))
...@@ -1059,7 +1059,7 @@ ...@@ -1059,7 +1059,7 @@
(when end-string (incf cost (length (the simple-string end-string)))) (when end-string (incf cost (length (the simple-string end-string))))
(< cost insert-char-num))) (< cost insert-char-num)))
(defun delete-char (hunk x y &optional n) (defun delete-char (hunk x y &optional (n 1))
(declare (fixnum x y n)) (declare (fixnum x y n))
(update-cursor hunk x y) (update-cursor hunk x y)
(let* ((device (device-hunk-device hunk)) (let* ((device (device-hunk-device hunk))
...@@ -1072,7 +1072,7 @@ ...@@ -1072,7 +1072,7 @@
(when end-string (device-write-string end-string)))) (when end-string (device-write-string end-string))))
(defun worth-using-delete-mode (device delete-char-num clear-char-num) (defun worth-using-delete-mode (device delete-char-num clear-char-num)
(declare (fixnum num)) (declare (fixnum delete-char-num clear-char-num))
(let ((init-string (tty-device-delete-init-string device)) (let ((init-string (tty-device-delete-init-string device))
(end-string (tty-device-delete-end-string device)) (end-string (tty-device-delete-end-string device))
(delete-char-string (tty-device-delete-char-string device)) (delete-char-string (tty-device-delete-char-string device))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment