making case-split work even if the target is highlighted.

This commit is contained in:
Kazu Yamamoto
2014-08-20 14:44:24 +09:00
parent 51710c38b0
commit 607919e815
2 changed files with 50 additions and 48 deletions

View File

@@ -17,10 +17,11 @@
((bobp)
(ghc-insert-module-template))
((ghc-check-overlay-at (point))
(ghc-check-insert-from-warning))
(or (ghc-check-insert-from-warning)
(ghc-try-case-split)))
(t
(when (null (ghc-try-case-split))
(message "Nothing to be done")))))
(unless (ghc-try-case-split)
(message "Nothing to be done")))))
(defun ghc-insert-module-template ()
(let* ((fullname (file-name-sans-extension (buffer-file-name)))