From c571ad7c4394cab5ae7d0f6e2c1bacb4d5826409 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Wed, 5 Mar 2008 04:25:10 +0000 Subject: [PATCH] (calc-extended-command-history): New variable. (calc-exectute-extended-command): Use `calc-extended-command-history'. --- lisp/ChangeLog | 7 +++++++ lisp/calc/calc-ext.el | 7 ++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c376e601a44..59cb05477ad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-03-05 Jay Belanger + + * calc/calc-ext.el (calc-extended-command-history): + New variable. + (calc-exectute-extended-command): Use + `calc-extended-command-history'. + 2008-03-05 Dan Nicolaescu * bindings.el (mode-line-remote): Add mouse-face. Improve tooltip. 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))) -- 2.39.5