diff lisp/emulation/edt.el @ 104386:2e0765155e47

Use help-print-return-message rather than the now obsolete alias.

--- a/lisp/emulation/edt.el	Fri Aug 21 07:11:24 2009 +0000
+++ b/lisp/emulation/edt.el	Fri Aug 21 07:24:26 2009 +0000
@@ -2648,7 +2648,7 @@
 (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 @@
                        (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)