Преглед изворни кода

Add minibuffer-line idle timer

master
10sr пре 6 година
родитељ
комит
b9fd4258c5
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 измењених фајлова са 16 додато и 0 уклоњено
  1. +16
    -0
      emacs.el

+ 16
- 0
emacs.el Прегледај датотеку

@@ -456,6 +456,22 @@ found, otherwise returns nil."
(set-face-underline 'minibuffer-line nil)
(set-variable 'minibuffer-line-refresh-interval
25)

;; Set idle timer
(defvar my-minibuffer-line--idle-timer nil)
(defvar minibuffer-line-mode)
(add-hook 'minibuffer-line-mode-hook
(lambda ()
(when my-minibuffer-line--idle-timer
(cancel-timer my-minibuffer-line--idle-timer)
(setq my-minibuffer-line--idle-timer nil))
(when minibuffer-line-mode
(setq my-minibuffer-line--idle-timer
(run-with-idle-timer 0.5
t
'minibuffer-line--update)))))


(set-variable 'minibuffer-line-format
`(,(concat user-login-name
"@"


Loading…
Откажи
Сачувај