diff options
author | John Paul Wallington <[email protected]> | 2002-11-20 12:58:37 +0000 |
---|---|---|
committer | John Paul Wallington <[email protected]> | 2002-11-20 12:58:37 +0000 |
commit | cb21744eb592bad08cb4b5e6357f267506ad9722 (patch) | |
tree | 4a5e624a8fc3ead8292dc90d3553c760a1e0dc0a | |
parent | c595cc5fbda9c9fade56760110d614946524810a (diff) |
(symbol-file): Remove unused variable `functions'.
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/subr.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e3bf6c1138..e10f645147 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-11-20 John Paul Wallington <[email protected]> + + * subr.el (symbol-file): Remove unused variable `functions'. + 2002-11-20 Markus Rost <[email protected]> * Makefile.in (setwins_almost): Renamed from finder_setwins. diff --git a/lisp/subr.el b/lisp/subr.el index 17ca52c629..10e48e7a40 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)) |