Mercurial > emacs
comparison lisp/progmodes/compile.el @ 6673:137122de77ef
(compile-reinitialize-errors): Fix typo in comment.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 05 Apr 1994 02:19:02 +0000 |
parents | b7196b4a3679 |
children | 3723e842825c |
comparison
equal
deleted
inserted
replaced
6672:12aafd560832 | 6673:137122de77ef |
---|---|
657 ;; This was here for a long time (before my rewrite); why? --roland | 657 ;; This was here for a long time (before my rewrite); why? --roland |
658 ;;(switch-to-buffer compilation-last-buffer) | 658 ;;(switch-to-buffer compilation-last-buffer) |
659 (set-buffer-modified-p nil) | 659 (set-buffer-modified-p nil) |
660 (if (< compilation-parsing-end (point-max)) | 660 (if (< compilation-parsing-end (point-max)) |
661 ;; compilation-error-list might be non-nil if we have a non-nil | 661 ;; compilation-error-list might be non-nil if we have a non-nil |
662 ;; LIMIT-SEARCH of FIND-AT-LEAST arg. In that case its value | 662 ;; LIMIT-SEARCH or FIND-AT-LEAST arg. In that case its value |
663 ;; records the current position in the error list, and we must | 663 ;; records the current position in the error list, and we must |
664 ;; preserve that after reparsing. | 664 ;; preserve that after reparsing. |
665 (let ((error-list-pos compilation-error-list)) | 665 (let ((error-list-pos compilation-error-list)) |
666 (funcall compilation-parse-errors-function | 666 (funcall compilation-parse-errors-function |
667 limit-search | 667 limit-search |