Handle case where c-default-style is a string

Fixes #73.
arnested · Aug 21, 2016 · 947b893 · 947b893
1 parent 2ed0a81
commit 947b893
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/drupal-mode.el b/drupal-mode.el
@@ -347,7 +347,12 @@ According to https://drupal.org/coding-standards#indenting."
   :group 'drupal)
 
 (c-add-style "drupal" drupal-style)
-(add-to-list 'c-default-style '(drupal-mode . "drupal"))
+
+(if (and
+     (boundp 'c-default-style)
+     (stringp c-default-style))
+    (setq c-default-style `((drupal-mode . "drupal") (other . ,c-default-style)))
+  (add-to-list 'c-default-style '(drupal-mode . "drupal")))