gist:1250669

## gistfile1.diff
diff --git a/src/macim.m b/src/macim.m
index d4444db..515cf25 100644
--- a/src/macim.m
+++ b/src/macim.m
@@ -100,7 +100,14 @@ DEFUN ("mac-toggle-input-source", Fmac_toggle_input_source,
     }
   else
     {
-      NSString *locale = [[NSLocale currentLocale] localeIdentifier];
+      NSString *locale;
+      NSArray *languages = [NSLocale preferredLanguages];
+      if (languages != nil) {
+          locale = [languages objectAtIndex:0];
+      } else {
+          locale = [[NSLocale currentLocale]
+                       objectForKey:NSLocaleLanguageCode];
+      }
       is = TISCopyInputSourceForLanguage(locale);
     }
   if (is) TISSelectInputSource(is);