1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index a14ac3039f9..68ffea55e80 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -2648,7 +2648,7 @@ G-C-\\: Split Window                     |  FNDNXT  |   Yank   |   CUT    |
 (defun edt-electric-helpify (fun)
   (let ((name "*Help*"))
     (if (save-window-excursion
-          (let* ((p (symbol-function 'print-help-return-message))
+          (let* ((p (symbol-function 'help-print-return-message))
                  (b (get-buffer name))
                  (m (buffer-modified-p b)))
             (and b (not (get-buffer-window b))
@@ -2660,14 +2660,14 @@ G-C-\\: Split Window                     |  FNDNXT  |   Yank   |   CUT    |
                        (save-excursion
                          (set-buffer b)
                          (set-buffer-modified-p t)))
-                  (fset 'print-help-return-message 'ignore)
+                  (fset 'help-print-return-message 'ignore)
                   (call-interactively fun)
                   (and (get-buffer name)
                        (get-buffer-window (get-buffer name))
                        (or (not b)
                            (not (eq b (get-buffer name)))
                            (not (buffer-modified-p b)))))
-              (fset 'print-help-return-message p)
+              (fset 'help-print-return-message p)
               (and b (buffer-name b)
                    (save-excursion
                      (set-buffer b)