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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fbab5bc818ce201757cd6f432c914d55f349f884..5cd5ec74fe84047d56285d7b1cd8a9bee3e56e4f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,22 @@
 2009-08-21  Glenn Morris  <rgm@gnu.org>
 
+       * apropos.el (apropos-command):
+       * ehelp.el (electric-helpify):
+       * printing.el (pr-show-setup):
+       * strokes.el (strokes-help):
+       * tutorial.el (tutorial--describe-nonstandard-key)
+       (tutorial--detailed-help):
+       * woman.el (woman-mini-help, woman-display-extended-fonts):
+       * calc/calc-help.el (calc-describe-key):
+       * emulation/edt.el (edt-electric-helpify):
+       * international/mule-diag.el (mule-diag):
+       * play/yow.el (apropos-zippy):
+       * progmodes/python.el (python-describe-symbol):
+       * progmodes/vhdl-mode.el (vhdl-doc-variable, vhdl-doc-mode):
+       * textmodes/table.el (*table--cell-describe-mode)
+       (*table--cell-describe-bindings):
+       Use help-print-return-message rather than the now obsolete alias.
+
        * calendar/cal-move.el (calendar-cursor-to-nearest-date)
        (calendar-cursor-to-visible-date): Use forward-line, not goto-line.
 

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 8a2f5d789a8a12c9259cb6d1e3e7f86bd1337e5d..ca9be2f36f8b99e504e54ba486543721b83ea89c 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -466,7 +466,7 @@ while a list of strings is used as a word list."
   (apropos-parse-pattern pattern)
   (let ((message
         (let ((standard-output (get-buffer-create "*Apropos*")))
-          (print-help-return-message 'identity))))
+          (help-print-return-message 'identity))))
     (or do-all (setq do-all apropos-do-all))
     (setq apropos-accumulator
          (apropos-internal apropos-regexp

diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el
index 19a438cda16276abaaf9c69997495cc65ba8460b..ced9fbad22044d5e748f341cf8f7773d5943fd75 100644 (file)
--- a/lisp/calc/calc-help.el
+++ b/lisp/calc/calc-help.el
@@ -1,7 +1,7 @@
 ;;; calc-help.el --- help display functions for Calc,
 
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009  Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 2005,
+;;   2006, 2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
@@ -283,7 +283,7 @@ C-w  Describe how there is no warranty for Calc."
                                (beginning-of-line)
                                (princ (buffer-substring pt (point))))
                              (setq notes (cdr notes)))
-                           (print-help-return-message)))
+                           (help-print-return-message)))
                      (calc-unread-command (cdr key)))))
              (if (or (null defn) (integerp defn))
                  (message "%s is undefined" desc)
@@ -466,7 +466,7 @@ C-w  Describe how there is no warranty for Calc."
              calc-shift-Y-prefix-help
              calc-shift-Z-prefix-help
              calc-z-prefix-help)))
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 (defun calc-h-prefix-help ()
   (interactive)

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 3d8953f1590f4bbea17572dde35c64f1708e0a67..d8e7ea57debbc91ac9f17540195e8fbdb3def8cb 100644 (file)
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -292,7 +292,7 @@ will select it.)"
   (let ((name (or name "*Help*")))
     (if (save-window-excursion
          ;; kludge-o-rama
-         (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))
@@ -325,14 +325,14 @@ will select it.)"
                       (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)

diff --git a/lisp/emerge.el b/lisp/emerge.el
index 48aa07655cf532908b597ebbe4058bd2dd8f55db..447c5d8de99bec09a798ae655f8ff0ca56dd9ac1 100644 (file)
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -3023,7 +3023,7 @@ If some prefix of KEY has a non-prefix definition, it is redefined."
 ;;    (save-excursion
 ;;      (set-buffer standard-output)
 ;;      (help-mode))
-;;    (print-help-return-message)))
+;;    (help-print-return-message)))
 
 ;; This goes with the redefinition of describe-mode.
 ;;;; Adjust things so that keyboard macro definitions are documented correctly.

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index a14ac3039f961836934e59db6f389c28d44ec52c..68ffea55e80ee07adfe1b067f9dbff352f030912 100644 (file)
--- 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)

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 38d9973b76f1c899693d4e10316c39d49dd16eb3..89daaae7063863d8be435fb0b9bf6201c2b26513 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1130,7 +1130,7 @@ system which uses fontsets)."
        (insert "------------\t\t\t\t\t\t  ----- -----\n")
        (dolist (fontset (fontset-list))
          (print-fontset fontset t)))
-      (print-help-return-message))))
+      (help-print-return-message))))
 
 ;;;###autoload
 (defun font-show-log (&optional limit)

diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index 69662e2ccf9dfdd7f46bc097c79a9c13cd32a464..1c284d009ad3d5d1d2785c1fb55e533fdaff534f 100644 (file)
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -1,7 +1,7 @@
 ;;; yow.el --- quote random zippyisms
 
-;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005,
+;;   2006, 2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Author: Richard Mlynarik
@@ -101,7 +101,7 @@ If called interactively, display a list of matches."
                       (princ (car l))
                       (setq l (cdr l))
                       (and l (princ "\n\n")))
-                   (print-help-return-message))))))
+                   (help-print-return-message))))))
     matches))
 
 \f

diff --git a/lisp/printing.el b/lisp/printing.el
index 5d101b40b2a68acb38245eb0ab5fd8190874b482..46b5f00d182a2b9009565bf2abd5aa87c680f02e 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -1,7 +1,7 @@
 ;;; printing.el --- printing utilities
 
