Re: emacs server fails to start with large uid on unix

[Richard Stallman]

Does this fix it?

*** server.el   27 Nov 2006 21:05:42 -0500      1.124
--- server.el   07 Jan 2007 23:00:49 -0500      
***************
*** 198,204 ****
  (defvar server-name "server")
  
  (defvar server-socket-dir
!   (format "/tmp/emacs%d" (user-uid)))
  
  (defun server-log (string &optional client)
    "If a *server* buffer exists, write STRING to it for logging purposes."
--- 198,207 ----
  (defvar server-name "server")
  
  (defvar server-socket-dir
!   (let ((uid (user-uid)))
!     (if (floatp uid)
!       (format "/tmp/emacs%1.0f" uid)
!       (format "/tmp/emacs%d" uid))))
  
  (defun server-log (string &optional client)
    "If a *server* buffer exists, write STRING to it for logging purposes."