Mercurial > emacs
changeset 67815:3af6058f9f07
(describe-char): Bug fix for previous changes: Juggle current buffer.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 26 Dec 2005 12:35:35 +0000 |
| parents | cc79e7966f97 |
| children | d195eef388b8 |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)