From e04fd7a4ff581c3323f672e301894479ed4e3a3e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 Dec 2001 19:33:13 +0000 Subject: [PATCH] (makeinfo-compilation-sentinel): Display the output buffer in a more intelligent way. --- lisp/textmodes/makeinfo.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el index 9370ee80894..b4857e0d143 100644 --- a/lisp/textmodes/makeinfo.el +++ b/lisp/textmodes/makeinfo.el @@ -193,10 +193,14 @@ command to gain use of `next-error'." (if (and makeinfo-temp-file (file-exists-p makeinfo-temp-file)) (delete-file makeinfo-temp-file)) ;; Always use the version on disk. - (if (get-file-buffer makeinfo-output-file-name) - (progn (set-buffer makeinfo-output-file-name) - (revert-buffer t t)) - (find-file makeinfo-output-file-name)) + (let ((buffer (get-file-buffer makeinfo-output-file-name))) + (if buffer + (with-current-buffer buffer + (revert-buffer t t)) + (setq buffer (find-file-noselect makeinfo-output-file-name))) + (if (window-dedicated-p (selected-window)) + (switch-to-buffer-other-window buffer) + (switch-to-buffer buffer))) (goto-char (point-min))) (defun makeinfo-buffer () -- 2.39.2