# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1230653399 0
# Node ID ab9e8f0fb295d0d0a41062759eff5d77be652c64
# Parent  44129f301385e892320cacced2696acdbdf6a1df
Check absolute source file names against DOC with #'file-newer-than-file-p.

2008-12-30  Aidan Kehoe  <kehoea@parhasard.net>

	* make-docfile.el:
	Use absolute source file names when checking if DOC is out of
	date, don't use relative paths that may not be related to the
	current directory.

diff -r 44129f301385 -r ab9e8f0fb295 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Dec 30 14:22:29 2008 +0000
+++ b/lisp/ChangeLog	Tue Dec 30 16:09:59 2008 +0000
@@ -1,3 +1,10 @@
+2008-12-30  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* make-docfile.el: 
+	Use absolute source file names when checking if DOC is out of
+	date, don't use relative paths that may not be related to the
+	current directory.
+
 2008-12-30  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* frame.el (display-mouse-p): 
diff -r 44129f301385 -r ab9e8f0fb295 lisp/make-docfile.el
--- a/lisp/make-docfile.el	Tue Dec 30 14:22:29 2008 +0000
+++ b/lisp/make-docfile.el	Tue Dec 30 16:09:59 2008 +0000
@@ -151,7 +151,7 @@
 (load "setup-paths.el")
 (load "raw-process.el")
 
-(let (preloaded-file-list arg0 arg package-preloaded-file-list)
+(let (preloaded-file-list arg0 arg package-preloaded-file-list absolute)
   (load (expand-file-name "dumped-lisp.el" source-lisp))
 
   (setq package-preloaded-file-list
@@ -168,7 +168,8 @@
 
   (while preloaded-file-list
     (setq arg0 (packages-add-suffix (car preloaded-file-list))
-	  arg (locate-library arg0))
+	  arg (locate-library arg0)
+          absolute arg)
     (if (null arg)
 	(progn
 	  (message "Error: dumped file %s does not exist" arg0)
@@ -191,7 +192,8 @@
       (if (null (member arg processed))
 	  (progn
 	    (if (and (null docfile-out-of-date)
-		     (file-newer-than-file-p arg docfile))
+                     ;; We need to check the absolute path here:
+		     (file-newer-than-file-p absolute docfile))
 		(setq docfile-out-of-date t))
 	    (setq processed (cons arg processed)))))
     (setq preloaded-file-list (cdr preloaded-file-list))))