Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix resizing when alternative display is enabled

Browse source 
* eat.el (eat--t-term): Fix error while resizing when
alternative display is enabled.
This commit is contained in:
Akib Azmain Turja 2023-04-05 20:39:05 +06:00
parent 5792c1b2e0
commit 5c373094cc
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
eat.el
View file

@ -3369,16 +3369,19 @@ is the selection data encoded in base64."
(< height old-height)) (< height old-height))
;; Go to the beginning of display. ;; Go to the beginning of display.
(goto-char (eat--t-disp-begin disp)) (goto-char (eat--t-disp-begin disp))
(dotimes (l height) (let ((l 0))
(eat--t-col-motion width) (while (and (< l height) (not (eobp)))
(delete-region (point) (car (eat--t-eol))) (eat--t-col-motion width)
(if (< (1+ l) height) (delete-region (point) (car (eat--t-eol)))
(forward-char) (unless (eobp)
(delete-region (point) (point-max)) (if (< (1+ l) height)
(let ((y (eat--t-cur-y cursor)) (forward-char)
(x (eat--t-cur-x cursor))) (delete-region (point) (point-max))
(eat--t-goto 1 1) (let ((y (eat--t-cur-y cursor))
(eat--t-goto y x))))) (x (eat--t-cur-x cursor)))
(eat--t-goto 1 1)
(eat--t-goto y x))))
(cl-incf l))))
;; REVIEW: This works, but it is very simple. Most ;; REVIEW: This works, but it is very simple. Most
;; terminals have more sophisticated mechanisms to do this. ;; terminals have more sophisticated mechanisms to do this.
;; It would be nice thing have them here. ;; It would be nice thing have them here.