Mercurial > emacs
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))) |