Mercurial > emacs

changeset 20059:121625bee1c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-forget-errors): Reinit compilation-directory-stack the way compile-internal does. (compilation-parse-errors): Don't let default-directory change.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Oct 1997 23:34:58 +0000
parents 7077ba8a265b
children 36044c8b8aef
files lisp/progmodes/compile.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Wed Oct 15 23:33:14 1997 +0000
+++ b/lisp/progmodes/compile.el	Wed Oct 15 23:34:58 1997 +0000
@@ -1547,7 +1547,7 @@
 	  (set-marker (cdr next-error) nil)))
     (setq compilation-old-error-list (cdr compilation-old-error-list)))
   (setq compilation-error-list nil
-	compilation-directory-stack nil
+	compilation-directory-stack (list default-directory)
 	compilation-parsing-end 1)
   ;; Remove the highlighting added by compile-reinitialize-errors:
   (let ((inhibit-read-only t))
@@ -1598,6 +1598,7 @@
   (if (null compilation-error-regexp-alist)
       (error "compilation-error-regexp-alist is empty!"))
   (let* ((compilation-regexps nil) ; Variable set by compile-collect-regexps.
+	 (default-directory default-directory)
 	 (found-desired nil)
 	 (compilation-num-errors-found 0)
 	 ;; Set up now the expanded, abbreviated directory variables