2416 |
(assoc package quail-package-alist) |
(assoc package quail-package-alist) |
2417 |
quail-current-package))) |
quail-current-package))) |
2418 |
;; At first, make sure that the help buffer has window. |
;; At first, make sure that the help buffer has window. |
2419 |
(help-setup-xref (list #'quail-help package) (interactive-p)) |
(let ((temp-buffer-show-hook nil)) |
2420 |
(with-output-to-temp-buffer (help-buffer) |
(with-output-to-temp-buffer (help-buffer) |
2421 |
(with-current-buffer standard-output |
(with-current-buffer standard-output |
2422 |
(setq quail-current-package package-def))) |
(setq quail-current-package package-def)))) |
2423 |
;; Then, insert text in the help buffer while paying attention to |
;; Then, insert text in the help buffer while paying attention to |
2424 |
;; the width of the frame in which the buffer displayed. |
;; the width of the frame in which the buffer displayed. |
2425 |
(with-current-buffer (help-buffer) |
(with-current-buffer (help-buffer) |