modifying shell buffer names with TRAMP data

[Terrence Brannon]

I have been using TRAMP with shell-current-directory ( http://github.com/metaperl/emacs/blob/master/shell-current-directory.el ) to open shells on remote machines successfully.

I would like to modify the directory-shell-buffer-name function:

(defun directory-shell-buffer-name ()

  "The name of a shell buffer pertaining to DIR."

  (concat "*"  (file-name-nondirectory 

                     (directory-file-name (expand-file-name default-directory))) 
                     "-shell*"))

so that it includes the hostname and domain name of the machine the shell is being created on.