# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1117421394 0
# Node ID 321a0876ac0b34a196b463b06127f40209e4260a
# Parent  3cb66be1a57653a1b6557b18bd0ca8762188b8e3
(calc-user-invocation): Check if calc-invocation-macro is non-nil.

diff -r 3cb66be1a576 -r 321a0876ac0b lisp/calc/calc.el
--- a/lisp/calc/calc.el	Sun May 29 16:09:50 2005 +0000
+++ b/lisp/calc/calc.el	Mon May 30 02:49:54 2005 +0000
@@ -3431,7 +3431,7 @@
 
 (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))