diff options
Diffstat (limited to 'lisp/calc/calc-ext.el')
| -rw-r--r-- | lisp/calc/calc-ext.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index 5e5ae8166db..b47279003c6 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -1650,10 +1650,15 @@ calc-kill calc-kill-region calc-yank)))) (calc-handle-whys))) +(defvar calc-extended-command-history nil + "The history list for calc-execute-extended-command.") + (defun calc-execute-extended-command (n) (interactive "P") (let* ((prompt (concat (calc-num-prefix-name n) "M-x ")) - (cmd (intern (completing-read prompt obarray 'commandp t "calc-")))) + (cmd (intern + (completing-read prompt obarray 'commandp t "calc-" + 'calc-extended-command-history)))) (setq prefix-arg n) (command-execute cmd))) |