(describe-char): Bug fix for previous changes: Juggle current buffer.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 663ec8dffeb09557e67cb8e7fd06bb677e3744a1..e0dcaff4df7cf4234ff8e269c62ca436dd8f32cc 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -586,9 +586,11 @@ as well as widgets, buttons, overlays, and text properties."
     (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)