[ESS] setting transcript file name

[Rodney Sparapani]

Stephen Eglen wrote:

> > I think I see an easier fix:
> > 
> > (if ess-ask-about-transfile
> > 	    (let ((transfilename (if (stringp ess-ask-about-transfile)
> > 				     ess-ask-about-transfile (read-file-name
> > 				  "Use transcript file (default none):"
> > 				  startdir ""))))
> > 
> > 
> > And, then in .emacs you have
> > 
> > (setq ess-ask-about-transfile (my-transcript-name))
> > (require 'ess-site)
>
>Yes, that is another wya to go.  The problem with this way for the
>original problem is that the user would have to keep changing the
>value of the string ess-ask-about-transfile by hand to get the
>directory name in there.
>
>Stephen
>
>  
>
Stephen:

Good point.  One way to achieve that would be to have another function
like my-transcript-dir.  This leads to another minor improvement that I
just thought of:

(if ess-ask-about-transfile
  	    (let ((transfilename  (read-file-name
  				  "Use transcript file (default none):"
  				  (my-transcript-dir) "" nil 
                                  (if (stringp ess-ask-about-transfile)
  				     ess-ask-about-transfile nil))))

Rodney