From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 20 Nov 2002 12:58:37 +0000 (+0000)
Subject: (symbol-file): Remove unused variable `functions'.
X-Git-Tag: ttn-vms-21-2-B4~12325
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb21744eb592bad08cb4b5e6357f267506ad9722;p=emacs.git

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

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