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

[Ralf Angeli]

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    08/02/17 17:19:05

Index: reftex-base.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-base.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- reftex-base.el      27 Jan 2008 16:50:17 -0000      1.8
+++ reftex-base.el      17 Feb 2008 17:19:05 -0000      1.9
@@ -2305,18 +2305,20 @@
     ["isearch whole document" reftex-isearch-minor-mode
      :style toggle :selected reftex-isearch-minor-mode])
    ("Reference Style"
-    ,@(delete-dups
-       (mapcar (lambda (elt)
-                (let ((elt (nth 1 elt)))
-                  (vector
+    ,@(let (list item)
+       (dolist (elt reftex-ref-style-alist)
+         (setq elt (nth 1 elt)
+               item (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)))
+                     :selected `(member ,elt reftex-ref-style-active-list)))
+         (unless (member item list)
+           (add-to-list 'list item t)))
+       list))
    ("Citation Style"
     ,@(mapcar
        (lambda (x)