diff options
| author | Andreas Schwab | 1998-10-30 09:53:51 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1998-10-30 09:53:51 +0000 |
| commit | 5f15b2efede1c8cb0079ca3e265e185288d9a842 (patch) | |
| tree | a908c41362e450989bd41c1330900a3cee74052b | |
| parent | cec762dae3814ba21b9d341b2ab7b5104b7f11da (diff) | |
| download | emacs-5f15b2efede1c8cb0079ca3e265e185288d9a842.tar.gz emacs-5f15b2efede1c8cb0079ca3e265e185288d9a842.zip | |
(symbol-file): Load fns-*.el from exec-directory
instead of data-directory since it is architecture dependent.
(load-history-loaded): Update doc string.
| -rw-r--r-- | lisp/loadhist.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 5cebf2d63c4..419fe6c135a 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el | |||
| @@ -32,7 +32,7 @@ | |||
| 32 | ;;; Code: | 32 | ;;; Code: |
| 33 | 33 | ||
| 34 | (defvar load-history-loaded nil | 34 | (defvar load-history-loaded nil |
| 35 | "Non-nil means we have loaded the file `etc/fns-VERSION.el'. | 35 | "Non-nil means we have loaded the file `fns-VERSION.el' in `exec-directory'. |
| 36 | That file records the part of `load-history' for preloaded files, | 36 | That file records the part of `load-history' for preloaded files, |
| 37 | which is cleared out before dumping to make Emacs smaller.") | 37 | which is cleared out before dumping to make Emacs smaller.") |
| 38 | 38 | ||
| @@ -41,7 +41,7 @@ which is cleared out before dumping to make Emacs smaller.") | |||
| 41 | This is a file name, or nil if the source was a buffer with no associated file." | 41 | This is a file name, or nil if the source was a buffer with no associated file." |
| 42 | (unless load-history-loaded | 42 | (unless load-history-loaded |
| 43 | (load (expand-file-name (format "fns-%s.el" emacs-version) | 43 | (load (expand-file-name (format "fns-%s.el" emacs-version) |
| 44 | data-directory)) | 44 | exec-directory)) |
| 45 | (setq load-history-loaded t)) | 45 | (setq load-history-loaded t)) |
| 46 | (catch 'foundit | 46 | (catch 'foundit |
| 47 | (mapcar | 47 | (mapcar |