jessieh/eldoc-frame
jessieh/eldoc-frame
1
Fork 0
Code Issues Pull Requests Releases Activity

Improve perceived performance when moving around quickly

Browse Source 
* eldoc-box.el (eldoc-box--display-frame-timer): New var.
(eldoc-box-display): Use it.
This commit is contained in:
João Távora 2018-12-16 23:23:29 +00:00
parent 54879b5c07
commit f292ac28cf
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
eldoc-box.el
View File

@ -122,6 +122,8 @@ Consider your machine's screen's resolution when setting this variable.")
;;;;; Function ;;;;; Function
(defvar eldoc-box--display-frame-timer nil)
(defun eldoc-box--display (str) (defun eldoc-box--display (str)
"Display STR in childframe." "Display STR in childframe."
(let ((doc-buffer (get-buffer-create eldoc-box--buffer))) (let ((doc-buffer (get-buffer-create eldoc-box--buffer)))
@ -132,8 +134,17 @@ Consider your machine's screen's resolution when setting this variable.")
(setq eldoc-box-hover-mode t) (setq eldoc-box-hover-mode t)
(erase-buffer) (erase-buffer)
(insert str) (insert str)
(eldoc-box--get-frame doc-buffer)))) ;; Instead of showing the frame immediately, which is slow, wait
;; a little bit to see if any more requests come in, and cancel
;; any obsolete requests. If the user is moving rapidly, this
;; helps.
(when (timerp eldoc-box--display-frame-timer)
(cancel-timer eldoc-box--display-frame-timer))
(setq eldoc-box--display-frame-timer
(run-with-idle-timer 1 nil
(lambda ()
(eldoc-box--get-frame doc-buffer)
(setq eldoc-box--display-frame-timer nil)))))))
(defun eldoc-box--window-side () (defun eldoc-box--window-side ()
"Return 'left if the selected window is on the left, "Return 'left if the selected window is on the left,