From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 Aug 2002 02:58:53 +0000 (+0000)
Subject: (symbol-file-load-history-loaded)
X-Git-Tag: ttn-vms-21-2-B4~13583
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2c4ae01567bac62988eab57b4043eff21255819;p=emacs.git

(symbol-file-load-history-loaded)
(load-symbol-file-load-history): Deleted.
(symbol-file): Don't call load-symbol-file-load-history.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 15d483c10b6..d1e82e30d18 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -892,25 +892,25 @@ other hooks, such as major mode hooks, can do the job."
 
 ;;; Load history
 
-(defvar symbol-file-load-history-loaded nil
-  "Non-nil means we have loaded the file `fns-VERSION.el' in `exec-directory'.
-That file records the part of `load-history' for preloaded files,
-which is cleared out before dumping to make Emacs smaller.")
-
-(defun load-symbol-file-load-history ()
-  "Load the file `fns-VERSION.el' in `exec-directory' if not already done.
-That file records the part of `load-history' for preloaded files,
-which is cleared out before dumping to make Emacs smaller."
-  (unless symbol-file-load-history-loaded
-    (load (expand-file-name
-	   ;; fns-XX.YY.ZZ.el does not work on DOS filesystem.
-	   (if (eq system-type 'ms-dos)
-	       "fns.el"
-	     (format "fns-%s.el" emacs-version))
-	   exec-directory)
-	  ;; The file name fns-%s.el already has a .el extension.
-	  nil nil t)
-    (setq symbol-file-load-history-loaded t)))
+;;; (defvar symbol-file-load-history-loaded nil
+;;;   "Non-nil means we have loaded the file `fns-VERSION.el' in `exec-directory'.
+;;; That file records the part of `load-history' for preloaded files,
+;;; which is cleared out before dumping to make Emacs smaller.")
+
+;;; (defun load-symbol-file-load-history ()
+;;;   "Load the file `fns-VERSION.el' in `exec-directory' if not already done.
+;;; That file records the part of `load-history' for preloaded files,
+;;; which is cleared out before dumping to make Emacs smaller."
+;;;   (unless symbol-file-load-history-loaded
+;;;     (load (expand-file-name
+;;; 	   ;; fns-XX.YY.ZZ.el does not work on DOS filesystem.
+;;; 	   (if (eq system-type 'ms-dos)
+;;; 	       "fns.el"
+;;; 	     (format "fns-%s.el" emacs-version))
+;;; 	   exec-directory)
+;;; 	  ;; The file name fns-%s.el already has a .el extension.
+;;; 	  nil nil t)
+;;;     (setq symbol-file-load-history-loaded t)))
 
 (defun symbol-file (function)
   "Return the input source from which FUNCTION was loaded.
@@ -918,7 +918,7 @@ The value is normally a string that was passed to `load':
 either an absolute file name, or a library name
 \(with no directory name and no `.el' or `.elc' at the end).
 It can also be nil, if the definition is not associated with any file."
-  (load-symbol-file-load-history)
+;;;  (load-symbol-file-load-history)
   (let ((files load-history)
 	file functions)
     (while files