diff lisp/subr.el @ 111971:ca22802893d9

Remove code and comments related to lib-src/fns-*.el; long removed. * Makefile.in (install-arch-dep, uninstall): Remove code relating to the long absent lib-src/fns-*.el. * lisp/loadup.el (symbol-file-load-history-loaded): Remove; unused. Remove related, old, commented-out code. * lisp/subr.el (symbol-file-load-history-loaded) (load-symbol-file-load-history): Remove old, commented-out code.
author Glenn Morris <rgm@gnu.org>
date Wed, 15 Dec 2010 00:16:53 -0800
parents c00190a8c8ef
children 8d03223bf479
line wrap: on
line diff
--- a/lisp/subr.el	Wed Dec 15 10:56:22 2010 +0800
+++ b/lisp/subr.el	Wed Dec 15 00:16:53 2010 -0800
@@ -1482,26 +1482,6 @@
 
 ;;; 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)))
-
 (defun symbol-file (symbol &optional type)
   "Return the name of the file that defined SYMBOL.
 The value is normally an absolute file name.  It can also be nil,