[Emacs-diffs] Changes to emacs/lisp/calc/calc-ext.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      08/03/05 04:23:41

Index: calc-ext.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-ext.el,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -b -r1.69 -r1.70
--- calc-ext.el 8 Jan 2008 20:46:36 -0000       1.69
+++ calc-ext.el 5 Mar 2008 04:23:41 -0000       1.70
@@ -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)))