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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3bf6c11387aa705fce5f973130a7a39703952b8..e10f645147498c6727989bd1794f3b8dc7ff06aa 100644 (file)
--- 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 17ca52c62926eba3e203ba4c217b82e79f828d8a..10e48e7a4058ae8c45edbc12609acbdc18f44ee2 100644 (file)
--- 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))