inserting a module for type.

2014-03-25 22:05:33 +09:00
parent a16dc3d040
commit f97cc2e096
2 changed files with 8 additions and 4 deletions
--- a/elisp/ghc-func.el
+++ b/elisp/ghc-func.el
@@ -200,8 +200,9 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 (defun ghc-enclose (expr)
-  (if (string-match "^[a-zA-Z0-9_]$" expr)
-      expr
-    (concat "(" expr ")")))
+  (let ((case-fold-search nil))
+    (if (string-match "^[a-zA-Z0-9_]" expr)
+	expr
+      (concat "(" expr ")"))))

 (provide 'ghc-func)