From a06b8fd888999a81b1737dbe2eb63946a4db8eed Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Mon, 26 Dec 2005 12:35:35 +0000 Subject: [PATCH] (describe-char): Bug fix for previous changes: Juggle current buffer. --- lisp/descr-text.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 663ec8dffeb..e0dcaff4df7 100644 --- 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) -- 2.39.5