diff options
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-prog.el | 4 | ||||
| -rw-r--r-- | lisp/calc/calc-store.el | 4 | ||||
| -rw-r--r-- | lisp/calc/calcalg3.el | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index b44d8d256a5..2bbbbcceee5 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -197,7 +197,7 @@ (progn (setq cmd-base-default (concat "User-" keyname)) (setq cmd (completing-read - (concat "Define M-x command name (default: calc-" + (concat "Define M-x command name (default calc-" cmd-base-default "): ") obarray 'commandp nil @@ -233,7 +233,7 @@ (setq func (concat "calcFunc-" (completing-read - (concat "Define algebraic function name (default: " + (concat "Define algebraic function name (default " cmd-base-default "): ") (mapcar (lambda (x) (substring x 9)) (all-completions "calcFunc-" diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el index 1410b7d6651..82c7077ba91 100644 --- a/lisp/calc/calc-store.el +++ b/lisp/calc/calc-store.el @@ -430,7 +430,7 @@ (calc-wrapper (or var (setq var (calc-read-var-name (if calc-last-edited-variable - (format "Edit: (default %s) " + (format "Edit (default %s): " (calc-var-name calc-last-edited-variable)) "Edit: ")))) (or var (setq var calc-last-edited-variable)) @@ -587,7 +587,7 @@ (defun calc-permanent-variable (&optional var) (interactive) (calc-wrapper - (or var (setq var (calc-read-var-name "Save variable (default=all): "))) + (or var (setq var (calc-read-var-name "Save variable (default all): "))) (let (calc-pv-pos) (and var (or (and (boundp var) (symbol-value var)) (error "No such variable"))) diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el index 0aef3ba55af..d5ef567866f 100644 --- a/lisp/calc/calcalg3.el +++ b/lisp/calc/calcalg3.el @@ -370,7 +370,7 @@ (setq defv (calc-invent-independent-variables nv))) (or defc (setq defc (calc-invent-parameter-variables nc defv))) - (let ((vars (read-string (format "Fitting variables: (default %s; %s) " + (let ((vars (read-string (format "Fitting variables (default %s; %s): " (mapconcat 'symbol-name (mapcar (function (lambda (v) (nth 1 v))) |