Mercurial > hg > xemacs-beta

diff lisp/prim/make-docfile.el @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 85ec50267440
children 6075d714658b
line wrap: on
line diff
--- a/lisp/prim/make-docfile.el	Mon Aug 13 09:49:11 2007 +0200
+++ b/lisp/prim/make-docfile.el	Mon Aug 13 09:50:14 2007 +0200
@@ -103,14 +103,17 @@
  (setq dumped-lisp-packages
        (append dumped-lisp-packages packages-hardcoded-lisp))
  (while dumped-lisp-packages
-   (let ((arg (packages-add-suffix (car dumped-lisp-packages))))
-     (setq arg (locate-library arg))
-     (if (null (member arg processed))
-	 (progn
-	   (if (and (null docfile-out-of-date)
-		    (file-newer-than-file-p arg docfile))
-	       (setq docfile-out-of-date t))
-	   (setq processed (cons arg processed))))
+   (let ((arg0 (packages-add-suffix (car dumped-lisp-packages)))
+	 arg)
+     (setq arg (locate-library arg0))
+     (if (null arg)
+	 (princ (format "Error:  dumped file %s does not exist\n" arg))
+       (if (null (member arg processed))
+	   (progn
+	     (if (and (null docfile-out-of-date)
+		      (file-newer-than-file-p arg docfile))
+		 (setq docfile-out-of-date t))
+	     (setq processed (cons arg processed)))))
      (setq dumped-lisp-packages (cdr dumped-lisp-packages)))))
 
 ;; Finally process the list of site-loaded files.