mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(symbol-file-load-history-loaded)

Browse Source 
(load-symbol-file-load-history): Deleted.
(symbol-file): Don't call load-symbol-file-load-history.
This commit is contained in:
Richard M. Stallman 2002-08-24 02:58:53 +00:00
parent 1aa8fe4665
commit a2c4ae0156
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lisp/subr.el
View File

@ -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.")
;;; (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 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