(calc-user-invocation): Check if calc-invocation-macro is non-nil.

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 7656f14bb870d4364bb58b1e03638a672ff2ffdd..dbc5e90b91758fb07b98f2ea1ed679ac577a2890 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -3431,7 +3431,7 @@ Also looks for the equivalent TeX words, \\gets and \\evalto."
 
 (defun calc-user-invocation ()
   (interactive)
-  (unless (stringp calc-invocation-macro)
+  (unless calc-invocation-macro
     (error "Use `Z I' inside Calc to define a `M-# Z' keyboard macro"))
   (execute-kbd-macro calc-invocation-macro nil))