From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Wed, 5 Mar 2008 04:25:10 +0000 (+0000)
Subject: (calc-extended-command-history): New variable.
X-Git-Tag: emacs-pretest-23.0.90~7453
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c571ad7c4394cab5ae7d0f6e2c1bacb4d5826409;p=emacs.git

(calc-extended-command-history): New variable.
(calc-exectute-extended-command): Use `calc-extended-command-history'.
---

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  <jay.p.belanger@gmail.com>
+
+	* calc/calc-ext.el (calc-extended-command-history):
+	New variable.
+	(calc-exectute-extended-command): Use
+	`calc-extended-command-history'.
+
 2008-03-05  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* 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)))