From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 30 May 2010 02:51:53 +0000 (+0200)
Subject: progmodes/ada-xref.el (ada-prj-ada-project-path-sep): Set from `path-separator'.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~170
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8175cb90214540c2fea5084f20c17436183747d6;p=emacs.git

progmodes/ada-xref.el (ada-prj-ada-project-path-sep): Set from `path-separator'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index edde627ac20..86c8945a272 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-30  Juanma Barranquero  <lekktu@gmail.com>
+
+	* progmodes/ada-xref.el (ada-prj-ada-project-path-sep): Set from
+	`path-separator', but maintain compatibility with Emacs 20.2.
+
 2010-05-29  Chong Yidong  <cyd@stupidchicken.com>
 
 	* server.el (server-process-filter): Receive parent-id argument
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 5eefe340646..9b43a0629bf 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -108,10 +108,9 @@ the Ada mode project."
   :type 'string :group 'ada)
 
 (defcustom ada-prj-ada-project-path-sep
-  (if (or (equal system-type 'windows-nt)
-	  (equal system-type 'ms-dos))
-      ";"
-    ":")
+  (cond ((boundp 'path-separator) path-separator) ; 20.3+
+	((memq system-type '(windows-nt ms-dos)) ";")
+	(t ":"))
   "Default separator for ada_project_path project variable."
   :type 'string :group 'ada)