From: Richard M. Stallman Date: Sun, 3 Feb 2002 10:33:01 +0000 (+0000) Subject: (quail-help): Don't call help-setup-xref. X-Git-Tag: ttn-vms-21-2-B4~16870 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ce2659dbe1e56ce2b738e2946c4cea38d665d7f;p=emacs.git (quail-help): Don't call help-setup-xref. --- diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 0c301111dac..dcadfa7a3b8 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2416,10 +2416,10 @@ package to describe." (assoc package quail-package-alist) quail-current-package))) ;; At first, make sure that the help buffer has window. - (help-setup-xref (list #'quail-help package) (interactive-p)) - (with-output-to-temp-buffer (help-buffer) - (with-current-buffer standard-output - (setq quail-current-package package-def))) + (let ((temp-buffer-show-hook nil)) + (with-output-to-temp-buffer (help-buffer) + (with-current-buffer standard-output + (setq quail-current-package package-def)))) ;; Then, insert text in the help buffer while paying attention to ;; the width of the frame in which the buffer displayed. (with-current-buffer (help-buffer)