diff options
| author | Jay Belanger | 2004-12-31 20:36:48 +0000 |
|---|---|---|
| committer | Jay Belanger | 2004-12-31 20:36:48 +0000 |
| commit | 4a74dd944c04ecdc12bd641fc9f15e15aacecf4b (patch) | |
| tree | f1af4a426a29fd18a6f45da4dc488ce0fdb465b9 | |
| parent | 42d02da077d0678e85e9391905e4ce3986c014d8 (diff) | |
| download | emacs-4a74dd944c04ecdc12bd641fc9f15e15aacecf4b.tar.gz emacs-4a74dd944c04ecdc12bd641fc9f15e15aacecf4b.zip | |
(calcVar-digit, calcVar-oper): Remove need for "var-" at the
beginning of the minibuffer.
| -rw-r--r-- | lisp/calc/calc-store.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 @@ | |||
| 200 | 200 | ||
| 201 | (defun calcVar-digit () | 201 | (defun calcVar-digit () |
| 202 | (interactive) | 202 | (interactive) |
| 203 | (if (calc-minibuffer-contains "var-\\'") | 203 | (if (calc-minibuffer-contains "\\'") |
| 204 | (if (eq calc-store-opers 0) | 204 | (if (eq calc-store-opers 0) |
| 205 | (beep) | 205 | (beep) |
| 206 | (insert "q") | 206 | (insert "q") |
| @@ -210,7 +210,7 @@ | |||
| 210 | (defun calcVar-oper () | 210 | (defun calcVar-oper () |
| 211 | (interactive) | 211 | (interactive) |
| 212 | (if (and (eq calc-store-opers t) | 212 | (if (and (eq calc-store-opers t) |
| 213 | (calc-minibuffer-contains "var-\\'")) | 213 | (calc-minibuffer-contains "\\'")) |
| 214 | (progn | 214 | (progn |
| 215 | (erase-buffer) | 215 | (erase-buffer) |
| 216 | (self-insert-and-exit)) | 216 | (self-insert-and-exit)) |