# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1135717910 0
# Node ID eb33196c14d746ac3095486b1ffe8fa834739958
# Parent  b197dff66cd24a7bc4fd6bd6e24e9c8ccf16b8c3
(help-insert-string): New function.  Save buffer
contents in cases where it is impossible to recompute the old
contents.

diff -r b197dff66cd2 -r eb33196c14d7 lisp/help-mode.el
--- a/lisp/help-mode.el	Tue Dec 27 21:10:19 2005 +0000
+++ b/lisp/help-mode.el	Tue Dec 27 21:11:50 2005 +0000
@@ -648,6 +648,15 @@
 		(fboundp sym) (facep sym))
 	(help-do-xref pos #'help-xref-interned (list sym))))))
 
+(defun help-insert-string (string)
+  "Insert STRING to the help buffer and install xref info for it.
+This function can be used to restore the old contents of the help buffer
+when going back to the previous topic in the xref stack.  It is needed
+in case when it is impossible to recompute the old contents of the
+help buffer by other means."
+  (setq help-xref-stack-item (list #'help-insert-string string))
+  (with-output-to-temp-buffer (help-buffer)
+    (insert string)))
 
 (provide 'help-mode)