Mercurial > emacs

diff lisp/progmodes/ada-xref.el @ 108829:67d507f84cdc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
progmodes/ada-xref.el (ada-prj-ada-project-path-sep): Set from `path-separator'.
author Juanma Barranquero <lekktu@gmail.com>
date Sun, 30 May 2010 04:51:53 +0200
parents 7a3558eb670e
children 280c8ae2476d
line wrap: on
line diff
--- a/lisp/progmodes/ada-xref.el	Sat May 29 19:50:47 2010 -0400
+++ b/lisp/progmodes/ada-xref.el	Sun May 30 04:51:53 2010 +0200
@@ -108,10 +108,9 @@
   :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)