From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 31 Dec 2004 20:36:48 +0000 (+0000)
Subject: (calcVar-digit, calcVar-oper):  Remove need for "var-" at the
X-Git-Tag: ttn-vms-21-2-B4~3000
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a74dd944c04ecdc12bd641fc9f15e15aacecf4b;p=emacs.git

(calcVar-digit, calcVar-oper):  Remove need for "var-" at the
beginning of the minibuffer.
---

diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index 93239521801..574efbf37e6 100644
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -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))