浏览代码

update timer

pull/1/head
10sr 10 年前
父节点
当前提交
61f170e1bc
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. +2
    -2
      emacs.el

+ 2
- 2
emacs.el 查看文件

@@ -2423,6 +2423,7 @@ this is test, does not rename files."
(restorecolor "\033[0m")
(cols (frame-parameter nil 'width))
(length (length string)))
;; (redraw-frame (selected-frame))
(send-string-to-terminal (concat savepos
(format movecursor
(1+ (- cols length)))
@@ -2430,11 +2431,10 @@ this is test, does not rename files."
string
restorecolor
restorepos))
;; (redraw-frame (selected-frame))
))

(run-with-timer
1
0.1
1
(lambda ()
(set-terminal-header (concat " "


正在加载...
取消
保存