Mercurial > emacs

changeset 108376:96ef3c75fd61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* progmodes/compile.el (compilation-buffer-modtime): Rename from buffer-modtime. Adjust users.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 08 May 2010 16:51:08 -0400
parents 973b5bc5fcfe
children 7827d5a5c826
files lisp/ChangeLog lisp/progmodes/compile.el
diffstat 2 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat May 08 14:47:07 2010 -0400
+++ b/lisp/ChangeLog	Sat May 08 16:51:08 2010 -0400
@@ -1,3 +1,8 @@
+2010-05-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/compile.el (compilation-buffer-modtime): Rename from
+	buffer-modtime.  Adjust users.
+
 2010-05-08  Chong Yidong  <cyd@stupidchicken.com>
 
 	* international/mule.el (auto-coding-alist):  Only purecopy
--- a/lisp/progmodes/compile.el	Sat May 08 14:47:07 2010 -0400
+++ b/lisp/progmodes/compile.el	Sat May 08 16:51:08 2010 -0400
@@ -748,9 +748,9 @@
   "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 @@
 	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 @@
               (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 @@
                  ;; 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