[Emacs-diffs] emacs/lisp ChangeLog help.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/19 18:07:10

Modified files:
        lisp           : ChangeLog help.el 

Log message:
        (help-print-return-message): Rename from print-help-return-message.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15974&r2=1.15975
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/help.el?cvsroot=emacs&r1=1.346&r2=1.347

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15974
retrieving revision 1.15975
diff -u -b -r1.15974 -r1.15975
--- ChangeLog   19 Aug 2009 17:31:26 -0000      1.15974
+++ ChangeLog   19 Aug 2009 18:07:07 -0000      1.15975
@@ -1,5 +1,8 @@
 2009-08-19  Stefan Monnier  <address@hidden>
 
+       * 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.

Index: help.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help.el,v
retrieving revision 1.346
retrieving revision 1.347
diff -u -b -r1.346 -r1.347
--- help.el     14 Jan 2009 23:10:54 -0000      1.346
+++ help.el     19 Aug 2009 18:07:10 -0000      1.347
@@ -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.