[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100481: progmodes/ada-xref.el (ada-p
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100481: progmodes/ada-xref.el (ada-prj-ada-project-path-sep): Set from `path-separator'. |
Date: |
Sun, 30 May 2010 04:51:53 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 100481
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sun 2010-05-30 04:51:53 +0200
message:
progmodes/ada-xref.el (ada-prj-ada-project-path-sep): Set from
`path-separator'.
modified:
lisp/ChangeLog
lisp/progmodes/ada-xref.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-05-29 23:50:47 +0000
+++ b/lisp/ChangeLog 2010-05-30 02:51:53 +0000
@@ -1,3 +1,8 @@
+2010-05-30 Juanma Barranquero <address@hidden>
+
+ * 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 <address@hidden>
* server.el (server-process-filter): Receive parent-id argument
=== modified file 'lisp/progmodes/ada-xref.el'
--- a/lisp/progmodes/ada-xref.el 2010-05-26 14:19:15 +0000
+++ b/lisp/progmodes/ada-xref.el 2010-05-30 02:51:53 +0000
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100481: progmodes/ada-xref.el (ada-prj-ada-project-path-sep): Set from `path-separator'.,
Juanma Barranquero <=