Mercurial > emacs
comparison lisp/textmodes/makeinfo.el @ 42429:3bdd11464124
(makeinfo-compilation-sentinel):
Display the output buffer in a more intelligent way.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 30 Dec 2001 19:33:13 +0000 |
parents | a19197c6442f |
children | 48b3aae63381 |
comparison
equal
deleted
inserted
replaced
42428:84a1eb240549 | 42429:3bdd11464124 |
---|---|
191 (defun makeinfo-compilation-sentinel (proc msg) | 191 (defun makeinfo-compilation-sentinel (proc msg) |
192 (compilation-sentinel proc msg) | 192 (compilation-sentinel proc msg) |
193 (if (and makeinfo-temp-file (file-exists-p makeinfo-temp-file)) | 193 (if (and makeinfo-temp-file (file-exists-p makeinfo-temp-file)) |
194 (delete-file makeinfo-temp-file)) | 194 (delete-file makeinfo-temp-file)) |
195 ;; Always use the version on disk. | 195 ;; Always use the version on disk. |
196 (if (get-file-buffer makeinfo-output-file-name) | 196 (let ((buffer (get-file-buffer makeinfo-output-file-name))) |
197 (progn (set-buffer makeinfo-output-file-name) | 197 (if buffer |
198 (revert-buffer t t)) | 198 (with-current-buffer buffer |
199 (find-file makeinfo-output-file-name)) | 199 (revert-buffer t t)) |
200 (setq buffer (find-file-noselect makeinfo-output-file-name))) | |
201 (if (window-dedicated-p (selected-window)) | |
202 (switch-to-buffer-other-window buffer) | |
203 (switch-to-buffer buffer))) | |
200 (goto-char (point-min))) | 204 (goto-char (point-min))) |
201 | 205 |
202 (defun makeinfo-buffer () | 206 (defun makeinfo-buffer () |
203 "Make Info file from current buffer. | 207 "Make Info file from current buffer. |
204 | 208 |