Bläddra i källkod

fix

pull/1/head
10sr 10 år sedan
förälder
incheckning
26e78d7711
1 ändrade filer med 9 tillägg och 6 borttagningar
  1. +9
    -6
      emacs.el

+ 9
- 6
emacs.el Visa fil

@@ -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


Laddar…
Avbryt
Spara