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

[Ralf Angeli]

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    08/11/30 22:13:35

Index: reftex-sel.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-sel.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- reftex-sel.el       15 Oct 2008 16:27:27 -0000      1.37
+++ reftex-sel.el       30 Nov 2008 22:13:35 -0000      1.38
@@ -534,26 +534,16 @@
   (setq reftex-last-follow-point -1)
   (setq cb-flag (not cb-flag)))
 
-(defun reftex-select-cycle-active-ref-styles ()
-  "Return ordered alist of active reference styles."
-  (let (list)
-    (dolist (style reftex-ref-style-active-list)
-      (dolist (spec reftex-ref-style-alist)
-       (when (string= (nth 1 spec) style)
-         (add-to-list 'list spec t))))
-    list))
-
 (defun reftex-select-cycle-ref-style-internal (&optional reverse)
   "Cycle through macros used for referencing.
-Reverse list if optional argument REVERSE is non-nil."
-  ;; First build a list containing only active styles, then reassemble
-  ;; the list so that the current entry is at the beginning and then
-  ;; select the first entry.
-  (let* ((orig (reftex-select-cycle-active-ref-styles))
-        (orig (if reverse (reverse orig) orig))
-        (list (member (assoc refstyle orig) orig))
-        (list (cdr (append list (butlast orig (length list))))))
-    (setq refstyle (caar list)))
+Cycle in reverse order if optional argument REVERSE is non-nil."
+  (let (list)
+    (dolist (style reftex-ref-style-active-list)
+      (mapc (lambda (x) (add-to-list 'list (car x) t))
+           (nth 2 (assoc style reftex-ref-style-alist))))
+    (when reverse
+      (setq list (reverse list)))
+    (setq refstyle (or (cadr (member refstyle list)) (car list))))
   (force-mode-line-update))
 
 (defun reftex-select-cycle-ref-style-forward ()