From f913fe7d54ced4847d0fb5386b64c951561e9f33 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 8 May 2010 16:51:08 -0400 Subject: [PATCH] * progmodes/compile.el (compilation-buffer-modtime): Rename from buffer-modtime. Adjust users. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/compile.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f331e8b07f7..03514594352 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-05-08 Stefan Monnier + + * progmodes/compile.el (compilation-buffer-modtime): Rename from + buffer-modtime. Adjust users. + 2010-05-08 Chong Yidong * international/mule.el (auto-coding-alist): Only purecopy diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index f5fd9fd6608..7000b4bbc8a 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -748,9 +748,9 @@ Faces `compilation-error-face', `compilation-warning-face', "If non-nil, automatically jump to the next error encountered.") (make-variable-buffer-local 'compilation-auto-jump-to-next) -(defvar buffer-modtime nil +(defvar compilation-buffer-modtime nil "The buffer modification time, for buffers not associated with files.") -(make-variable-buffer-local 'buffer-modtime) +(make-variable-buffer-local 'compilation-buffer-modtime) (defvar compilation-skip-to-next-location t "*If non-nil, skip multiple error messages for the same source location.") @@ -1588,7 +1588,7 @@ Runs `compilation-mode-hook' with `run-mode-hooks' (which see). mode-name (or name-of-mode "Compilation")) (set (make-local-variable 'page-delimiter) compilation-page-delimiter) - (set (make-local-variable 'buffer-modtime) nil) + (set (make-local-variable 'compilation-buffer-modtime) nil) (compilation-setup) (setq buffer-read-only t) (run-mode-hooks 'compilation-mode-hook)) @@ -1804,7 +1804,7 @@ and runs `compilation-filter-hook'." (unless comint-inhibit-carriage-motion (comint-carriage-motion (process-mark proc) (point))) (set-marker (process-mark proc) (point)) - (set (make-local-variable 'buffer-modtime) (current-time)) + (set (make-local-variable 'compilation-buffer-modtime) (current-time)) (run-hooks 'compilation-filter-hook)) (goto-char pos) (narrow-to-region min max) @@ -1978,7 +1978,7 @@ This is the value of `next-error-function' in Compilation buffers." ;; There may be no timestamp info if the loc is a `fake-loc', ;; but we just checked that the file has been visited before! (equal (nth 4 loc) - (setq timestamp buffer-modtime))) + (setq timestamp compilation-buffer-modtime))) (with-current-buffer (compilation-find-file marker (caar (nth 2 loc)) (cadr (car (nth 2 loc)))) (save-restriction -- 2.39.2