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

Style, typo related

Browse Source
This commit is contained in:
dalu 2023-04-24 13:35:33 +08:00
parent d0dd4e9d40
commit 4be08304c8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
eldoc-box.el
View File

@ -304,7 +304,6 @@ STR has to be a proper documentation, not empty string, not nil, etc."
(run-hook-with-args 'eldoc-box-buffer-hook)) (run-hook-with-args 'eldoc-box-buffer-hook))
(eldoc-box--get-frame doc-buffer))) (eldoc-box--get-frame doc-buffer)))
(defun eldoc-box--window-side () (defun eldoc-box--window-side ()
"Return the side of the selected window. "Return the side of the selected window.
Symbol ‘left’ if the selected window is on the left, ‘right’ if Symbol ‘left’ if the selected window is on the left, ‘right’ if
@ -373,6 +372,7 @@ base on WIDTH and HEIGHT of childframe text window."
(y (cdr pos))) (y (cdr pos)))
(cons (or (eldoc-box--at-point-x-by-company) x) (cons (or (eldoc-box--at-point-x-by-company) x)
y))) y)))
(defun eldoc-box--update-childframe-geometry (frame window) (defun eldoc-box--update-childframe-geometry (frame window)
"Update the size and the position of childframe. "Update the size and the position of childframe.
FRAME is the childframe, WINDOW is the primary window." FRAME is the childframe, WINDOW is the primary window."
@ -408,8 +408,8 @@ FRAME is the childframe, WINDOW is the primary window."
(setq eldoc-box--inhibit-childframe t) (setq eldoc-box--inhibit-childframe t)
(eldoc-box-quit-frame) (eldoc-box-quit-frame)
(run-with-idle-timer sec nil (run-with-idle-timer sec nil
(lambda () (lambda ()
(setq eldoc-box--inhibit-childframe nil))))) (setq eldoc-box--inhibit-childframe nil)))))
(defun eldoc-box--follow-cursor () (defun eldoc-box--follow-cursor ()
"Make childframe follow cursor in at-point mode." "Make childframe follow cursor in at-point mode."
@ -592,7 +592,7 @@ display the docs in echo area depending on
;;;###autoload ;;;###autoload
(define-minor-mode eldoc-box-hover-mode (define-minor-mode eldoc-box-hover-mode
"Displays hover documentations in a childframe. "Display hover documentations in a childframe.
The default position of childframe is upper corner." The default position of childframe is upper corner."
:lighter eldoc-box-lighter :lighter eldoc-box-lighter
(if eldoc-box-hover-mode (if eldoc-box-hover-mode
@ -604,7 +604,7 @@ The default position of childframe is upper corner."
;;;###autoload ;;;###autoload
(define-minor-mode eldoc-box-hover-at-point-mode (define-minor-mode eldoc-box-hover-at-point-mode
"A convenient minor mode to display doc at point. "A convenient minor mode to display doc at point.
You can use \[keyboard-quit] to hide the doc." You can use \\[keyboard-quit] to hide the doc."
:lighter eldoc-box-lighter :lighter eldoc-box-lighter
(if eldoc-box-hover-at-point-mode (if eldoc-box-hover-at-point-mode
(progn (when eldoc-box-hover-mode (progn (when eldoc-box-hover-mode
@ -633,7 +633,7 @@ instead."
(interactive) (interactive)
(eldoc-box-help-at-point)) (eldoc-box-help-at-point))
;;;; Comany compatibility ;;;; Company compatibility
;; ;;
;; see also `eldoc-box--default-at-point-position-function' ;; see also `eldoc-box--default-at-point-position-function'