From 27b711f834a12384e31ac624a586711c5d07af6b Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 10 Sep 2020 21:58:26 +0300 Subject: [PATCH] ; Fix typos in format-prompt --- lisp/calc/calcalg3.el | 2 +- lisp/misearch.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el index 75e691a28ff..2d38c9c45bc 100644 --- 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 7796df49c4e..36a7afe518c 100644 --- 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)) -- 2.39.5