Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 259:11cf20601dec r20-5b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b28
author cvs
date Mon, 13 Aug 2007 10:23:02 +0200
parents 51092a27c943
children c5d627a313b1
comparison
equal deleted inserted replaced
258:58424f6abf56 259:11cf20601dec
1330 '(save-excursion 1330 '(save-excursion
1331 ;; If there were compilation warnings, display them. 1331 ;; If there were compilation warnings, display them.
1332 (set-buffer "*Compile-Log*") 1332 (set-buffer "*Compile-Log*")
1333 (if (= byte-compile-warnings-point-max (point-max)) 1333 (if (= byte-compile-warnings-point-max (point-max))
1334 nil 1334 nil
1335 (select-window 1335 (if temp-buffer-show-function
1336 (prog1 (selected-window) 1336 (let ((show-buffer (get-buffer-create "*Compile-Log-Show*")))
1337 (select-window (display-buffer (current-buffer))) 1337 (save-excursion
1338 (goto-char byte-compile-warnings-point-max) 1338 (set-buffer show-buffer)
1339 (recenter 1)))))))) 1339 (setq buffer-read-only nil)
1340 (erase-buffer))
1341 (copy-to-buffer show-buffer
1342 (save-excursion
1343 (goto-char byte-compile-warnings-point-max)
1344 (forward-line -1)
1345 (point))
1346 (point-max))
1347 (funcall temp-buffer-show-function show-buffer))
1348 (select-window
1349 (prog1 (selected-window)
1350 (select-window (display-buffer (current-buffer)))
1351 (goto-char byte-compile-warnings-point-max)
1352 (recenter 1)))))))))
1340 1353
1341 1354
1342 ;;;###autoload 1355 ;;;###autoload
1343 (defun byte-force-recompile (directory) 1356 (defun byte-force-recompile (directory)
1344 "Recompile every `.el' file in DIRECTORY that already has a `.elc' file. 1357 "Recompile every `.el' file in DIRECTORY that already has a `.elc' file.