# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1204691021 0
# Node ID 846d80451c68c657572e42db77546a22a872186e
# Parent  b5a82292599ca3312d79cae8ff896e77195a479a
(calc-extended-command-history): New variable.
(calc-exectute-extended-command): Use `calc-extended-command-history'.

diff -r b5a82292599c -r 846d80451c68 lisp/calc/calc-ext.el
--- a/lisp/calc/calc-ext.el	Wed Mar 05 04:18:00 2008 +0000
+++ b/lisp/calc/calc-ext.el	Wed Mar 05 04:23:41 2008 +0000
@@ -1650,10 +1650,15 @@
    (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)))