; Fix typos in format-prompt

diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el
index 75e691a28ffeee67de4d6ed14793ce69bb52478a..2d38c9c45bc44b254649d54eae57ab328208a76c 100644 (file)
--- a/lisp/calc/calcalg3.el
+++ b/lisp/calc/calcalg3.el
@@ -472,7 +472,7 @@
       (setq defc (calc-invent-parameter-variables nc defv)))
   (let ((vars (read-string (format-prompt
                             "Fitting variables"
-                            (format "%s; %s)"
+                            (format "%s; %s"
                                    (mapconcat 'symbol-name
                                               (mapcar (function (lambda (v)
                                                                   (nth 1 v)))

diff --git a/lisp/misearch.el b/lisp/misearch.el
index 7796df49c4e7ad306844e8c51542574674003a93..36a7afe518c2c76405b7773ba537bd33029fa7b9 100644 (file)
--- a/lisp/misearch.el
+++ b/lisp/misearch.el
@@ -317,7 +317,7 @@ Every next/previous file in the defined sequence is visited by
   "Return a list of files specified interactively, one by one."
   ;; Most code from `multi-occur'.
   (let* ((files (list (read-file-name
-                       (format-prompt "First file to search: "
+                       (format-prompt "First file to search"
                                       (file-name-nondirectory buffer-file-name))
                       default-directory buffer-file-name)))
         (file nil))