diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2008-03-05 04:25:10 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2008-03-05 04:25:10 +0000 |
| commit | c571ad7c4394cab5ae7d0f6e2c1bacb4d5826409 (patch) | |
| tree | 4a0184cf767e0749049f7f529c4d1fa896a7e1d6 /lisp/calc/calc-ext.el | |
| parent | d0363d443c7cf37b1666fe48d3496814bd3e41ca (diff) | |
(calc-extended-command-history): New variable.
(calc-exectute-extended-command): Use `calc-extended-command-history'.
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 5e5ae8166d..b47279003c 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))) |