# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1135600535 0
# Node ID 3af6058f9f07095ebed3780eb1932e5447558c70
# Parent  cc79e7966f976cd1829aef6b09894fa2d54b0806
(describe-char): Bug fix for previous changes: Juggle current buffer.

diff -r cc79e7966f97 -r 3af6058f9f07 lisp/descr-text.el
--- a/lisp/descr-text.el	Mon Dec 26 11:41:22 2005 +0000
+++ b/lisp/descr-text.el	Mon Dec 26 12:35:35 2005 +0000
@@ -586,9 +586,11 @@
     (setq max-width (apply #'max (mapcar #'(lambda (x)
 					     (if (cadr x) (length (car x)) 0))
 					 item-list)))
-    (help-setup-xref
-     (list #'describe-char pos (if buf buf (current-buffer)))
-     (interactive-p))
+    (let ((buffer (current-buffer)))
+      (with-current-buffer help-buffer
+	(help-setup-xref
+	 (list #'describe-char pos (if buf buf buffer))
+	 (interactive-p))))
     (with-output-to-temp-buffer help-buffer
       (with-current-buffer standard-output
 	(set-buffer-multibyte multibyte-p)