[elpa] 98/299: Use crm-separator as separator in XEmacs TeX-completing-read-multiple.

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit 4d17c2dd834f15a6591043472ccffa439811827b
Author: Mosè Giordano <address@hidden>
Date:   Mon Apr 15 15:12:12 2013 +0200

    Use crm-separator as separator in XEmacs TeX-completing-read-multiple.
    
    * tex.el (fboundp): Use `crm-separator' as separator in XEmacs
    `TeX-completing-read-multiple' implementation.
---
 ChangeLog |    3 +++
 tex.el    |    4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ad3f06d..9162654 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2013-04-15  Mos� Giordano  <address@hidden>
 
+       * tex.el (fboundp): Use `crm-separator' as separator in XEmacs
+       `TeX-completing-read-multiple' implementation.
+
        * style/pst-node.el (LaTeX-pstnode-env-psmatrix): Replace
        `completing-read-multiple' with `TeX-completing-read-multiple'.
 
diff --git a/tex.el b/tex.el
index ca246e7..13e83ab 100644
--- a/tex.el
+++ b/tex.el
@@ -688,8 +688,8 @@ edit-utils >= 2.32 for XEmacs."))
            hist def inherit-input-method)
     "Poor mans implementation of Emacs' `completing-read-multiple' for XEmacs.
 The XEmacs package edit-utils-2.32 includes `crm.el'."
-    (multi-prompt "," nil prompt table predicate require-match initial-input
-                 hist)))
+    (multi-prompt (if (boundp 'crm-separator) crm-separator ",") nil prompt
+                 table predicate require-match initial-input hist)))
 
 (if (fboundp 'line-number-at-pos)
     (defalias 'TeX-line-number-at-pos 'line-number-at-pos)