From 8175cb90214540c2fea5084f20c17436183747d6 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 30 May 2010 04:51:53 +0200 Subject: [PATCH] progmodes/ada-xref.el (ada-prj-ada-project-path-sep): Set from `path-separator'. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/ada-xref.el | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) 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 + + * 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 * 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) -- 2.39.2