-;; Copyright (C) 2000, 2001, 2003, 2004, 2005,
-;;   2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;;   Free Software Foundation, Inc.
 
 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@@ -5506,7 +5506,7 @@ If menu binding was not done, calls `pr-menu-bind'."
 (defun pr-show-setup (settings buffer-name)
   (with-output-to-temp-buffer buffer-name
     (princ settings)
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 
 (defun pr-complete-alist (prompt alist default)

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 7221d8ecb73ace577de324ca80d69f3b39913b70..308af6c02ccac605d411abc4ebc33cc5f766e995 100644 (file)
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1787,7 +1787,7 @@ will."
        ;; Fixme: Is this actually useful?
        (help-setup-xref (list 'python-describe-symbol symbol) (interactive-p))
        (set (make-local-variable 'comint-redirect-subvert-readonly) t)
-       (print-help-return-message))))
+       (help-print-return-message))))
   (comint-redirect-send-command-to-process (format "emacs.ehelp(%S, %s)"
                                                   symbol python-imports)
    "*Help*" (python-proc) nil nil))

diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index 3cf930339e9541563fc8fca9216b1dc2e0481cd2..a7f033c7045dc4895532a1dc4cdfc4080189122e 100644 (file)
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -16979,7 +16979,7 @@ to visually support naming conventions.")
     (princ (documentation-property variable 'variable-documentation))
     (with-current-buffer standard-output
       (help-mode))
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 (defun vhdl-doc-mode ()
   "Display VHDL Mode documentation in *Help* buffer."
@@ -16993,7 +16993,7 @@ to visually support naming conventions.")
     (princ (documentation 'vhdl-mode))
     (with-current-buffer standard-output
       (help-mode))
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

diff --git a/lisp/strokes.el b/lisp/strokes.el
index 57c432071796f2533a66556a3f2b0b469980ee01..673a0fb50d59f69d6996d9f721d84cd752df1ba4 100644 (file)
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -1,7 +1,7 @@
 ;;; strokes.el --- control Emacs through mouse strokes
 
-;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: David Bakhash <cadet@alum.mit.edu>
 ;; Maintainer: FSF
@@ -1028,7 +1028,7 @@ o Strokes are a bit computer-dependent in that they depend somewhat on
   by customizing the group `strokes' via \\[customize-group]."))
     (set-buffer standard-output)
     (help-mode)
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 (defalias 'strokes-report-bug 'report-emacs-bug)
 

diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index 0038cd70e4b31af2b64a1c60f56247a9c8499439..90337e734f5f0c7bc35181887b237b251b0c58ab 100644 (file)
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -1,12 +1,12 @@
 ;;; table.el --- create and edit WYSIWYG text based embedded tables
 
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009  Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Keywords: wp, convenience
 ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com>
 ;; Created: Sat Jul 08 2000 13:28:45 (PST)
-;; Revised: Thu Jan 08 2009 20:17:04 (PST)
+;; Revised: Fri Aug 21 2009 00:16:58 (PDT)
 
 ;; This file is part of GNU Emacs.
 
@@ -4078,7 +4078,7 @@ fit in the cell width the word is folded into the next line.  The
 folded location is marked by a continuation character which is
 specified in the variable `table-word-continuation-char'.
 ")
-      (print-help-return-message))))
+      (help-print-return-message))))
 
 (defun *table--cell-describe-bindings ()
   "Table cell version of `describe-bindings'."
@@ -4096,7 +4096,7 @@ key             binding
                             (key-description (car binding))
                             (cdr binding))))
            table-cell-bindings)
-      (print-help-return-message))))
+      (help-print-return-message))))
 
 (defun *table--cell-dabbrev-expand (arg)
   "Table cell version of `dabbrev-expand'."

diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 96aec65f38b49c84931737d2325f85871347d007..7d6bf1c7c7223c37315d674bd440c9b278d967f4 100644 (file)
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -163,7 +163,7 @@ options:
                       (format "%s" db)
                       "'.")))
           (fill-region (point-min) (point)))))
-      (print-help-return-message))))
+      (help-print-return-message))))
 
 (defun tutorial--sort-keys (left right)
   "Sort predicate for use with `tutorial--default-keys'.
@@ -388,7 +388,7 @@ from the Emacs default:\n\n" )
         (insert "
 It is OK to change key bindings, but changed bindings do not
 correspond to what the tutorial says.\n\n")
-        (print-help-return-message)))))
+        (help-print-return-message)))))
 
 (defun tutorial--find-changed-keys (default-keys)
   "Find the key bindings used in the tutorial that have changed.

diff --git a/lisp/woman.el b/lisp/woman.el
index c80201b71a1a1c4f8e2471bec5dd01cd8cafef16..90185c6c8465912dad570d8e53711f238eb6258f 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1,7 +1,7 @@
 ;;; woman.el --- browse UN*X manual pages `wo (without) man'
 
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Author: Francis J. Wright <F.J.Wright@qmul.ac.uk>
 ;; Maintainer: FSF
@@ -1970,7 +1970,7 @@ Optional argument REDRAW, if non-nil, forces mode line to be updated."
   (require 'apropos)
   (let ((message
         (let ((standard-output (get-buffer-create "*Apropos*")))
-          (print-help-return-message 'identity))))
+          (help-print-return-message 'identity))))
     (setq apropos-accumulator
          (apropos-internal "woman"
                            (lambda (symbol)
@@ -2973,7 +2973,7 @@ Useful for constructing the alist variable `woman-special-characters'."
          (setq i (1+ i))
          (when (= i 128) (setq i 160) (insert "\n"))
          (if (zerop (% i 8)) (insert "\n")))))
-    (print-help-return-message)))
+    (help-print-return-message)))
 
 \f
 ;;; Formatting macros that do not cause a break: