X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/02ca5db040b57ca4a36c317fcb3fb56f43ab371e..6dc0bafd5915b01a341cc0efbc744abd73163872:/lisp/ielm.el

diff --git a/lisp/ielm.el b/lisp/ielm.el
index 278a63724a..dd02778b41 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -541,8 +541,8 @@ Customized bindings may be defined in `ielm-map', which currently contains:
   (set (make-local-variable 'completion-at-point-functions)
        '(comint-replace-by-expanded-history
          ielm-complete-filename elisp-completion-at-point))
-  (add-hook 'eldoc-documentation-functions
-            #'elisp-eldoc-documentation-function nil t)
+  (add-function :before-until (local 'eldoc-documentation-function)
+                #'elisp-eldoc-documentation-function)
   (set (make-local-variable 'ielm-prompt-internal) ielm-prompt)
   (set (make-local-variable 'comint-prompt-read-only) ielm-prompt-read-only)
   (setq comint-get-old-input 'ielm-get-old-input)