Case splitting in M-t and initial-code in C-u M-t

2014-08-14 17:59:46 +02:00
parent 7ecb66f32e
commit 8eeeacd58d
4 changed files with 7 additions and 19 deletions
--- a/elisp/ghc-command.el
+++ b/elisp/ghc-command.el
@@ -19,7 +19,8 @@
   ((ghc-check-overlay-at (point))
    (ghc-check-insert-from-warning))
   (t
-    (message "Nothing to be done"))))
+    (when (null (ghc-try-case-split))
+          (message "Nothing to be done")))))

 (defun ghc-insert-module-template ()
  (let* ((fullname (file-name-sans-extension (buffer-file-name)))