Fix call of called-interactively-p

called-interactively-p wants an argument.
Merge pull request #6 from lunaryorn/patch-1

Fix call of called-interactively-p