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

the beginning of the line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d35fa06ac58bea6e332184fc806df0501ea3ebc..cfbc404dc51b186eaaeab20c753592b71306da9d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)

diff --git a/lisp/term.el b/lisp/term.el
index c7b5ee249d189596bb8c49a61920dbd8c7433680..55c5090fb2cc6b7fbd5097d1f72e633cecd0a164 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -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)