   (setq factor-indent-width (factor--guess-indent-width))
   (setq indent-tabs-mode nil)
   ;; ElDoc
-  (set (make-local-variable 'eldoc-documentation-function) 'factor--see-current-word)
+  (set (make-local-variable 'eldoc-documentation-function) 'factor--eldoc)
 
   (run-hooks 'factor-mode-hook))
 

  (let ((word (or word (factor--symbol-at-point))))
    (when word
      (let ((answer (factor--listener-send-cmd (format "\\ %s see" word))))
        (factor--see-ans-to-string answer)))))

(defun factor-see-current-word (&optional word)
  "Echo in the minibuffer information about word at point."
  (interactive)
  (let ((word (or word (factor--symbol-at-point)))
        (msg (factor--see-current-word word)))
    (if msg (message "%s" msg)

(defun run-factor (&optional arg)
  "Show the factor-listener buffer, starting the process if needed."
  (interactive)
  (let ((buf (process-buffer (factor--listener-process t)))
        (pop-up-windows factor-listener-window-allow-split))
    (if factor-listener-use-other-window
        (pop-to-buffer buf)
