Mercurial > emacs

changeset 24574:baecd14c2bb2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't write the fns-...el file if not dumping.
author Richard M. Stallman <rms@gnu.org>
date Tue, 06 Apr 1999 19:51:57 +0000
parents aa24b1cb428a
children a95503af9112
files lisp/loadup.el
diffstat 1 files changed, 27 insertions(+), 24 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/loadup.el	Tue Apr 06 19:50:49 1999 +0000
+++ b/lisp/loadup.el	Tue Apr 06 19:51:57 1999 +0000
@@ -212,30 +212,33 @@
 
 ;; Write the value of load-history into fns-VERSION.el,
 ;; then clear out load-history.
-(let ((buffer-undo-list t))
-  (princ "(setq load-history\n" (current-buffer))
-  (princ "      (nconc load-history\n" (current-buffer))
-  (princ "             '(" (current-buffer))
-  (let ((tem load-history))
-    (while tem
-      (prin1 (car tem) (current-buffer))
-      (terpri (current-buffer))
-      (if (cdr tem)
-	  (princ "               " (current-buffer)))
-      (setq tem (cdr tem))))
-  (princ ")))\n" (current-buffer))
-  (write-region (point-min) (point-max)
-		(expand-file-name
-		 (cond 
-		  ((eq system-type 'ms-dos)
-		   "../lib-src/fns.el")
-		  ((eq system-type 'windows-nt)
-		   (format "../../../lib-src/fns-%s.el" emacs-version))
-		  (t
-		   (format "../lib-src/fns-%s.el" emacs-version)))
-		 invocation-directory))
-  (erase-buffer))
-(setq load-history nil)
+(if (or (equal (nth 3 command-line-args) "dump")
+	(equal (nth 4 command-line-args) "dump"))
+    (let ((buffer-undo-list t))
+      (princ "(setq load-history\n" (current-buffer))
+      (princ "      (nconc load-history\n" (current-buffer))
+      (princ "             '(" (current-buffer))
+      (let ((tem load-history))
+	(while tem
+	  (prin1 (car tem) (current-buffer))
+	  (terpri (current-buffer))
+	  (if (cdr tem)
+	      (princ "               " (current-buffer)))
+	  (setq tem (cdr tem))))
+      (princ ")))\n" (current-buffer))
+      (write-region (point-min) (point-max)
+		    (expand-file-name
+		     (cond 
+		      ((eq system-type 'ms-dos)
+		       "../lib-src/fns.el")
+		      ((eq system-type 'windows-nt)
+		       (format "../../../lib-src/fns-%s.el" emacs-version))
+		      (t
+		       (format "../lib-src/fns-%s.el" emacs-version)))
+		     invocation-directory))
+      (erase-buffer)
+      (setq load-history nil))
+  (setq symbol-file-load-history-loaded t))
 (set-buffer-modified-p nil)
 
 (garbage-collect)