[elpa] externals/auctex 5c1fecb387 2/2: Use `format-prompt' in tex.el

[ELPA Syncer]

branch: externals/auctex
commit 5c1fecb3877d597f40da62b1a33fe95f4c790cb3
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Use `format-prompt' in tex.el
    
    * tex.el (TeX-master-file-ask, TeX-master-file, TeX-doc)
    (TeX-command-query): Use `format-prompt' instead of constructed
    prompts.
---
 tex.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/tex.el b/tex.el
index 2938b43876..3d28b2c631 100644
--- a/tex.el
+++ b/tex.el
@@ -2361,8 +2361,8 @@ this variable to \"<none>\"."
     (let* ((default (TeX-dwim-master))
            (name (or (and (eq 'dwim TeX-master) default)
                      (condition-case nil
-                         (read-file-name (format "Master file (default %s): "
-                                                 (or default "this file"))
+                         (read-file-name (format-prompt "Master file"
+                                                        (or default "this 
file"))
                                          nil default)
                        (quit "<quit>")))))
       (cond ((string= name "<quit>")
@@ -2400,7 +2400,7 @@ name of master file if it cannot be determined otherwise."
   (if (eq extension t)
       (setq extension TeX-default-extension))
   (with-current-buffer
-    ;; In case this is an indirect buffer:
+      ;; In case this is an indirect buffer:
       (or (buffer-base-buffer) (current-buffer))
     (let ((my-name (if (TeX-buffer-file-name)
                        (TeX-strip-extension nil (list TeX-default-extension) t)
@@ -2423,8 +2423,8 @@ name of master file if it cannot be determined otherwise."
             (setq TeX-master
                   (let* ((default (TeX-dwim-master))
                          (name (read-file-name
-                                (format "Master file (default %s): "
-                                        (or default "this file"))
+                                (format-prompt "Master file"
+                                               (or default "this file"))
                                 nil default)))
                     (cond ((string= name default)
                            default)
@@ -6774,8 +6774,8 @@ NAME may be a package, a command, or a document."
           ;; Query user.
           (setq name (completing-read
                       (if contained
-                          (format "Package, command, or document (default %s): 
"
-                                  symbol)
+                          (format-prompt "Package, command, or document"
+                                         symbol)
                         "Package, command, or document: ")
                       completions nil nil nil nil symbol))))
       (if (not name)
@@ -7866,7 +7866,7 @@ omitted) and `TeX-region-file'."
          (completion-ignore-case t)
          (answer (or TeX-command-force
                      (completing-read
-                      (concat "Command (default " default "): ")
+                      (format-prompt "Command" default)
                       (TeX-mode-specific-command-list major-mode) nil t
                       nil 'TeX-command-history default))))
     ;; If the answer is "latex" it will not be expanded to "LaTeX"