comparison lisp/subr.el @ 48474:33dafec6a9de

(symbol-file): Remove unused variable `functions'.
author John Paul Wallington <jpw@pobox.com>
date Wed, 20 Nov 2002 12:58:37 +0000
parents 69077a78e52f
children 4bdcb09d9f25
comparison
equal deleted inserted replaced
48473:51bb70c1ccb8 48474:33dafec6a9de
921 It can also be nil, if the definition is not associated with any file." 921 It can also be nil, if the definition is not associated with any file."
922 (if (and (symbolp function) (fboundp function) 922 (if (and (symbolp function) (fboundp function)
923 (eq 'autoload (car-safe (symbol-function function)))) 923 (eq 'autoload (car-safe (symbol-function function))))
924 (nth 1 (symbol-function function)) 924 (nth 1 (symbol-function function))
925 (let ((files load-history) 925 (let ((files load-history)
926 file functions) 926 file)
927 (while files 927 (while files
928 (if (memq function (cdr (car files))) 928 (if (memq function (cdr (car files)))
929 (setq file (car (car files)) files nil)) 929 (setq file (car (car files)) files nil))
930 (setq files (cdr files))) 930 (setq files (cdr files)))
931 file))) 931 file)))