(define (buffer-substring row1 col1 row2 col2) (let ((row (editor-get-cur-row)) (col (editor-get-cur-col))) (editor-set-select-area row1 col1 row2 col2) (let ((str (editor-get-selected-string))) (editor-set-select-area row col row col) str…

日本語とか見たいな文字（2バイト文字っていうのか）の場合に上手く移動しなかったのに気づいたので変えてみた話。 ;; カーソル移動 ;; C-fで右へ (define (forward-char) (let ((row (editor-get-cur-row)) (col (editor-get-cur-col))) (editor-set-row-co…