瀏覽代碼

fix

pull/1/head
10sr 10 年之前
父節點
當前提交
26e78d7711
共有 1 個檔案被更改,包括 9 行新增6 行删除
  1. +9
    -6
      emacs.el

+ 9
- 6
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


Loading…
取消
儲存