set disable undo and local variable on nterm buffer

 

fix missing end escape in HVP

File modified: lisp/nterm/nterm.el

Change340 at Sat Aug 14 11:09:19 2010 +0200 by Ivan Kanis <ivan@tao>

diff -r 790a43ca7c99 -r 0aae2b9b3a87 lisp/nterm/nterm.el
--- a/lisp/nterm/nterm.el	Sat Aug 14 11:07:33 2010 +0200
+++ b/lisp/nterm/nterm.el	Sat Aug 14 11:09:19 2010 +0200
@@ -401,9 +401,9 @@
       (setq mode-name "nterm")
       (setq major-mode 'nterm-mode))
   (with-current-buffer nterm-buffer-name
-    (set (make-local-variable 'nterm-argument) ""))
-  (setq truncate-lines t)
-  (buffer-disable-undo nil)
+    (set (make-local-variable 'nterm-argument) "")
+    (setq truncate-lines t)
+    (buffer-disable-undo nil))
   (nterm-init)
   (nterm-vt52-init)
   (nterm-vt100-init)
@@ -1430,7 +1430,8 @@
 TBD handle DECOM"
   (if nterm-debug-vt100
       (message "HVP"))
-  (nterm-vt100-cup char))
+  (nterm-vt100-cup char)
+  (nterm-vt100-escape-end char))
 
 ;; What's the escape sequence for the following?
 ;; LNM -- Line Feed/New Line Mode
@@ -2678,7 +2679,6 @@
     (goto-char record-point)
     (set-buffer record-buf)))
 
-
 (defun nterm-record-step ()
   (interactive)
   (let* ((send-begin (line-beginning-position))

back