Mercurial > emacs
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,