[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to reftex/lisp/reftex-base.el,v
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to reftex/lisp/reftex-base.el,v |
Date: |
Sun, 17 Feb 2008 17:19:06 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [AUCTeX-diffs] Changes to reftex/lisp/reftex-base.el,v,
Ralf Angeli <=