From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 3 Dec 2005 12:07:55 +0000 (+0000)
Subject: (apropos-zippy): Call print-help-return-message, similar to other Help
X-Git-Tag: emacs-pretest-22.0.90~5534
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a5ea63f0f882af07954501b0e7b577c6bdb6055;p=emacs.git

(apropos-zippy): Call print-help-return-message, similar to other Help
and Apropos commands.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 687b89d3906..e640bb95710 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,12 @@
 2005-12-03  Eli Zaretskii  <eliz@gnu.org>
 
+	* play/yow.el (apropos-zippy): Call print-help-return-message,
+	similar to other Help and Apropos commands.
+
 	* help.el (print-help-return-message): If pop-up-frames is
 	non-nil, set up help-return-method to delete the help window and,
-	possibly, its frame as well.  Doc fix.
+	possibly, its frame as well, and don't display message about
+	scrolling the help window.  Doc fix.
 	(help-return-method): Doc fix.
 
 2005-12-03  Martin Rudalics  <rudalics@gmx.at>  (tiny change)
diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index 2809e3ec620..74a30d6ac9d 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -102,7 +102,8 @@ If called interactively, display a list of matches."
                     (while l
                       (princ (car l))
                       (setq l (cdr l))
-                      (and l (princ "\n\n"))))))))
+                      (and l (princ "\n\n")))
+		    (print-help-return-message))))))
     matches))