M-t inserts module or undefine.

2014-03-25 14:58:20 +09:00
parent dc6424454e
commit 97b3de7328
3 changed files with 37 additions and 17 deletions
--- a/elisp/ghc-func.el
+++ b/elisp/ghc-func.el
@@ -197,4 +197,11 @@
       (insert (format "%% %s %s\n" cmd (mapconcat 'identity args " ")))
       (insert-buffer-substring cbuf)))))

+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun ghc-enclose (expr)
+  (if (string-match "^[a-zA-Z0-9_]$" expr)
+      expr
+    (concat "(" expr ")")))
+
 (provide 'ghc-func)