[AUCTeX-diffs] Changes to reftex/lisp/reftex-base.el,v

[Ralf Angeli]

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    08/01/27 16:16:25

Index: reftex-base.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-base.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- reftex-base.el      23 Aug 2007 21:36:03 -0000      1.6
+++ reftex-base.el      27 Jan 2008 16:16:24 -0000      1.7
@@ -1,7 +1,7 @@
 ;;; reftex-base.el --- Basic definitions for RefTeX
 
 ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005,
-;;   2006, 2007 Free Software Foundation, Inc.
+;;   2006, 2007, 2008 Free Software Foundation, Inc.
 
 ;; Author: Carsten Dominik <address@hidden>
 ;; Maintainer: address@hidden
@@ -2300,21 +2300,23 @@
      :style radio :selected (eq reftex-auto-view-crossref 'window)]
     "--"
     "MISC"
-    ["AUC TeX Interface" reftex-toggle-plug-into-AUCTeX
+    ["AUCTeX Interface" reftex-toggle-plug-into-AUCTeX
      :style toggle :selected reftex-plug-into-AUCTeX]
     ["isearch whole document" reftex-isearch-minor-mode
      :style toggle :selected reftex-isearch-minor-mode])
    ("Reference Style"
-    ["Default" (setq reftex-vref-is-default nil
-                     reftex-fref-is-default nil)
-     :style radio :selected (not (or reftex-vref-is-default
-                                     reftex-fref-is-default))]
-    ["Varioref" (setq reftex-vref-is-default t
-                      reftex-fref-is-default nil)
-     :style radio :selected reftex-vref-is-default]
-    ["Fancyref" (setq reftex-fref-is-default t
-                      reftex-vref-is-default nil)
-     :style radio :selected reftex-fref-is-default])
+    ,@(delete-dups
+       (mapcar (lambda (elt)
+                (let ((elt (nth 1 elt)))
+                  (vector
+                   elt
+                   `(if (member ,elt reftex-ref-style-active-list)
+                        (setq reftex-ref-style-active-list
+                              (delete ,elt reftex-ref-style-active-list))
+                      (add-to-list 'reftex-ref-style-active-list ,elt))
+                   :style 'toggle
+                   :selected `(member ,elt reftex-ref-style-active-list))))
+              reftex-ref-style-alist)))
    ("Citation Style"
     ,@(mapcar
        (lambda (x)