From 355345fd1ae7f6fd330bb5216d66f6ca476959cf Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 15 Oct 1997 23:34:58 +0000 Subject: [PATCH] (compilation-forget-errors): Reinit compilation-directory-stack the way compile-internal does. (compilation-parse-errors): Don't let default-directory change. --- lisp/progmodes/compile.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 54e0ed1808b..ba4b9b6778c 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1547,7 +1547,7 @@ Selects a window with point at SOURCE, with another window displaying ERROR." (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 @@ See variable `compilation-parse-errors-function' for the interface it uses." (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 -- 2.39.2