From 5f1af2d872b58f5f990a7a667aab32cd5152388b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 8 Nov 1998 17:24:16 +0000 Subject: [PATCH] (symbol-file): Run fns-VERSION.el through convert-standard-filename. --- lisp/loadhist.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 419fe6c135a..8df66d3bcc9 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -40,8 +40,12 @@ which is cleared out before dumping to make Emacs smaller.") "Return the input source from which SYM was loaded. This is a file name, or nil if the source was a buffer with no associated file." (unless load-history-loaded - (load (expand-file-name (format "fns-%s.el" emacs-version) - exec-directory)) + (load (expand-file-name + ;; fns-XX.YY.ZZ.el does not work on DOS filesystem. + (convert-standard-filename (format "fns-%s.el" emacs-version)) + exec-directory) + ;; The file name fns-%s.el already has a .el extension. + nil nil t) (setq load-history-loaded t)) (catch 'foundit (mapcar -- 2.39.2