[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-index.el

[Romain Francoise]

Index: emacs/lisp/textmodes/reftex-index.el
diff -c emacs/lisp/textmodes/reftex-index.el:1.29 
emacs/lisp/textmodes/reftex-index.el:1.30
*** emacs/lisp/textmodes/reftex-index.el:1.29   Wed Sep 21 11:40:14 2005
--- emacs/lisp/textmodes/reftex-index.el        Sat Sep 24 13:43:58 2005
***************
*** 166,178 ****
    ;; 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))))
      (if (and default (equal tag "")) (setq tag default))
      (reftex-update-default-index tag)
      tag))
--- 166,185 ----
    ;; 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 (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))