diff options
| -rw-r--r-- | lisp/calc/calcalg3.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el index 287eb114ac2..eb3611c3fd0 100644 --- a/lisp/calc/calcalg3.el +++ b/lisp/calc/calcalg3.el | |||
| @@ -135,11 +135,10 @@ | |||
| 135 | "' = alg entry, $ = stack, u = Model1, U = Model2"))) | 135 | "' = alg entry, $ = stack, u = Model1, U = Model2"))) |
| 136 | (while (not calc-curve-model) | 136 | (while (not calc-curve-model) |
| 137 | (message | 137 | (message |
| 138 | (if plot | 138 | "Fit to model: %s:%s%s" |
| 139 | "Fit to model (plot): %s:%s" | ||
| 140 | "Fit to model: %s:%s") | ||
| 141 | (nth which msgs) | 139 | (nth which msgs) |
| 142 | (if homog " h" "")) | 140 | (if plot "p" " ") |
| 141 | (if homog "h" "")) | ||
| 143 | (setq key (read-char)) | 142 | (setq key (read-char)) |
| 144 | (cond ((= key ?\C-g) | 143 | (cond ((= key ?\C-g) |
| 145 | (keyboard-quit)) | 144 | (keyboard-quit)) |