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-comp.el
+++ b/elisp/ghc-comp.el
@@ -125,10 +125,9 @@ unloaded modules are loaded")

 (defun ghc-complete ()
  (interactive)
-  (when (null (ghc-try-rewrite))
-        (if (ghc-should-scroll)
-            (ghc-scroll-completion-buffer)
-            (ghc-try-complete))))
+  (if (ghc-should-scroll)
+      (ghc-scroll-completion-buffer)
+      (ghc-try-complete)))

 (defun ghc-should-scroll ()
  (let ((window (ghc-completion-window)))