(setq ring-bell-function (lambda ()))
(windmove-default-keybindings)
-(server-start)
+(require 'server)
+(if (server-running-p)
+ (message "Warning: server %S is already running." server-name)
+ (server-start))
;; Host specific configuration ------------------------------------------------
(let ((host (system-name)))