diff options
| author | Richard M. Stallman | 2002-02-03 10:33:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-02-03 10:33:01 +0000 |
| commit | 1ce2659dbe1e56ce2b738e2946c4cea38d665d7f (patch) | |
| tree | 983d8641d7d7b0cc943c147630c7ae2d5fe2c0cc | |
| parent | f80e2142fc2000fff4cad43019120113fade0a1d (diff) | |
| download | emacs-1ce2659dbe1e56ce2b738e2946c4cea38d665d7f.tar.gz emacs-1ce2659dbe1e56ce2b738e2946c4cea38d665d7f.zip | |
(quail-help): Don't call help-setup-xref.
| -rw-r--r-- | lisp/international/quail.el | 8 |
1 files changed, 4 insertions, 4 deletions
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." | |||
| 2416 | (assoc package quail-package-alist) | 2416 | (assoc package quail-package-alist) |
| 2417 | quail-current-package))) | 2417 | quail-current-package))) |
| 2418 | ;; At first, make sure that the help buffer has window. | 2418 | ;; At first, make sure that the help buffer has window. |
| 2419 | (help-setup-xref (list #'quail-help package) (interactive-p)) | 2419 | (let ((temp-buffer-show-hook nil)) |
| 2420 | (with-output-to-temp-buffer (help-buffer) | 2420 | (with-output-to-temp-buffer (help-buffer) |
| 2421 | (with-current-buffer standard-output | 2421 | (with-current-buffer standard-output |
| 2422 | (setq quail-current-package package-def))) | 2422 | (setq quail-current-package package-def)))) |
| 2423 | ;; Then, insert text in the help buffer while paying attention to | 2423 | ;; Then, insert text in the help buffer while paying attention to |
| 2424 | ;; the width of the frame in which the buffer displayed. | 2424 | ;; the width of the frame in which the buffer displayed. |
| 2425 | (with-current-buffer (help-buffer) | 2425 | (with-current-buffer (help-buffer) |