# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1037797117 0
# Node ID 33dafec6a9de6a2188f83802642a72a0c79f1ae8
# Parent  51bb70c1ccb81e2d56fd1e5ee677dbd222f3b937
(symbol-file): Remove unused variable `functions'.

diff -r 51bb70c1ccb8 -r 33dafec6a9de lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 20 07:32:42 2002 +0000
+++ b/lisp/ChangeLog	Wed Nov 20 12:58:37 2002 +0000
@@ -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 -r 51bb70c1ccb8 -r 33dafec6a9de lisp/subr.el
--- a/lisp/subr.el	Wed Nov 20 07:32:42 2002 +0000
+++ b/lisp/subr.el	Wed Nov 20 12:58:37 2002 +0000
@@ -923,7 +923,7 @@
 	   (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))