590 

   590 

   591 (eval-when 'compile (require 'server))

   591 (eval-when 'compile (require 'server))

   592 

   592 

   593 (when (and (>= emacs-major-version 22) (not (eq system-type 'cygwin)))

   593 (when (and (>= emacs-major-version 22) (not (eq system-type 'cygwin)))

   594   (require 'server)

   594   (require 'server)

   595   (when (and (>= emacs-major-version 23) (equal window-system 'w32))

   598   (when (and (>= emacs-major-version 23) (equal window-system 'w32))

   596     (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows.

   599     (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows.

   597   (when (or (= emacs-major-version 22) (not (eq (server-running-p server-name) t)))

   600   (when (or (= emacs-major-version 22) (not (eq (server-running-p server-name) t)))

   598     (server-start)) )

   601     (server-start)) )

   599 

   602