🚀 go-pugleaf

Little bug reared its head the other day:

------------------------------------------------------------
Current directory: ~ccsmm

M-x dired
Dired (directory): ~ccsmh/tmp
Reading directory /user/gdt/cc/s/ccsmh/tmp...Done

And I get a dired of my (~ccsmm/tmp) directory. Puzzling?
------------------------------------------------------------

Reason: permissions on ~ccsmh directory
drwx------ 10 ccsmh        1024 Aug  2 15:07 /user/gdt/cc/s/ccsmh

And, I believe, no check on a chdir() in callproc.c

>  if (XTYPE (bf_cur->directory) == Lisp_String)
>    {
>      register unsigned char *temp;
>      register int i;
>
>      i = XSTRING (bf_cur->directory)->size;
>      temp = (unsigned char *) alloca (i + 2);
>      bcopy (XSTRING (bf_cur->directory)->data, temp, i);
>      if (temp[i - 1] != '/') temp[i++] = '/';
>      temp[i] = 0;
>      chdir (temp);
>    }
>

Maybe it should have been spotted somewhere else as well?
Don't know if this would cause any nasty problems in other areas....

M-x emacs-version
GNU Emacs 18.52.4 of Thu Mar 16 1989 on gdt (berkeley-unix)
But it's still in:
GNU Emacs 18.55.0 of Fri Jul 17 1990 on m (Domain/OS)

Martin