From 26e78d7711f0e6df5592210d63f8048912a87d87 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 5 Feb 2014 15:43:00 +0900
Subject: [PATCH] fix

---
 emacs.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/emacs.el b/emacs.el
index 40e2232..f4b3f2c 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2416,19 +2416,22 @@ this is test, does not rename files."
 
 (defun set-terminal-header (string)
   "Set terminal header STRING."
-  (let ((point (point))
+  (let ((savepos "\033[s")
+        (restorepos "\033[u")
         (movecursor "\033[0;%dH")
         (inverse "\033[7m")
-        (restore "\033[0m")
+        (restorecolor "\033[0m")
         (cols (frame-parameter nil 'width))
         (length (length string)))
-    (send-string-to-terminal (concat (format movecursor
+    (send-string-to-terminal (concat savepos
+                                     (format movecursor
                                              (1+ (- cols length)))
                                      inverse
                                      string
-                                     restore))
-    (goto-char point)
-    (redraw-frame (current-frame))))
+                                     restorecolor
+                                     restorepos))
+    ;; (redraw-frame (selected-frame))
+    ))
 
 (run-with-idle-timer
  1