+;;; init-server --- Configure emacs server
+
+;;; Commentary:
 ;;----------------------------------------------------------------------------
 ;; Allow access from emacsclient
 ;;----------------------------------------------------------------------------
 (require 'server)
+
+;;; Code:
 (unless (server-running-p)
   (server-start))
 
 (defun client-save-kill-emacs(&optional display)
-  " This is a function that can be used to shutdown save buffers and 
-shutdown the emacs daemon. It should be called using 
+  "This is a function that can be used to shutdown save buffers and
+shutdown the emacs daemon. It should be called using
 emacsclient -e '(client-save-kill-emacs)'.  This function will
 check to see if there are any modified buffers or active clients
 or frame.  If so an x window will be opened and the user will


;; define alternative function to shutdown emacs server instance
(defun server-shutdown ()
  "Save buffers, Quit, and Shutdown (kill) server"
  (interactive)
  (save-some-buffers)
  (kill-emacs)
  )

(provide 'init-server)

    (setq modified-buffers (modified-buffers-exist))
    (setq active-clients-or-frames ( or (> (length server-clients) 1)
					(> (length (frame-list)) 1)
					))

    ;; Create a new frame if prompts are needed.
    (when (or modified-buffers active-clients-or-frames)
