(symbol-file): Remove unused variable `functions'.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3bf6c11387..e10f6451474 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-11-20  John Paul Wallington  <jpw@shootybangbang.com>
+
+        * subr.el (symbol-file): Remove unused variable `functions'.
+
 2002-11-20   Markus Rost  <rost@math.ohio-state.edu>
 
         * Makefile.in (setwins_almost): Renamed from finder_setwins.
diff --git a/lisp/subr.el b/lisp/subr.el
index 17ca52c6292..10e48e7a405 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -923,7 +923,7 @@ It can also be nil, if the definition is not associated with any file."
            (eq 'autoload (car-safe (symbol-function function))))
       (nth 1 (symbol-function function))
     (let ((files load-history)
-          file functions)
+          file)
       (while files
         (if (memq function (cdr (car files)))
             (setq file (car (car files)) files nil))