zsh 3.1.5 su problem

[sada@xxxxxxxxxxxxxx (SADA Kenji)]

Hello.

I heared that zsh-3.1.5 failures su function because
it emulates `sh' by first letter `s' of `su'.

How about a patch below.

Thanks !

*** options.c.orig      Mon Jun  7 11:03:16 1999
--- options.c   Mon Jun  7 11:32:17 1999
***************
*** 432,448 ****
  void
  emulate(const char *zsh_name, int fully)
  {
!     char ch = *zsh_name;

!     if (ch == 'r')
!       ch = zsh_name[1];

      /* Work out the new emulation mode */
!     if (ch == 'c')
        emulation = EMULATE_CSH;
!     else if (ch == 'k')
        emulation = EMULATE_KSH;
!     else if (ch == 's' || ch == 'b')
        emulation = EMULATE_SH;
      else
        emulation = EMULATE_ZSH;
--- 432,448 ----
  void
  emulate(const char *zsh_name, int fully)
  {
!     char *name = zsh_name;

!     if (*name == 'r')
!       name++;

      /* Work out the new emulation mode */
!     if (!strcmp (name, "csh"))
        emulation = EMULATE_CSH;
!     else if (!strcmp (name, "ksh"))
        emulation = EMULATE_KSH;
!     else if (!strcmp (name, "sh") || !strcmp (name, "bash"))
        emulation = EMULATE_SH;
      else
        emulation = EMULATE_ZSH;