diff options
| author | Jay Belanger | 2005-05-30 02:49:54 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-05-30 02:49:54 +0000 |
| commit | dd168a3e47cc6cfc109cc71eca02ed081bbe51d8 (patch) | |
| tree | 46fbd908c73fe4f9c29da3b6a9ecb6ced4f14f78 | |
| parent | 5f43c63c204e8d746abdf5702856e081dfd5602b (diff) | |
| download | emacs-dd168a3e47cc6cfc109cc71eca02ed081bbe51d8.tar.gz emacs-dd168a3e47cc6cfc109cc71eca02ed081bbe51d8.zip | |
(calc-user-invocation): Check if calc-invocation-macro is non-nil.
| -rw-r--r-- | lisp/calc/calc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 7656f14bb87..dbc5e90b917 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el | |||
| @@ -3431,7 +3431,7 @@ Also looks for the equivalent TeX words, \\gets and \\evalto." | |||
| 3431 | 3431 | ||
| 3432 | (defun calc-user-invocation () | 3432 | (defun calc-user-invocation () |
| 3433 | (interactive) | 3433 | (interactive) |
| 3434 | (unless (stringp calc-invocation-macro) | 3434 | (unless calc-invocation-macro |
| 3435 | (error "Use `Z I' inside Calc to define a `M-# Z' keyboard macro")) | 3435 | (error "Use `Z I' inside Calc to define a `M-# Z' keyboard macro")) |
| 3436 | (execute-kbd-macro calc-invocation-macro nil)) | 3436 | (execute-kbd-macro calc-invocation-macro nil)) |
| 3437 | 3437 | ||