Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 11:27:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(term-erase-in-display): Fix case when point is not at

Browse source 
the beginning of the line.
This commit is contained in:
Dan Nicolaescu 2007-08-03 10:49:56 +00:00
parent 0896d93184
commit 1bb751ed2b
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-08-03 Dan Nicolaescu <dann@ics.uci.edu>
* term.el (term-erase-in-display): Fix case when point is not at
the beginning of the line.
2007-08-03 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-ext.el (math-get-value,math-get-sdev)

8
lisp/term.el
View file

@ -3715,12 +3715,12 @@ all pending output has been dealt with."))
(defun term-erase-in-display (kind)
"Erases (that is blanks out) part of the window.
If KIND is 0, erase from (point) to (point-max);
if KIND is 1, erase from home to point; else erase from home to point-max.
Should only be called when point is at the start of a screen line."
if KIND is 1, erase from home to point; else erase from home to point-max."
(term-handle-deferred-scroll)
(cond ((eq term-terminal-parameter 0)
(delete-region (point) (point-max))
(term-unwrap-line))
(let ((need-unwrap (bolp)))
(delete-region (point) (point-max))
(when need-unwrap (term-unwrap-line))))
((let ((row (term-current-row))
(col (term-horizontal-column))
(start-region term-home-marker)