# HG changeset patch # User Jay Belanger # Date 1104525408 0 # Node ID eb45d1b6dbc374ba92deb884bd15915e04b26bb5 # Parent b7ebbcf3b120955364a933aecc8ac0f141795a85 (calcVar-digit, calcVar-oper): Remove need for "var-" at the beginning of the minibuffer. diff -r b7ebbcf3b120 -r eb45d1b6dbc3 lisp/calc/calc-store.el --- a/lisp/calc/calc-store.el Fri Dec 31 18:16:10 2004 +0000 +++ b/lisp/calc/calc-store.el Fri Dec 31 20:36:48 2004 +0000 @@ -200,7 +200,7 @@ (defun calcVar-digit () (interactive) - (if (calc-minibuffer-contains "var-\\'") + (if (calc-minibuffer-contains "\\'") (if (eq calc-store-opers 0) (beep) (insert "q") @@ -210,7 +210,7 @@ (defun calcVar-oper () (interactive) (if (and (eq calc-store-opers t) - (calc-minibuffer-contains "var-\\'")) + (calc-minibuffer-contains "\\'")) (progn (erase-buffer) (self-insert-and-exit))