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

[Juanma Barranquero]

Index: emacs/lisp/textmodes/reftex-auc.el
diff -c emacs/lisp/textmodes/reftex-auc.el:1.12 
emacs/lisp/textmodes/reftex-auc.el:1.13
*** emacs/lisp/textmodes/reftex-auc.el:1.12     Thu Jul 25 03:03:41 2002
--- emacs/lisp/textmodes/reftex-auc.el  Tue Feb  4 08:30:45 2003
***************
*** 74,80 ****
  
  
  (defun reftex-arg-index-tag (optional &optional prompt &rest args)
!   "Prompt for an index tag with completion. 
  This is the name of an index, not the entry."
    (let (tag taglist)
      (setq prompt (concat (if optional "(Optional) " "")
--- 74,80 ----
  
  
  (defun reftex-arg-index-tag (optional &optional prompt &rest args)
!   "Prompt for an index tag with completion.
  This is the name of an index, not the entry."
    (let (tag taglist)
      (setq prompt (concat (if optional "(Optional) " "")
***************
*** 84,91 ****
        ;; Use RefTeX completion
        (progn
          (reftex-access-scan-info nil)
!         (setq taglist 
!               (cdr (assoc 'index-tags 
                            (symbol-value reftex-docstruct-symbol)))
                tag (completing-read prompt (mapcar 'list taglist))))
        ;; Just ask like AUCTeX does.
--- 84,91 ----
        ;; Use RefTeX completion
        (progn
          (reftex-access-scan-info nil)
!         (setq taglist
!               (cdr (assoc 'index-tags
                            (symbol-value reftex-docstruct-symbol)))
                tag (completing-read prompt (mapcar 'list taglist))))
        ;; Just ask like AUCTeX does.
***************
*** 130,136 ****
    ;; Replace AUCTeX functions with RefTeX functions.
    ;; Which functions are replaced is controlled by the variable
    ;; `reftex-plug-into-AUCTeX'.
!   
    (if (reftex-plug-flag 0)
        (setq LaTeX-label-function 'reftex-label)
      (setq LaTeX-label-function nil))
--- 130,136 ----
    ;; Replace AUCTeX functions with RefTeX functions.
    ;; Which functions are replaced is controlled by the variable
    ;; `reftex-plug-into-AUCTeX'.
! 
    (if (reftex-plug-flag 0)
        (setq LaTeX-label-function 'reftex-label)
      (setq LaTeX-label-function nil))
***************
*** 142,152 ****
    (and (reftex-plug-flag 3)
         (fboundp 'TeX-arg-cite)
         (fset 'TeX-arg-cite 'reftex-arg-cite))
!   
!   (and (reftex-plug-flag 4) 
         (fboundp 'TeX-arg-index-tag)
         (fset 'TeX-arg-index-tag 'reftex-arg-index-tag))
!   (and (reftex-plug-flag 4) 
         (fboundp 'TeX-arg-index)
         (fset 'TeX-arg-index 'reftex-arg-index)))
  
--- 142,152 ----
    (and (reftex-plug-flag 3)
         (fboundp 'TeX-arg-cite)
         (fset 'TeX-arg-cite 'reftex-arg-cite))
! 
!   (and (reftex-plug-flag 4)
         (fboundp 'TeX-arg-index-tag)
         (fset 'TeX-arg-index-tag 'reftex-arg-index-tag))
!   (and (reftex-plug-flag 4)
         (fboundp 'TeX-arg-index)
         (fset 'TeX-arg-index 'reftex-arg-index)))