changeset 104367:13e0436a968a

(help-print-return-message): Rename from print-help-return-message.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 19 Aug 2009 18:07:07 +0000
parents f02a9f76b408
children f700ef41d26c
files lisp/ChangeLog lisp/help.el
diffstat 2 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Aug 19 17:31:26 2009 +0000
+++ b/lisp/ChangeLog	Wed Aug 19 18:07:07 2009 +0000
@@ -1,5 +1,8 @@
 2009-08-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* help.el (help-print-return-message): Rename from
+	print-help-return-message.
+
 	* log-view.el (log-view-mode-map): Remove `q' binding, and unreliable
 	cvs-mode-map parent hack.
 	(log-view-mode): Derive from special-mode.
--- a/lisp/help.el	Wed Aug 19 17:31:26 2009 +0000
+++ b/lisp/help.el	Wed Aug 19 18:07:07 2009 +0000
@@ -42,7 +42,7 @@
 ;; invoking `with-output-to-temp-buffer'.  If and only if `help-window'
 ;; is eq to t, `help-mode-finish' (called by `temp-buffer-setup-hook')
 ;; sets `help-window' to the window selected by `display-buffer'.
-;; Exiting `with-help-window' and calling `print-help-return-message'
+;; Exiting `with-help-window' and calling `help-print-return-message'
 ;; reset `help-window' to nil.
 (defvar help-window nil
   "Window chosen for displaying help.")
@@ -137,7 +137,8 @@
  (WINDOW . quit-window)    do quit-window, then select WINDOW.
  (WINDOW BUF START POINT)  display BUF at START, POINT, then select WINDOW.")
 
-(defun print-help-return-message (&optional function)
+(define-obsolete-function-alias 'print-help-return-message 'help-print-return-message "23.2")
+(defun help-print-return-message (&optional function)
   "Display or return message saying how to restore windows after help command.
 This function assumes that `standard-output' is the help buffer.
 It computes a message, and applies the optional argument FUNCTION to it.
@@ -1073,7 +1074,7 @@
 	  (help-window-display-message
 	   (if reuse
 	       ;; Offer `display-buffer' for consistency with
-	       ;; `print-help-return-message'.  This is hardly TRT when
+	       ;; `help-print-return-message'.  This is hardly TRT when
 	       ;; the other window and the selected window display the
 	       ;; same buffer but has been handled this way ever since.
 	       "Type \\[display-buffer] RET to restore the other window"
@@ -1202,7 +1203,7 @@
 ;; (4) A marker (`help-window-point-marker') to move point in the help
 ;; window to an arbitrary buffer position.
 
-;; Note: It's usually always wrong to use `print-help-return-message' in
+;; Note: It's usually always wrong to use `help-print-return-message' in
 ;; the body of `with-help-window'.
 (defmacro with-help-window (buffer-name &rest body)
   "Display buffer BUFFER-NAME in a help window evaluating BODY.