Correct free variable error in org-src.el

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2010-05-02  Dan Davison  <davison@stats.ox.ac.uk>
+
+	* org-src.el (org-edit-src-code): allow-write-back-p had
+	erroneously been omitted from let binding
+
 2010-04-30  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-agenda.el (org-sorting-choice): New sorting type alpha.

lisp/org-src.el

@@ -205,12 +205,12 @@ the edited version. Optional argument CONTEXT is used by
 	(beg (make-marker))
 	(end (make-marker))
 	(preserve-indentation org-src-preserve-indentation)
+	(allow-write-back-p (null code))
 	block-nindent total-nindent ovl lang lang-f single lfmt begline buffer msg)
     (if (not info)
 	nil
       (setq beg (move-marker beg (nth 0 info))
 	    end (move-marker end (nth 1 info))
-	    allow-write-back-p (null code)
 	    msg (if allow-write-back-p
 		    (substitute-command-keys
 		     "Edit, then exit with C-c ' (C-c and single quote)")