Mercurial > emacs

diff lisp/calc/calc-ext.el @ 92495:846d80451c68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-extended-command-history): New variable. (calc-exectute-extended-command): Use `calc-extended-command-history'.
author Jay Belanger <jay.p.belanger@gmail.com>
date Wed, 05 Mar 2008 04:23:41 +0000
parents 107ccd98fa12
children b4a18ad26515
line wrap: on
line diff
--- 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)))