`compile-defun' typo

[John Paul Wallington]

`compile-defun' has an obvious typo, which causes the error:

Symbol's value as variable is void: inbuffer

Is this a good fix?

2002-07-19  John Paul Wallington  <address@hidden>

        * emacs-lisp/bytecomp.el (compile-defun): Bind
        `read-with-symbol-positions' to current buffer.

Index: bytecomp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.102
diff -u -r2.102 bytecomp.el
--- bytecomp.el 2 Jul 2002 18:48:34 -0000       2.102
+++ bytecomp.el 19 Jul 2002 00:26:22 -0000
@@ -1588,7 +1588,7 @@
           (byte-compile-last-position byte-compile-read-position)
           (byte-compile-last-warned-form 'nothing)
           (value (eval
-                  (let ((read-with-symbol-positions inbuffer)
+                  (let ((read-with-symbol-positions (current-buffer))
                         (read-symbol-positions-list nil))
                     (displaying-byte-compile-warnings
                      (byte-compile-sexp (read (current-buffer))))))))

-- 
John Paul Wallington