[Emacs-diffs] Changes to emacs/lisp/descr-text.el

[Nick Roberts]

Index: emacs/lisp/descr-text.el
diff -u emacs/lisp/descr-text.el:1.47 emacs/lisp/descr-text.el:1.48
--- emacs/lisp/descr-text.el:1.47       Mon Dec 26 11:41:22 2005
+++ emacs/lisp/descr-text.el    Mon Dec 26 12:35:35 2005
@@ -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)