remove assertion message
File modified: lisp/ivan/nterm.el
Change281 at Sun Apr 25 14:25:27 2010 +0200 by Ivan Kanis <ivan@tao>
diff -r 04b11cd7426e -r 989972100e7b lisp/ivan/nterm.el --- a/lisp/ivan/nterm.el Thu Apr 22 18:59:44 2010 +0200 +++ b/lisp/ivan/nterm.el Sun Apr 25 14:25:27 2010 +0200 @@ -225,7 +225,6 @@ (defun nterm-assert () "Check integrity of the emulator" (interactive) - (message "I am asserting") (let ((line (count-lines (point-min) (point-max)))) (if (not (= line nterm-height)) (error "Number of lines is %d but nterm-height is %d" @@ -438,9 +437,8 @@ (nterm-cursor-position-set (cons top 0)) (nterm-kill-line) (nterm-cursor-position-set (cons bottom 0)) - (end-of-line) (insert "\n") - (nterm-vt100-line-draw (1+ bottom)) + (nterm-vt100-line-draw bottom) (nterm-cursor-position-set up-pos))) (defun nterm-scroll-down (top bottom blank-line-function) @@ -2796,13 +2794,9 @@ (provide 'nterm) ;;; Copyright crap -;; Local Variables: -;; compile-command: "make" -;; End: ;; Copyright (C) 2009 Ivan Kanis ;; Author: Ivan Kanis -;; ;; ;; This program is free software ; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by