mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki 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
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)