> On Mon, 31 Dec 2012 16:41:42 +0100
> Michael Albinus <michael.albinus@gmx.de> wrote:
>
> Dima Kogan <dima@secretsauce.net> writes:
> 
> > +	     (tramp-file-name-localname (tramp-dissect-file-name
> > +					 (buffer-file-name) t))
> 
> Don't use Tramp internal functions, they are not documented by
> intention. You could use instead
> 
> (file-remote-p (buffer-file-name) 'localname)

Great point; this is really much better. I'm attaching an updated patch.