[AUCTeX-commit] Changes to reftex/lisp/reftex-cite.el,v

[Ralf Angeli]

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    07/02/25 12:01:50

Index: reftex-cite.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-cite.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- reftex-cite.el      25 Feb 2007 11:06:21 -0000      1.38
+++ reftex-cite.el      25 Feb 2007 12:01:49 -0000      1.39
@@ -656,7 +656,8 @@
       ;; All keys go into a single command - we need to trick a little
       ;; FIXME: Unfortunately, this meens that commenting does not work right.
       (pop selected-entries)
-      (let ((concat-keys (mapconcat 'car selected-entries ",")))
+      (let ((concat-keys (mapconcat 'car selected-entries
+                                   reftex-cite-key-separator)))
         (setq insert-entries 
               (list (list concat-keys (cons "&key" concat-keys))))))
     
@@ -746,9 +747,13 @@
       (if (or (not arg) (not (listp arg)))
           (setq format
                 (concat
-                 (if (member (preceding-char) '(?\{ ?,)) "" ",")
+                 (if (member (preceding-char) '(?\{ ?,))
+                    ""
+                  reftex-cite-key-separator)
                  "%l"
-                 (if (member (following-char) '(?\} ?,)) "" ",")))
+                 (if (member (following-char) '(?\} ?,))
+                    ""
+                  reftex-cite-key-separator)))
         (setq format "%l")))
      (t
       ;; Figure out the correct format