[Emacs-diffs] Changes to emacs/lisp/subr.el

[Richard M. Stallman]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.316 emacs/lisp/subr.el:1.317
*** emacs/lisp/subr.el:1.316    Fri Aug  2 13:59:22 2002
--- emacs/lisp/subr.el  Fri Aug 23 22:58:53 2002
***************
*** 892,916 ****
  
  ;;; 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 (function)
    "Return the input source from which FUNCTION was loaded.
--- 892,916 ----
  
  ;;; 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 (function)
    "Return the input source from which FUNCTION was loaded.
***************
*** 918,924 ****
  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)
    (let ((files load-history)
        file functions)
      (while files
--- 918,924 ----
  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)
    (let ((files load-history)
        file functions)
      (while files