Mercurial > emacs

comparison lisp/loadhist.el @ 23664:bf72d6351f29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(symbol-file): Run fns-VERSION.el through convert-standard-filename.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 08 Nov 1998 17:24:16 +0000
parents c8ba21ef69c4
children 2069e879bec5
comparison
equal deleted inserted replaced
23663:ba5feaac00b1 23664:bf72d6351f29
38 38
39 (defun symbol-file (sym) 39 (defun symbol-file (sym)
40 "Return the input source from which SYM was loaded. 40 "Return the input source from which SYM was loaded.
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
44 exec-directory)) 44 ;; fns-XX.YY.ZZ.el does not work on DOS filesystem.
45 (convert-standard-filename (format "fns-%s.el" emacs-version))
46 exec-directory)
47 ;; The file name fns-%s.el already has a .el extension.
48 nil nil t)
45 (setq load-history-loaded t)) 49 (setq load-history-loaded t))
46 (catch 'foundit 50 (catch 'foundit
47 (mapcar 51 (mapcar
48 (function (lambda (x) (if (memq sym (cdr x)) (throw 'foundit (car x))))) 52 (function (lambda (x) (if (memq sym (cdr x)) (throw 'foundit (car x)))))
49 load-history) 53 load-history)