diff options
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/artist.el | 4 | ||||
| -rw-r--r-- | lisp/textmodes/refer.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-auc.el | 8 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-index.el | 21 |
4 files changed, 21 insertions, 14 deletions
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index c3340d6fd37..c9fcd01d018 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -2863,9 +2863,9 @@ Returns a list of strings." "Read any extra arguments for figlet." (interactive) (let* ((avail-fonts (artist-figlet-get-font-list)) - (font (completing-read (concat "Select font: (default " + (font (completing-read (concat "Select font (default " artist-figlet-default-font - ") ") + "): ") (mapcar (lambda (font) (cons font font)) avail-fonts)))) diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el index 82f06576c1a..9fa0afe2046 100644 --- a/lisp/textmodes/refer.el +++ b/lisp/textmodes/refer.el @@ -339,7 +339,7 @@ found on the last refer-find-entry or refer-find-next-entry." (list (expand-file-name (if (eq major-mode 'bibtex-mode) (read-file-name - (format ".bib file: (default %s) " + (format ".bib file (default %s): " (file-name-nondirectory (buffer-file-name))) (file-name-directory (buffer-file-name)) diff --git a/lisp/textmodes/reftex-auc.el b/lisp/textmodes/reftex-auc.el index 855bab7721c..65815dd2885 100644 --- a/lisp/textmodes/reftex-auc.el +++ b/lisp/textmodes/reftex-auc.el @@ -67,8 +67,8 @@ What is being used depends upon `reftex-plug-into-AUCTeX'." (setq items (list (or (reftex-citation t) "")))) (t (setq prompt (concat (if optional "(Optional) " "") - (if prompt prompt "Add key") - ": (default none) ")) + (if prompt prompt "Add key") + " (default none): ")) (setq items (multi-prompt "," t prompt (LaTeX-bibitem-list))))) (apply 'LaTeX-add-bibitems items) (TeX-argument-insert (mapconcat 'identity items ",") optional))) @@ -79,8 +79,8 @@ What is being used depends upon `reftex-plug-into-AUCTeX'." This is the name of an index, not the entry." (let (tag taglist) (setq prompt (concat (if optional "(Optional) " "") - (if prompt prompt "Index tag") - ": (default none) ")) + (if prompt prompt "Index tag") + " (default none): ")) (if (and reftex-support-index (reftex-plug-flag 4)) ;; Use RefTeX completion (progn diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el index fc4b0495033..c987ed830b8 100644 --- a/lisp/textmodes/reftex-index.el +++ b/lisp/textmodes/reftex-index.el @@ -166,13 +166,20 @@ will prompt for other arguments." ;; OPT-ARGS is a list of optional argument indices, as given by ;; `reftex-parse-args'. (let* ((opt (and (integerp itag) (member itag opt-args))) - (index-tags (cdr (assq 'index-tags - (symbol-value reftex-docstruct-symbol)))) - (default (reftex-default-index)) - (prompt (concat "Index tag" - (if default (format " (default: %s)" default) "") - (if opt " (optional)" "") ": ")) - (tag (completing-read prompt (mapcar 'list index-tags)))) + (index-tags (cdr (assq 'index-tags + (symbol-value reftex-docstruct-symbol)))) + (default (reftex-default-index)) + (prompt (concat "Index tag" + (if (or opt default) + (format " (%s): " + (concat + (if opt "optional" "") + (if default + (concat (if opt ", " "") + (format "default %s" default)) + ""))) + ": "))) + (tag (completing-read prompt (mapcar 'list index-tags)))) (if (and default (equal tag "")) (setq tag default)) (reftex-update-default-index tag) tag)) |