File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -1589,8 +1589,9 @@ Return the number of nested sexp the point was over or after."
15891589 (setq inf-clojure-eldoc-last-symbol (cons thing arglists))
15901590 arglists)))))
15911591
1592- (defun inf-clojure-eldoc ()
1593- " Backend function for eldoc to show argument list in the echo area."
1592+ (defun inf-clojure-eldoc (callback &rest _ignored )
1593+ " Backend function for eldoc to show argument list in the echo area.
1594+ CALLBACK is the eldoc callback to invoke with the documentation string."
15941595 (when (and (inf-clojure-connected-p)
15951596 inf-clojure-enable-eldoc
15961597 ; ; don't clobber an error message in the minibuffer
@@ -1599,13 +1600,13 @@ Return the number of nested sexp the point was over or after."
15991600 (thing (car info))
16001601 (value (inf-clojure-eldoc-arglists thing)))
16011602 (when value
1602- (format " %s : %s "
1603- (inf-clojure-eldoc-format-thing thing)
1604- value)))))
1603+ (funcall callback ( format " %s : %s "
1604+ (inf-clojure-eldoc-format-thing thing)
1605+ value) )))))
16051606
16061607(defun inf-clojure-eldoc-setup ()
16071608 " Turn on eldoc mode in the current buffer."
1608- (setq-local eldoc-documentation-function #'inf-clojure-eldoc )
1609+ (add-hook ' eldoc-documentation-functions #'inf-clojure-eldoc nil t )
16091610 (apply #'eldoc-add-command inf-clojure-extra-eldoc-commands))
16101611
16111612(defun inf-clojure-display-version ()
You can’t perform that action at this time.
0 commit comments