From c59302074701d64a198b232d1ab1f9a23375c198 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 12 Mar 2008 21:01:35 +0000 Subject: [PATCH] (quail-help): Use set-buffer-multibyte rather than setting default-enable-multibyte-characters. --- lisp/ChangeLog | 2 +- lisp/international/quail.el | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8737f2be0bb..b6b4f8df0da 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,6 @@ 2008-03-12 Stefan Monnier - * international/quail.el (quail-setup-completion-buf): + * international/quail.el (quail-setup-completion-buf, quail-help): * mail/binhex.el (binhex-decode-region-internal): * mail/uudecode.el (uudecode-decode-region-internal): * net/dns.el (dns-read-string-name, dns-read, dns-read-type, query-dns): diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 0c8d5e4bff4..90466f57cdd 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2448,7 +2448,7 @@ package to describe." (interactive) (quail-help-init) (let ((help-xref-mule-regexp help-xref-mule-regexp-template) - (default-enable-multibyte-characters enable-multibyte-characters) + (mb enable-multibyte-characters) (package-def (if package (assoc package quail-package-alist) @@ -2457,6 +2457,7 @@ package to describe." (let ((temp-buffer-show-hook nil)) (with-output-to-temp-buffer (help-buffer) (with-current-buffer standard-output + (set-buffer-multibyte mb) (setq quail-current-package package-def)))) ;; Then, insert text in the help buffer while paying attention to ;; the width of the window in which the buffer displayed. -- 2.39.5