Mercurial > emacs

changeset 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 b5a82292599c
children 90410eaf4c76
files lisp/calc/calc-ext.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
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)))