/[emacs]/emacs/lisp/textmodes/reftex-index.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/reftex-index.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by ttn, Wed Sep 21 11:40:14 2005 UTC revision 1.30 by rfrancoise, Sat Sep 24 13:43:58 2005 UTC
# Line 166  will prompt for other arguments." Line 166  will prompt for other arguments."
166    ;; OPT-ARGS is a list of optional argument indices, as given by    ;; OPT-ARGS is a list of optional argument indices, as given by
167    ;; `reftex-parse-args'.    ;; `reftex-parse-args'.
168    (let* ((opt (and (integerp itag) (member itag opt-args)))    (let* ((opt (and (integerp itag) (member itag opt-args)))
169           (index-tags (cdr (assq 'index-tags           (index-tags (cdr (assq 'index-tags
170                                  (symbol-value reftex-docstruct-symbol))))                                  (symbol-value reftex-docstruct-symbol))))
171           (default (reftex-default-index))           (default (reftex-default-index))
172           (prompt (concat "Index tag"           (prompt (concat "Index tag"
173                           (if default (format " (default: %s)" default) "")                           (if (or opt default)
174                           (if opt " (optional)" "") ": "))                               (format " (%s): "
175           (tag (completing-read prompt (mapcar 'list index-tags))))                                       (concat
176                                          (if opt "optional" "")
177                                          (if default
178                                              (concat (if opt ", " "")
179                                                      (format "default %s" default))
180                                            "")))
181                               ": ")))
182             (tag (completing-read prompt (mapcar 'list index-tags))))
183      (if (and default (equal tag "")) (setq tag default))      (if (and default (equal tag "")) (setq tag default))
184      (reftex-update-default-index tag)      (reftex-update-default-index tag)
185      tag))      tag))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26