(defun setup-crm-c-style (&optional make-default)
  "generate the crm-c-style"
  (if (not (assoc "crm" c-style-alist))
      () ;;; skip
    (let ((crm-c-style-name "crm")
	  (crm-c-style '("stroustrup" (c-basic-offset . 2))))
      (c-add-style crm-c-style-name crm-c-style))
    (if make-default
	(customize-set-variable 
	 'c-default-style
	 (cons '(c-mode . "crm") 
	       (cons '(c++ . "crm") 
		     c-default-style))))))
(defcustom (crm-c-style-default nil
  "*Should the crm c-style be default"
  :group 'start
  :type 'boolean)
(eval-after-load
    "cc-mode"
 '(setup-crm-c-style t))