mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Nick Roberts 2005-12-26 12:35:35 +00:00
parent e5a5c80cd5
commit a06b8fd888
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/descr-text.el
View File

@ -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)